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

jvmti-interp.exp: New file.

Browse source 
2007-01-25  Kyle Galloway  <kgallowa@redhat.com>

    * libjava/testsuite/libjava.jvmti/jvmti-interp.exp: New file.
    * libjava/testsuite/libjava.jvmti/interp: New folder.
    * libjava/testsuite/lib/libjava.exp (exec_gij): New Method.

From-SVN: r121172
This commit is contained in:
Kyle Galloway 2007-01-25 14:19:05 +00:00
parent 6bfcbf0d48
commit 05296a2810
2 changed files with 202 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

44
libjava/testsuite/lib/libjava.exp
View file

@ -494,6 +494,50 @@ proc gcj_invoke {program expectFile ld_library_additions} {
}
}
proc exec_gij {jarfile expectFile ld_library_additions} {
global env
global libjava_ld_library_path
global ld_library_path
set ld_library_path "$libjava_ld_library_path"
if {[llength $ld_library_additions] > 0} {
append ld_library_path :[join $ld_library_additions :]
}
set_ld_library_path_env_vars
if [info exists env(LD_LIBRARY_PATH)] {
verbose "LD_LIBRARY_PATH=$env(LD_LIBRARY_PATH)"
}
set gij [libjava_find_gij]
set classname [file rootname [file tail $jarfile]]
set result [libjava_load $gij "-cp $jarfile" "$classname"]
set status [lindex $result 0]
set output [lindex $result 1]
restore_ld_library_path_env_vars
if {$status != "pass"} {
verbose "got $output"
fail "$classname run"
untested "$classname output"
return 0
}
set id [open $expectFile r]
set expected [read $id]
close $id
if [! [string compare $output $expected]] {
pass "$classname output"
return 1
} else {
fail "$classname output"
return 0
}
}
# Invoke a program and check its output. EXECUTABLE is the program;
# ARGS are the arguments to the program. Returns 1 if tests passed
# (or things were left untested), 0 otherwise.