Mercurial > octave-antonio
changeset 19135:dc51f26f0db5
system.tst: codesprint: add tests for S_* and unlink.
author | Michael Goffioul <michael.goffioul@gmail.com> |
---|---|
date | Sun, 21 Sep 2014 15:23:46 -0400 |
parents | 38c54d45d05f |
children | 10c57204fd72 |
files | test/system.tst |
diffstat | 1 files changed, 37 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/test/system.tst Sun Sep 21 15:10:02 2014 -0400 +++ b/test/system.tst Sun Sep 21 15:23:46 2014 -0400 @@ -90,6 +90,7 @@ %!error <Invalid call to unlink> unlink () %!error <Invalid call to unlink> unlink ("foo", 1) +%!error <FILE must be a string> unlink ({}) %!test %! [files, status, msg] = readdir (filesep); @@ -180,6 +181,42 @@ %!error <Invalid call to lstat> lstat () %!error <Invalid call to lstat> lstat ("foo", 1) +%!test +%! if (isunix ()) +%! assert (S_ISCHR (stat ("/dev/null").mode)); +%! assert (S_ISFIFO (stat ("/dev/initctl").mode)); +%! assert (S_ISLNK (lstat ("/dev/core").mode)); +%! endif +%! nm = tmpnam (); +%! fid = fopen (nm, "wb"); +%! fclose (fid); +%! r = [ +%! S_ISREG(stat(nm).mode), +%! S_ISDIR(stat(nm).mode), +%! S_ISCHR(stat(nm).mode), +%! S_ISBLK(stat(nm).mode), +%! S_ISFIFO(stat(nm).mode), +%! S_ISLNK(lstat(nm).mode), +%! S_ISSOCK(stat(nm).mode)]; +%! unlink (nm); +%! assert (r(:), [true; false; false; false; false; false; false]); + +%!error <octave_base_value::double_value ()> S_ISREG ({}) +%!error <octave_base_value::double_value ()> S_ISDIR ({}) +%!error <octave_base_value::double_value ()> S_ISCHR ({}) +%!error <octave_base_value::double_value ()> S_ISBLK ({}) +%!error <octave_base_value::double_value ()> S_ISFIFO ({}) +%!error <octave_base_value::double_value ()> S_ISLNK ({}) +%!error <octave_base_value::double_value ()> S_ISSOCK ({}) + +%!error <Invalid call to S_ISREG> S_ISREG () +%!error <Invalid call to S_ISDIR> S_ISDIR () +%!error <Invalid call to S_ISCHR> S_ISCHR () +%!error <Invalid call to S_ISBLK> S_ISBLK () +%!error <Invalid call to S_ISFIFO> S_ISFIFO () +%!error <Invalid call to S_ISLNK> S_ISLNK () +%!error <Invalid call to S_ISSOCK> S_ISSOCK () + %!assert (iscell (glob ([filesep "*"]))) %!error <Invalid call to glob> glob () @@ -359,4 +396,3 @@ %!assert (isstruct (octave_config_info ())) %!assert (isstruct (getrusage ())) -