+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
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 {} {
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 \
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 \