* libjava.mauve/mauve.exp (mauve_compute_uses): Let user select
specific tests to run.
From-SVN: r31183
+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.
# 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]
}
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]