From df163bbeaba27966a459e719c7b94923dea5d27c Mon Sep 17 00:00:00 2001 From: tromey Date: Mon, 3 Jan 2000 20:18:19 +0000 Subject: [PATCH] * 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 --- libjava/testsuite/ChangeLog | 5 +++++ libjava/testsuite/libjava.mauve/mauve.exp | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 + + * libjava.mauve/mauve.exp (mauve_compute_uses): Let user select + specific tests to run. + 1999-10-19 Bryce McKinlay * 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] -- 2.11.0