# HG changeset patch
# User Michael Goffioul <michael.goffioul@gmail.com>
# Date 1411327426 14400
# Node ID dc51f26f0db511607af9ff1be2e5f7aec5b44855
# Parent  38c54d45d05fc7562912ba31bf26fbdfaa8130a8
system.tst: codesprint: add tests for S_* and unlink.

diff -r 38c54d45d05f -r dc51f26f0db5 test/system.tst
--- 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 ()))
-