diff options
| author | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-01-03 20:18:19 +0000 |
|---|---|---|
| committer | tromey <tromey@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-01-03 20:18:19 +0000 |
| commit | df163bbeaba27966a459e719c7b94923dea5d27c (patch) | |
| tree | 769c8f62e0715fed8f922531c84fa5ed86d5a916 /libjava/testsuite/libjava.mauve/mauve.exp | |
| parent | 69ccef955d0dae5fbecc048e317910ba08371652 (diff) | |
| download | ppe42-gcc-df163bbeaba27966a459e719c7b94923dea5d27c.tar.gz ppe42-gcc-df163bbeaba27966a459e719c7b94923dea5d27c.zip | |
* 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
Diffstat (limited to 'libjava/testsuite/libjava.mauve/mauve.exp')
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 7 |
1 files changed, 6 insertions, 1 deletions
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] |
