libjava/testsuite/libjava.cni/cni.exp

   1 # Tests for CNI code.
   2
   3 # Compile a single C++ file and produce a .o file.  OPTIONS is a list
   4 # of options to pass to the compiler.  Returns 0 on failure, 1 on
   5 # success.
   6 proc gcj_cni_compile_cxx_to_o {file {options {}}} {
   7   global srcdir
   8
   9   set name [file rootname [file tail $file]]
  10   set oname ${name}.o
  11
  12   # Find the generated header.
  13   lappend options "additional_flags=-I. -I.."
  14   # Find libgcj headers.
  15   lappend options "additional_flags=-I$srcdir/.."
  16
  17   set x [libjava_prune_warnings \
  18            [target_compile $file $oname object $options]]
  19   if {$x != ""} {
  20     verbose "target_compile failed: $x" 2
  21     fail "[file tail $file] compilation"
  22     return 0
  23   }
  24
  25   pass "[file tail $file] compilation"
  26   return 1
  27 }
  28
  29 # Build header files given name of .java file.  Return 0 on failure.
  30 proc gcj_cni_build_headers {file} {
  31   set gcjh [find_gcjh]
  32   set jvscan [find_jvscan]
  33
  34   set class_out [string trim \
  35                    [libjava_prune_warnings \
  36                       [lindex [local_exec "$jvscan --encoding=UTF-8 $file --list-class" "" "" 300] 1]]]
  37   if {[string match "*parse error*" $class_out]} {
  38     fail "$file header generation"
  39     return 0
  40   }
  41
  42   foreach file [split $class_out] {
  43     set x [string trim [libjava_prune_warnings \
  44                           [lindex [local_exec "$gcjh $file" "" "" 300] 1]]]
  45     if {$x != ""} {
  46       verbose "local_exec failed: $x" 2
  47       fail "$file header generation"
  48       return 0
  49     }
  50   }
  51
  52   pass "$file header generation"
  53   return 1
  54 }
  55
  56 # Do all the work for a single CNI test.  Return 0 on failure.
  57 proc gcj_cni_test_one {file} {
  58   global runtests
  59
  60   # The base name.  We use it for several purposes.
  61   set main [file rootname [file tail $file]]
  62   if {! [runtest_file_p $runtests $main]} {
  63     # Simply skip it.
  64     return 1
  65   }
  66
  67   if {! [bytecompile_file $file [pwd]]} {
  68     fail "bytecompile $file"
  69     # FIXME - should use `untested' on all remaining tests.
  70     # But that is hard.
  71     return 0
  72   }
  73   pass "bytecompile $file"
  74
  75   if {! [gcj_cni_build_headers $file]} {
  76     # FIXME
  77     return 0
  78   }
  79
  80   set cfile [file join [file dirname $file] nat$main.cc]
  81   if {! [gcj_cni_compile_cxx_to_o $cfile]} {
  82     # FIXME
  83     return 0
  84   }
  85
  86   if {! [gcj_link $main $main [list $file nat$main.o]]} {
  87     # FIXME
  88     return 0
  89   }
  90
  91   if {! [gcj_invoke $main [file rootname $file].out {}]} {
  92     # FIXME
  93     return 0
  94   }
  95
  96   # When we succeed we remove all our clutter.
  97   eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main nat$main.o]
  98
  99   return 1
 100 }
 101
 102 # Run the CNI tests.
 103 proc gcj_cni_run {} {
 104   global srcdir subdir
 105   global build_triplet host_triplet
 106
 107   # For now we only test CNI on native builds.
 108   if {$build_triplet == $host_triplet} {
 109     catch { lsort [glob -nocomplain ${srcdir}/${subdir}/*.java] } srcfiles
 110
 111     foreach x $srcfiles {
 112       gcj_cni_test_one $x
 113     }
 114   } else {
 115     verbose "CNI tests not run in cross-compilation environment"
 116   }
 117 }
 118
 119 gcj_cni_run