comparison test/octave.test/system/unlink-1.m @ 2742:eeb061f9cdbf

[project @ 1997-02-26 04:29:07 by jwe]
author jwe
date Wed, 26 Feb 1997 04:29:48 +0000
parents
children 6ddb5a7f399e
comparison
equal deleted inserted replaced
2741:0d126fbe022d 2742:eeb061f9cdbf
1 nm = tmpnam ();
2 if ((id = fopen (nm, "w")) > 0)
3 [s, err] = stat (nm);
4 if (! err && fclose (id) == 0 && unlink (nm) == 0)
5 [s, err] = stat (nm);
6 err < 0
7 endif
8 endif