Mercurial > octave-nkf

comparison test/system.tst @ 19169:dc51f26f0db5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 f506de9089e8
children 8553b88e5909
comparison
equal deleted inserted replaced
19168:38c54d45d05f 19169:dc51f26f0db5
88 %! endif 88 %! endif
89 %! endif 89 %! endif
90 90
91 %!error <Invalid call to unlink> unlink () 91 %!error <Invalid call to unlink> unlink ()
92 %!error <Invalid call to unlink> unlink ("foo", 1) 92 %!error <Invalid call to unlink> unlink ("foo", 1)
93 %!error <FILE must be a string> unlink ({})
93 94
94 %!test 95 %!test
95 %! [files, status, msg] = readdir (filesep); 96 %! [files, status, msg] = readdir (filesep);
96 %! assert (iscell (files) && status == 0 && strcmp (msg, "")); 97 %! assert (iscell (files) && status == 0 && strcmp (msg, ""));
97 98
178 %! && ischar (msg))); 179 %! && ischar (msg)));
179 180
180 %!error <Invalid call to lstat> lstat () 181 %!error <Invalid call to lstat> lstat ()
181 %!error <Invalid call to lstat> lstat ("foo", 1) 182 %!error <Invalid call to lstat> lstat ("foo", 1)
182 183
184 %!test
185 %! if (isunix ())
186 %! assert (S_ISCHR (stat ("/dev/null").mode));
187 %! assert (S_ISFIFO (stat ("/dev/initctl").mode));
188 %! assert (S_ISLNK (lstat ("/dev/core").mode));
189 %! endif
190 %! nm = tmpnam ();
191 %! fid = fopen (nm, "wb");
192 %! fclose (fid);
193 %! r = [
194 %! S_ISREG(stat(nm).mode),
195 %! S_ISDIR(stat(nm).mode),
196 %! S_ISCHR(stat(nm).mode),
197 %! S_ISBLK(stat(nm).mode),
198 %! S_ISFIFO(stat(nm).mode),
199 %! S_ISLNK(lstat(nm).mode),
200 %! S_ISSOCK(stat(nm).mode)];
201 %! unlink (nm);
202 %! assert (r(:), [true; false; false; false; false; false; false]);
203
204 %!error <octave_base_value::double_value ()> S_ISREG ({})
205 %!error <octave_base_value::double_value ()> S_ISDIR ({})
206 %!error <octave_base_value::double_value ()> S_ISCHR ({})
207 %!error <octave_base_value::double_value ()> S_ISBLK ({})
208 %!error <octave_base_value::double_value ()> S_ISFIFO ({})
209 %!error <octave_base_value::double_value ()> S_ISLNK ({})
210 %!error <octave_base_value::double_value ()> S_ISSOCK ({})
211
212 %!error <Invalid call to S_ISREG> S_ISREG ()
213 %!error <Invalid call to S_ISDIR> S_ISDIR ()
214 %!error <Invalid call to S_ISCHR> S_ISCHR ()
215 %!error <Invalid call to S_ISBLK> S_ISBLK ()
216 %!error <Invalid call to S_ISFIFO> S_ISFIFO ()
217 %!error <Invalid call to S_ISLNK> S_ISLNK ()
218 %!error <Invalid call to S_ISSOCK> S_ISSOCK ()
219
183 %!assert (iscell (glob ([filesep "*"]))) 220 %!assert (iscell (glob ([filesep "*"])))
184 221
185 %!error <Invalid call to glob> glob () 222 %!error <Invalid call to glob> glob ()
186 %!error <Invalid call to glob> glob ("foo", 1) 223 %!error <Invalid call to glob> glob ("foo", 1)
187 224
357 %!assert (isieee () == 1 || isieee () == 0) 394 %!assert (isieee () == 1 || isieee () == 0)
358 395
359 %!assert (isstruct (octave_config_info ())) 396 %!assert (isstruct (octave_config_info ()))
360 397
361 %!assert (isstruct (getrusage ())) 398 %!assert (isstruct (getrusage ()))
362