diff options
Diffstat (limited to 'gcc-4.7/libjava/testsuite/libjava.loader/loader.exp')
| -rw-r--r-- | gcc-4.7/libjava/testsuite/libjava.loader/loader.exp | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/gcc-4.7/libjava/testsuite/libjava.loader/loader.exp b/gcc-4.7/libjava/testsuite/libjava.loader/loader.exp deleted file mode 100644 index cdb356bd0..000000000 --- a/gcc-4.7/libjava/testsuite/libjava.loader/loader.exp +++ /dev/null @@ -1,77 +0,0 @@ -# Tests for ClassLoader and native library loader code. - -# Compute the correct name for an object file. -# This is an awful hack. -proc gcj_object_file_name {compiler base} { - verbose "OBJECT: compiler = $compiler" - if {[string match *libtool* $compiler]} { - return $base.lo - } - return $base.o -} - -# Do all the work for a single JNI test. Return 0 on failure. -proc gcj_loader_test_one {srcfile} { - global objdir srcdir subdir - - set resfile $srcdir/$subdir/[file rootname [file tail $srcfile]].out - - regsub "^.*/(\[^/.\]+)\[.\]\[^/]*$" "$srcfile" "\\1" out - set executable "${objdir}/$out.exe" - - set errname [file rootname [file tail $srcfile]] - set args [libjava_arguments link] - lappend args "additional_flags=--main=[file rootname [file tail $srcfile]] [gcj_object_file_name $args dummy]" - set x [libjava_prune_warnings \ - [libjava_tcompile $srcfile "$executable" executable $args]] - - if { $x != "" } { - verbose "target_compile failed: $x" 2 - - fail "$errname compilation from source" - untested "$errname execution from source compiled test" - return - } - pass "$errname compilation from source" - - libjava_invoke $errname "source compiled test" "" $executable "" $resfile "" - - return 1 -} - -# Run the bytecode loader tests. -proc gcj_loader_run {} { - global srcdir subdir objdir - global build_triplet host_triplet - global GCJ_UNDER_TEST - -# set file "${srcdir}/${subdir}/dummy.java" -# if {! [bytecompile_file $file [pwd]]} { -# fail "bytecompile $file" -# # FIXME - should use `untested' on all remaining tests. -# # But that is hard. -# return 0 -# } -# pass "bytecompile $file" - - set args [libjava_arguments compile] - lappend args "additional_flags=--resource $srcdir/$subdir/dummy.class" - set x [libjava_prune_warnings \ - [libjava_tcompile "$srcdir/$subdir/dummy.class" "$objdir/[gcj_object_file_name $args dummy]" object $args]] - - if { $x != "" } { - verbose "resource compilation failed: $x" 2 - - fail "resource compilation dummy.class" - return 0; - } - pass "resource compilation: dummy.class" - - catch { lsort [glob -nocomplain ${srcdir}/${subdir}/Test*.jar] } srcfiles - - foreach x $srcfiles { - gcj_loader_test_one $x - } -} - -gcj_loader_run |
