Mercurial > octave-antonio

diff scripts/testfun/rundemos.m @ 8699:6e764b7317bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test/fntests.m, scripts/test/demo.m: error on fopen failures
author John W. Eaton <jwe@octave.org>
date Mon, 09 Feb 2009 01:56:06 -0500
parents 166a689b77a9
children 5dd06f19e9be
line wrap: on
line diff
--- a/scripts/testfun/rundemos.m	Sun Feb 08 23:00:27 2009 -0500
+++ b/scripts/testfun/rundemos.m	Mon Feb 09 01:56:06 2009 -0500
@@ -69,7 +69,11 @@
 
 function retval = has_demos (f)
   fid = fopen (f);
-  str = fscanf (fid, "%s");
-  fclose (fid);
-  retval = findstr (str, "%!demo");
+  if (f < 0)
+    error ("fopen failed: %s", f);
+  else
+    str = fscanf (fid, "%s");
+    fclose (fid);
+    retval = findstr (str, "%!demo");
+  endif
 endfunction