diff options
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 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] |