OSDN Git Service

* testsuite/libjava.jacks/jacks.exp (gcj_jacks_write): Explicitly
[pf3gnuchains/gcc-fork.git] / libjava / testsuite / libjava.jacks / jacks.exp
1 # Run the Jacks test suite.
2 # See http://www-124.ibm.com/developerworks/oss/cvs/jikes/~checkout~/jacks/jacks.html
3
4 proc gcj_jacks_setup_xfail {ary} {
5   upvar $ary array
6   global srcdir
7
8   set fd [open $srcdir/libjava.jacks/jacks.xfail]
9   while {! [eof $fd]} {
10     set array([gets $fd]) {}
11   }
12   close $fd
13 }
14
15 proc gcj_jacks_write {filename} {
16   global GCJ_UNDER_TEST
17   global libgcj_jar
18   global libjava_libgcc_s_path
19   global original_ld_library_path
20
21   set gcjl [split $GCJ_UNDER_TEST]
22   set gcj_cmd [lindex $gcjl 0]
23   set rest [join [lreplace $gcjl 0 0]]
24   append rest " -C"
25
26   set fd [open $filename w]
27   puts $fd "set JAVAC $gcj_cmd"
28   puts $fd "set JAVA_CLASSPATH \"$libgcj_jar\""
29   puts $fd "set JAVAC_FLAGS [list $rest]"
30   puts $fd "set JAVA [list [libjava_find_gij]]"
31
32   # Without an explicit limit on the heap size, tests depending on
33   # an OutOfMemoryError (e.g. "15.9.4-runtime-creation-2") can result
34   # in a lot of unnecessary thrashing.
35   puts $fd "set JAVA_FLAGS \"-mx=64m\""
36
37   puts $fd "set JAVAC_ENCODING_FLAG --encoding="
38   puts $fd "set tcltest::testConstraints(encoding) 1"
39   puts $fd "set tcltest::testConstraints(gcj) 1"
40   puts $fd "set tcltest::testConstraints(assert) 1"
41   # "Time-consuming JVM limitation tests".
42   # puts $fd "set tcltest::testConstraints(jvm) 1"
43   close $fd
44
45   setenv LD_LIBRARY_PATH $libjava_libgcc_s_path:$original_ld_library_path
46 }
47
48 proc gcj_jacks_parse {file} {
49   if {[catch {open $file} fd]} {
50     verbose "couldn't parse Jacks output: $fd"
51     return
52   }
53
54   verbose "Reading jacks.xfail"
55   gcj_jacks_setup_xfail xfails
56
57   while {! [eof $fd]} {
58     set line [gets $fd]
59     if {[string match RESULT* $line]} {
60       set linelist [split $line]
61       set test [lindex $linelist 1]
62       if {[info exists xfails($test)]} {
63         setup_xfail "*-*-*"
64       }
65       if {[lindex $linelist 2] == "PASSED"} {
66         pass $test
67       } else {
68         fail $test
69       }
70     }
71   }
72
73   close $fd
74 }
75
76 proc gcj_jacks_run {} {
77   global srcdir
78
79   if {! [file isdirectory $srcdir/libjava.jacks/jacks]} {
80     # No tests.
81     verbose "Jacks tests not found"
82     return
83   }
84
85   # Jacks forces us to do this.  You can't run it from a separate
86   # tree.
87   verbose "Copying Jacks..."
88   catch {system "rm -rf jacks"}
89   catch {system "cp -r $srcdir/libjava.jacks/jacks jacks"}
90
91   set here [pwd]
92   cd jacks
93
94   verbose "Writing Jacks setup file"
95   gcj_jacks_write gcj_setup
96
97   verbose "Running Jacks..."
98   # Just ignore error exits from the jacks program.
99   # It will always error exit for us, since don't completely pass.
100   catch {exec ./jacks gcj} msg
101
102   gcj_jacks_parse logging/gcj.log
103
104   cd $here
105 }
106
107 gcj_jacks_run