Mercurial > octave-nkf
view test/octave.test/system/mk-rm-dir-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 | 9e3efbc3070a |
line wrap: on
line source
nm = tmpnam (); e1 = mkdir (nm); [s2, e2] = stat (nm); e3 = rmdir (nm); [s4, e4] = stat (nm); (! e1 && strcmp (s2.modestr(1), "d") && ! e3 && e4 < 0)