OSDN Git Service

* libjava.loader/loader.exp (gcj_loader_test_one): Use
[pf3gnuchains/gcc-fork.git] / libjava / testsuite / libjava.loader / loader.exp
1 # Tests for ClassLoader and native library loader code.
2
3 # Do all the work for a single JNI test.  Return 0 on failure.
4 proc gcj_loader_test_one {srcfile} {
5   global objdir srcdir subdir
6
7   set resfile $srcdir/$subdir/[file rootname [file tail $srcfile]].out
8
9   regsub "^.*/(\[^/.\]+)\[.\]\[^/]*$" "$srcfile" "\\1" out
10   set executable "${objdir}/$out.exe"
11
12     set errname [file rootname [file tail $srcfile]]
13     set args [libjava_arguments link]
14     lappend args "additional_flags=--main=[file rootname [file tail $srcfile]] $srcdir/$subdir/MyLoader.java $objdir/dummy.o"
15   set x [libjava_prune_warnings \
16              [libjava_tcompile $srcfile "$executable" executable $args]]
17
18     if { $x != "" } {
19         verbose "target_compile failed: $x" 2
20
21         fail "$errname compilation from source"
22         untested "$errname execution from source compiled test"
23         return
24     }
25     pass "$errname compilation from source"
26
27     libjava_invoke $executable $executable "" $executable "" $resfile ""
28
29   return 1
30 }
31
32 # Run the bytecode loader tests.
33 proc gcj_loader_run {} {
34   global srcdir subdir objdir
35   global build_triplet host_triplet
36   global GCJ_UNDER_TEST
37
38   set file "${srcdir}/${subdir}/dummy.java"
39   if {! [bytecompile_file $file [pwd]]} {
40     fail "bytecompile $file"
41     # FIXME - should use `untested' on all remaining tests.
42     # But that is hard.
43     return 0
44   }
45   pass "bytecompile $file"
46
47   set args [libjava_arguments compile]
48   lappend args "additional_flags=--resource $objdir/dummy.class"
49   set x [libjava_prune_warnings \
50            [libjava_tcompile "$objdir/dummy.class" "$objdir/dummy.o" object $args]]
51
52     if { $x != "" } {
53         verbose "resource compilation failed: $x" 2
54
55         fail "resource compilation dummy.class"
56         return 0;
57     }
58   pass "resource compilation: dummy.class"
59
60   catch { lsort [glob -nocomplain ${srcdir}/${subdir}/Test*.java] } srcfiles
61
62   foreach x $srcfiles {
63     gcj_loader_test_one $x
64   }
65 }
66
67 gcj_loader_run