+2003-11-18 Andreas Tobler <a.tobler@schweiz.ch>
+
+ * libjava.jar/jar.exp: Cleanup files and reset CLASSPATH.
+
2003-11-17 Jeff Sturm <jsturm@one-point.com>
* libjava.compile/PR12857.java: New test case.
proc gcj_jar_interpret {jarfile} {
global INTERPRETER srcdir
- set gij [libjava_find_gij]
+ set gij [libjava_find_gij]
# libjava_find_gij will return `gij' if it couldn't find the
# program; in this case we want to skip the test.
if {$INTERPRETER != "yes" || $gij == "gij"} {
}
proc gcj_jar_run {} {
- global srcdir subdir
+ global srcdir subdir env
foreach jar [lsort [glob -nocomplain ${srcdir}/${subdir}/*.jar]] {
set xff [file rootname $jar].xfail
set main {}
gcj_jar_interpret $jar
}
}
+ # When we succeed we remove all our clutter.
+ eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main ]
+
+ # Reset CLASSPATH that we do not look into testsuite/libjava.jar for *.jar
+ # files which do not belong to the libgcj itself.
+ set env(CLASSPATH) ""
+
+ return 1
}
gcj_jar_run