aboutsummaryrefslogtreecommitdiff
path: root/libjava/testsuite/libjava.cni/cni.exp
diff options
context:
space:
mode:
Diffstat (limited to 'libjava/testsuite/libjava.cni/cni.exp')
-rw-r--r--libjava/testsuite/libjava.cni/cni.exp119
1 files changed, 0 insertions, 119 deletions
diff --git a/libjava/testsuite/libjava.cni/cni.exp b/libjava/testsuite/libjava.cni/cni.exp
deleted file mode 100644
index 22df1462c1d..00000000000
--- a/libjava/testsuite/libjava.cni/cni.exp
+++ /dev/null
@@ -1,119 +0,0 @@
-# Tests for CNI code.
-
-# Compile a single C++ file and produce a .o file. OPTIONS is a list
-# of options to pass to the compiler. Returns 0 on failure, 1 on
-# success.
-proc gcj_cni_compile_cxx_to_o {file {options {}}} {
- global srcdir
-
- set name [file rootname [file tail $file]]
- set oname ${name}.o
-
- # Find the generated header.
- lappend options "additional_flags=-I. -I.."
- # Find libgcj headers.
- lappend options "additional_flags=-I$srcdir/.."
-
- set x [libjava_prune_warnings \
- [target_compile $file $oname object $options]]
- if {$x != ""} {
- verbose "target_compile failed: $x" 2
- fail "[file tail $file] compilation"
- return 0
- }
-
- pass "[file tail $file] compilation"
- return 1
-}
-
-# Build header files given name of .java file. Return 0 on failure.
-proc gcj_cni_build_headers {file} {
- set gcjh [find_gcjh]
- set jvscan [find_jvscan]
-
- set class_out [string trim \
- [libjava_prune_warnings \
- [lindex [local_exec "$jvscan --encoding=UTF-8 $file --list-class" "" "" 300] 1]]]
- if {[string match "*parse error*" $class_out]} {
- fail "$file header generation"
- return 0
- }
-
- foreach file [split $class_out] {
- set x [string trim [libjava_prune_warnings \
- [lindex [local_exec "$gcjh $file" "" "" 300] 1]]]
- if {$x != ""} {
- verbose "local_exec failed: $x" 2
- fail "$file header generation"
- return 0
- }
- }
-
- pass "$file header generation"
- return 1
-}
-
-# Do all the work for a single CNI test. Return 0 on failure.
-proc gcj_cni_test_one {file} {
- global runtests
-
- # The base name. We use it for several purposes.
- set main [file rootname [file tail $file]]
- if {! [runtest_file_p $runtests $main]} {
- # Simply skip it.
- return 1
- }
-
- 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"
-
- if {! [gcj_cni_build_headers $file]} {
- # FIXME
- return 0
- }
-
- set cfile [file join [file dirname $file] nat$main.cc]
- if {! [gcj_cni_compile_cxx_to_o $cfile]} {
- # FIXME
- return 0
- }
-
- if {! [gcj_link $main $main [list $file nat$main.o]]} {
- # FIXME
- return 0
- }
-
- if {! [gcj_invoke $main [file rootname $file].out {}]} {
- # FIXME
- return 0
- }
-
- # When we succeed we remove all our clutter.
- eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main nat$main.o]
-
- return 1
-}
-
-# Run the CNI tests.
-proc gcj_cni_run {} {
- global srcdir subdir
- global build_triplet host_triplet
-
- # For now we only test CNI on native builds.
- if {$build_triplet == $host_triplet} {
- catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.java] } srcfiles
-
- foreach x $srcfiles {
- gcj_cni_test_one $x
- }
- } else {
- verbose "CNI tests not run in cross-compilation environment"
- }
-}
-
-gcj_cni_run