OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libjava/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2003-07-20 Tom Tromey <tromey@redhat.com>
* libjava.mauve/mauve.exp (mauve_find_harness_files): New proc.
(test_mauve): Use it.
(test_mauve_sim): Likewise.
2003-07-19 Tom Tromey <tromey@redhat.com>
* libjava.verify/verify.exp (gcj_verify_list_tests): Only change

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 \