diff options
| author | Tom Tromey <tromey@cygnus.com> | 2000-01-03 20:18:19 +0000 |
|---|---|---|
| committer | Tom Tromey <tromey@gcc.gnu.org> | 2000-01-03 20:18:19 +0000 |
| commit | f540ec244888cce9614dd91eff8a013897f01f9b (patch) | |
| tree | 769c8f62e0715fed8f922531c84fa5ed86d5a916 /libjava/testsuite | |
| parent | 1a75bc3340bfcaa6f4353b837c753c676cd5113a (diff) | |
| download | gcc-f540ec244888cce9614dd91eff8a013897f01f9b.zip gcc-f540ec244888cce9614dd91eff8a013897f01f9b.tar.gz gcc-f540ec244888cce9614dd91eff8a013897f01f9b.tar.bz2 | |
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
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] |