Mercurial > octave-nkf

changeset 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 7fad1fad19e1
children ff5e6cf72bda
files scripts/ChangeLog scripts/testfun/test.m
diffstat 2 files changed, 12 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Mon Jan 22 17:29:53 2007 +0000
+++ b/scripts/ChangeLog	Mon Jan 22 20:00:06 2007 +0000
@@ -1,3 +1,7 @@
+2007-01-22  Bob Weigel <rweigel@gmu.edu>
+
+	* testfun/test.m: Check for all files in path, use first found.
+
 2007-01-22  David Bateman  <dbateman@free.fr>
 
 	* polynomial/spline.m: Make DG a column instead of a row vector.
--- a/scripts/testfun/test.m	Mon Jan 22 17:29:53 2007 +0000
+++ b/scripts/testfun/test.m	Mon Jan 22 20:00:06 2007 +0000
@@ -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)