# HG changeset patch
# User jwe
# Date 1169496006 0
# Node ID c507206c45bc3a78152193971c5d83e981ed8034
# Parent  7fad1fad19e103a49f69e57264dc09895ddbf319
[project @ 2007-01-22 20:00:06 by jwe]

diff -r 7fad1fad19e1 -r c507206c45bc scripts/ChangeLog
--- 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.
diff -r 7fad1fad19e1 -r c507206c45bc scripts/testfun/test.m
--- 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)