diff options
Diffstat (limited to 'libjava/testsuite')
| -rw-r--r-- | libjava/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 7 |
2 files changed, 11 insertions, 1 deletions
diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog index d2851a4..2209ee3 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 398b670..e98eeb8 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] |