Mercurial > hg > octave-max

diff scripts/testfun/test.m @ 6249:c507206c45bc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-01-22 20:00:06 by jwe]
author jwe
date Mon, 22 Jan 2007 20:00:06 +0000
parents 34f96dd5441b
children ccdb8ffbb994
line wrap: on
line diff
--- a/scripts/testfun/test.m
+++ b/scripts/testfun/test.m
@@ -146,12 +146,16 @@
   endif
 
   ## locate the file to test
-  __file = file_in_loadpath (__name);
-  if (isempty (__file)) 
-    __file = file_in_loadpath ([__name, ".m"]);
+  __file = file_in_loadpath (__name, "all");
+  if (isempty (__file))
+    __file = file_in_loadpath ([__name, ".m"], "all");
   endif
   if (isempty (__file))
-    __file = file_in_loadpath ([__name, ".cc"]);
+    __file = file_in_loadpath ([__name, ".cc"], "all");
+  endif
+  if (iscell (__file))
+    ## If repeats, return first in path.
+    __file = __file{1};
   endif
   if (isempty (__file))
     if (__grabdemo)