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

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index d2851a42a70741e50e0ac5f44bee2d5f73af525b..2209ee35ec03154b2138f5de3eefbbd5c21bbf0d 100644 (file)
--- a/libjava/testsuite/ChangeLog
+++ b/libjava/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp
index 398b6704c84c44c273104442b645fa852327096d..e98eeb86c7c7ae9821a52c5cdbeee2e8f52c5867 100644 (file)
--- a/libjava/testsuite/libjava.mauve/mauve.exp
+++ b/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]