procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mauve.exp (mauve_find_harness_files): New proc.

Browse source 
* libjava.mauve/mauve.exp (mauve_find_harness_files): New proc.
	(test_mauve): Use it.
	(test_mauve_sim): Likewise.

From-SVN: r69620
This commit is contained in:
Tom Tromey 2003-07-21 01:09:47 +00:00 • committed by Tom Tromey
parent 0292e50e95
commit 3c87bc22a9
2 changed files with 18 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libjava/testsuite/libjava.mauve/mauve.exp
View file

@ -74,6 +74,16 @@ proc find_mauve_sources {} {
return 0
}
# Find all the harness files and return a list of them, with no
# suffix.
proc mauve_find_harness_files {} {
set result {}
foreach file [glob -nocomplain -- *.class gnu/testlet/*.class] {
lappend result [file root $file]
}
return $result
}
# Run all the Mauve tests. Return 1 on success, 0 on any failure. If
# the tests are skipped, that is treated like success.
proc test_mauve {} {
@ -159,7 +169,7 @@ proc test_mauve {} {
set ok 1
set objlist {}
foreach base {DejaGNUTestHarness gnu/testlet/SimpleTestHarness gnu/testlet/TestHarness gnu/testlet/Testlet gnu/testlet/ResourceNotFoundException gnu/testlet/config} {
foreach base [mauve_find_harness_files] {
set file $base.class
set obj $base.o
set x [libjava_prune_warnings \
@ -298,9 +308,7 @@ proc test_mauve_sim {} {
set ok 1
set objlist {}
foreach base {gnu/testlet/SimpleTestHarness gnu/testlet/TestHarness \
gnu/testlet/Testlet gnu/testlet/ResourceNotFoundException \
gnu/testlet/config} {
foreach base [mauve_find_harness_files] {
set file $base.class
set obj $base.o
set x [libjava_prune_warnings \