Mercurial > octave-antonio

comparison test/system.tst @ 19165:8553b88e5909

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
system.tst: Fix failing test if /dev/initctl is not present on UNIX system. * test/system.tst: Use exist() to check whether /dev/initctl is present before running SISFIFO test.
author Rik <rik@octave.org>
date Fri, 26 Sep 2014 09:36:02 -0700
parents dc51f26f0db5
children 9163a6e9b096
comparison
equal deleted inserted replaced
19164:ba167badef9f 19165:8553b88e5909
181 %!error <Invalid call to lstat> lstat () 181 %!error <Invalid call to lstat> lstat ()
182 %!error <Invalid call to lstat> lstat ("foo", 1) 182 %!error <Invalid call to lstat> lstat ("foo", 1)
183 183
184 %!test 184 %!test
185 %! if (isunix ()) 185 %! if (isunix ())
186 %! assert (S_ISCHR (stat ("/dev/null").mode)); 186 %! assert (S_ISCHR (stat ("/dev/null").mode));
187 %! assert (S_ISFIFO (stat ("/dev/initctl").mode)); 187 %! if (exist ("/dev/initctl"))
188 %! assert (S_ISLNK (lstat ("/dev/core").mode)); 188 %! assert (S_ISFIFO (stat ("/dev/initctl").mode));
189 %! endif
190 %! assert (S_ISLNK (lstat ("/dev/core").mode));
189 %! endif 191 %! endif
190 %! nm = tmpnam (); 192 %! nm = tmpnam ();
191 %! fid = fopen (nm, "wb"); 193 %! fid = fopen (nm, "wb");
192 %! fclose (fid); 194 %! fclose (fid);
193 %! r = [ 195 %! r = [ S_ISREG(stat(nm).mode)
194 %! S_ISREG(stat(nm).mode), 196 %! S_ISDIR(stat(nm).mode)
195 %! S_ISDIR(stat(nm).mode), 197 %! S_ISCHR(stat(nm).mode)
196 %! S_ISCHR(stat(nm).mode), 198 %! S_ISBLK(stat(nm).mode)
197 %! S_ISBLK(stat(nm).mode), 199 %! S_ISFIFO(stat(nm).mode)
198 %! S_ISFIFO(stat(nm).mode), 200 %! S_ISLNK(lstat(nm).mode)
199 %! S_ISLNK(lstat(nm).mode), 201 %! S_ISSOCK(stat(nm).mode) ];
200 %! S_ISSOCK(stat(nm).mode)];
201 %! unlink (nm); 202 %! unlink (nm);
202 %! assert (r(:), [true; false; false; false; false; false; false]); 203 %! assert (r(:), [true; false; false; false; false; false; false]);
203 204
204 %!error <octave_base_value::double_value ()> S_ISREG ({}) 205 %!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_ISDIR ({})
206 %!error <octave_base_value::double_value ()> S_ISCHR ({}) 207 %!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_ISBLK ({})
208 %!error <octave_base_value::double_value ()> S_ISFIFO ({}) 209 %!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_ISLNK ({})
210 %!error <octave_base_value::double_value ()> S_ISSOCK ({}) 211 %!error <octave_base_value::double_value> S_ISSOCK ({})
211 212
212 %!error <Invalid call to S_ISREG> S_ISREG () 213 %!error <Invalid call to S_ISREG> S_ISREG ()
213 %!error <Invalid call to S_ISDIR> S_ISDIR () 214 %!error <Invalid call to S_ISDIR> S_ISDIR ()
214 %!error <Invalid call to S_ISCHR> S_ISCHR () 215 %!error <Invalid call to S_ISCHR> S_ISCHR ()
215 %!error <Invalid call to S_ISBLK> S_ISBLK () 216 %!error <Invalid call to S_ISBLK> S_ISBLK ()