libjava/testsuite/libjava.loader/loader.exp

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