* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select

	specific tests to run.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@31183 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index d2851a4..2209ee3 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 398b670..e98eeb8 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]