Commit 9472b498 by Tom Tromey Committed by Tom Tromey

For PR java/12996:

	* libjava.jar/simple.jar: New file.
	* libjava.jar/simple.xfail: New file.
	* libjava.jar/simple.out: New file.
	* libjava.jar/simple.java: New file.
	* libjava.jar/jar.exp: New file.

From-SVN: r73426
parent 9596236a
2003-11-10 Tom Tromey <tromey@redhat.com>
For PR java/12996:
* libjava.jar/simple.jar: New file.
* libjava.jar/simple.xfail: New file.
* libjava.jar/simple.out: New file.
* libjava.jar/simple.java: New file.
* libjava.jar/jar.exp: New file.
2003-11-08 Tom Tromey <tromey@redhat.com>
* libjava.jacks/jacks.xfail: Updated.
......
# Tests for .jar files.
# Compile a single .jar file to an executable.
# Returns 0 on failure.
proc gcj_jar_link {jarfile mainclass} {
}
proc gcj_jar_compile_one {jarfile mainclass} {
set base [file rootname [file tail $jarfile]]
set out [file rootname $jarfile].out
if {! [gcj_link $base $mainclass [list $jarfile]]} {
return
}
gcj_invoke $base $out {}
}
proc gcj_jar_interpret {jarfile} {
global INTERPRETER srcdir
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"} {
untested "$jarfile execution - gij test"
untested "$jarfile output - gij test"
return
}
set opts(_) {}
set out [file rootname $jarfile].out
libjava_invoke $jarfile "gij test" opts $gij {} $out \
-jar $jarfile
}
proc gcj_jar_run {} {
global srcdir subdir
foreach jar [lsort [glob -nocomplain ${srcdir}/${subdir}/*.jar]] {
set xff [file rootname $jar].xfail
set main {}
set interp 1
foreach item [libjava_read_xfail $xff] {
if {[string match main=* $item]} {
set main [string range $item 5 end]
break
} elseif {$item == "no-interpret"} {
set interp 0
}
}
gcj_jar_compile_one $jar $main
if {$interp} {
gcj_jar_interpret $jar
}
}
}
gcj_jar_run
public class simple
{
public static void main(String[] args)
{
System.out.println("hi");
}
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment