From: Tom Tromey <tromey@cygnus.com>
Date: Mon, 3 Jan 2000 20:18:19 +0000 (+0000)
Subject: mauve.exp (mauve_compute_uses): Let user select specific tests to run.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f540ec244888cce9614dd91eff8a013897f01f9b;p=gcc.git

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 d2851a42a70..2209ee35ec0 100644
--- 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 398b6704c84..e98eeb86c7c 100644
--- 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]