mauve.exp (mauve_compute_uses): Let user select specific tests to run.

	* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select
	specific tests to run.

From-SVN: r31183

libjava/testsuite/ChangeLog

+1999-12-31  Tom Tromey  <tromey@cygnus.com>
+
+	* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select
+	specific tests to run.
+
 1999-10-19  Bryce McKinlay  <bryce@albatross.co.nz>
 
 	* libjava.compile/invokeinterface: New directory.

libjava/testsuite/libjava.mauve/mauve.exp

@@ -10,7 +10,7 @@
 # maps source file names onto list of objects required for link.
 proc mauve_compute_uses {aName} {
   upvar $aName uses
-  global env
+  global env runtests
 
   set fd [open classes r]
   set line [read $fd]
@@ -22,6 +22,11 @@ proc mauve_compute_uses {aName} {
     }
     set item [join [split $item .] /].java
 
+    # User might have specified "mauve.exp=something.java".
+    if {! [runtest_file_p $runtests $item]} {
+      continue
+    }
+
     # Look for Uses line in source file.
     set fd [open $env(MAUVEDIR)/$item r]
     set ufiles [list $item]