Mercurial > octave-nkf
view test/octave.test/system/mk-rm-dir-1.m @ 5499:9e3efbc3070a
[project @ 2005-10-17 20:11:52 by jwe]
author | jwe |
---|---|
date | Mon, 17 Oct 2005 20:11:52 +0000 |
parents | eeb061f9cdbf |
children |
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)