mauve.exp (test_mauve): Call `prune_warnings'.

	* libjava.mauve/mauve.exp (test_mauve): Call `prune_warnings'.
	(test_mauve_sim): Likewise.
	(test_mauve): Redirect stderr in system call.
	(test_mauve_sim): Likewise.
	* lib/libjava.exp (test_libjava_from_source): Call
	`prune_warnings'.
	(test_libjava_from_javac): Likewise.
	(bytecompile_file): Redirect stderr in system call.
	* lib/libjava.exp (libjava_find_program): New proc.
	(find_jvscan): Use it.
	(find_gcjh): New proc.

	* libjava.compile/compile.exp: Use "", not $options.

From-SVN: r33959

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index 94d75a8bcf9a54ce5cae8c1b1b2ee19467360a9a..5abc88e57965f1b6365b2a84c912132c81c981d7 100644 (file)
--- a/libjava/testsuite/ChangeLog
+++ b/libjava/testsuite/ChangeLog
@@ -1,3 +1,19 @@
+2000-05-17  Tom Tromey  <tromey@cygnus.com>
+
+       * libjava.mauve/mauve.exp (test_mauve): Call `prune_warnings'.
+       (test_mauve_sim): Likewise.
+       (test_mauve): Redirect stderr in system call.
+       (test_mauve_sim): Likewise.
+       * lib/libjava.exp (test_libjava_from_source): Call
+       `prune_warnings'.
+       (test_libjava_from_javac): Likewise.
+       (bytecompile_file): Redirect stderr in system call.
+       * lib/libjava.exp (libjava_find_program): New proc.
+       (find_jvscan): Use it.
+       (find_gcjh): New proc.
+
+       * libjava.compile/compile.exp: Use "", not $options.
+
 2000-05-16  Tom Tromey  <tromey@cygnus.com>
 
        * libjava.lang/instance.out: New file.

diff --git a/libjava/testsuite/lib/libjava.exp b/libjava/testsuite/lib/libjava.exp
index c561a3a7d70b3c42cf23bb4e5aa3ba0a09c90c5a..3d1e8c8b5a1da2a85365715066d60a49ed44e211 100644 (file)
--- a/libjava/testsuite/lib/libjava.exp
+++ b/libjava/testsuite/lib/libjava.exp
@@ -21,21 +21,31 @@ proc libjava_read_xfail {file} {
     return $tokens
 }
 
-# Find `jv-scan'.  FIXME: this relies on DejaGnu internals.  These
-# should probably be exposed in a better way.
-proc find_jvscan {} {
+# Find a particular executable.  FIXME: this relies on DejaGnu
+# internals.  These should probably be exposed in a better way.
+proc libjava_find_program {prog} {
     global tool_root_dir
 
-    set file [lookfor_file $tool_root_dir jv-scan]
+    set file [lookfor_file $tool_root_dir $prog]
     if { $file == "" } {
-       set file [lookfor_file $tool_root_dir gcc/jv-scan];
+       set file [lookfor_file $tool_root_dir gcc/$prog];
     }
     if {$file == ""} {
-       set file jv-scan
+       set file $prog
     }
     return $file
 }
 
+# Find `jv-scan'.
+proc find_jvscan {} {
+    return [libjava_find_program jv-scan]
+}
+
+# Find `gcjh'.
+proc find_gcjh {} {
+    return [libjava_find_program gcjh]
+}
+
 proc bytecompile_file { file objdir {classpath {}} } {
     global env
     global SUN_JAVAC
@@ -61,7 +71,9 @@ proc bytecompile_file { file objdir {classpath {}} } {
     if {$classpath != ""} then {
         set env(CLASSPATH) $classpath
     }
-    if {[catch {system "cd $dirname; $SUN_JAVAC $file -d $objdir"} msg]} then {
+    if {[catch {
+       system "cd $dirname; $SUN_JAVAC $file -d $objdir 2>&1"
+    } msg]} then {
        verbose "couldn't compile $file: $msg"
        set r 0
     } else {
@@ -270,20 +282,6 @@ proc libjava_arguments {{mode compile}} {
 #
 # Run the test specified by srcfile and resultfile. compile_args and
 # exec_args are options telling this proc how to work.
-#   `no-link'     don't try to link the program
-#   `no-exec'     don't try to run the test
-#   `xfail-gcj'   compilation from source will fail
-#   `xfail-javac' compilation with javac will fail
-#   `xfail-gcjC'  compilation with gcj -C will fail
-#   `shouldfail'  compilation from source is supposed to fail
-#                 This is different from xfail, which marks a known
-#                 failure that we just havne't fixed.
-#                 A compilation marked this way should fail with any
-#                 front end.
-#   `xfail-byte'  compilation from bytecode will fail
-#   `xfail-exec'  exec will fail
-#   `xfail-output' output will be wrong
-#   
 #
 proc test_libjava_from_source { options srcfile compile_args inpfile resultfile exec_args } {
     global base_dir
@@ -333,7 +331,8 @@ proc test_libjava_from_source { options srcfile compile_args inpfile resultfile
        set errname "$errname $compile_args"
     }
 
-    set x [target_compile $srcfile "$executable" $target $args]
+    set x [prune_warnings \
+            [target_compile $srcfile "$executable" $target $args]]
     if {[info exists opts(xfail-gcj)]} {
        setup_xfail *-*-*
     }
@@ -419,19 +418,6 @@ proc test_libjava_from_source { options srcfile compile_args inpfile resultfile
 #
 # Run the test specified by srcfile and resultfile. compile_args and
 # exec_args are options telling this proc how to work.
-#   `no-link'     don't try to link the program
-#   `no-exec' don't try to run the test
-#   `xfail-gcj'   compilation from source will fail
-#   `xfail-javac' compilation with javac will fail
-#   `xfail-gcjC'  compilation with gcj -C will fail
-#   `shouldfail'  compilation from source is supposed to fail
-#                 This is different from xfail, which marks a known
-#                 failure that we just havne't fixed.
-#                 A compilation marked this way should fail with any
-#                 front end.
-#   `xfail-byte'  compilation from bytecode will fail
-#   `xfail-exec'  exec will fail
-#   `xfail-output' output will be wrong
 #
 proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile exec_args } {
     global base_dir
@@ -488,12 +474,14 @@ proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile e
     set jvscan [find_jvscan]
     verbose "jvscan is $jvscan"
     set main_name [string trim \
-                    [target_compile $srcfile "" none \
-                       "compiler=$jvscan additional_flags=--print-main"]]
+                    [prune_warnings \
+                       [target_compile $srcfile "" none \
+                          "compiler=$jvscan additional_flags=--print-main"]]]
     verbose "main name is $main_name"
     set class_out [string trim \
-                    [target_compile $srcfile "" none \
-                       "compiler=$jvscan additional_flags=--list-class"]]
+                    [prune_warnings \
+                       [target_compile $srcfile "" none \
+                          "compiler=$jvscan additional_flags=--list-class"]]]
     verbose "class list is $class_out"
 
     if {[string match "*parse error*" $main_name]
@@ -559,13 +547,15 @@ proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile e
     if {$mode == "compile"} {
        foreach c_file $class_files {
            set executable [file rootname [file tail $c_file]].o
-           set x [target_compile $c_file "$executable" $type $args]
+           set x [prune_warnings \
+                    [target_compile $c_file "$executable" $type $args]]
            if {$x != ""} {
                break
            }
        }
     } else {
-       set x [target_compile $class_files "$executable" $type $args]
+       set x [prune_warnings \
+                [target_compile $class_files "$executable" $type $args]]
     }
     if {[info exists opts(xfail-byte)]} {
        setup_xfail *-*-*

diff --git a/libjava/testsuite/libjava.compile/compile.exp b/libjava/testsuite/libjava.compile/compile.exp
index 3d9c13b78b64173f6c3e145f9d6491b706e9f3b8..4a358a6d37d15dc25c78c22e50374256fe0d3eda 100644 (file)
--- a/libjava/testsuite/libjava.compile/compile.exp
+++ b/libjava/testsuite/libjava.compile/compile.exp
@@ -11,8 +11,8 @@ foreach x $srcfiles {
     }
     lappend args no-exec
 
-    test_libjava $options "$x" "" "" "" $args
-    test_libjava $options "$x" "-O" "" "" $args
+    test_libjava "" "$x" "" "" "" $args
+    test_libjava "" "$x" "-O" "" "" $args
 }
 
 # Local Variables:

diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp
index 160c2411efe2b6b09c1e3932db478f28ed628e2b..04f637a747d9fb852ca28f45eaadc0f8850fa9ec 100644 (file)
--- a/libjava/testsuite/libjava.mauve/mauve.exp
+++ b/libjava/testsuite/libjava.mauve/mauve.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 1998, 1999 Free Software Foundation.
+# Copyright (C) 1998, 1999, 2000 Free Software Foundation.
 # Written by Tom Tromey <tromey@cygnus.com>.
 # Incorporate Mauve into libjava's DejaGNU test suite framework.
 
@@ -90,7 +90,9 @@ proc test_mauve {} {
     # before they're installed.
     set env(GCJ) "$GCJ_UNDER_TEST -B$objdir/../ -I$objdir/../libgcj.zip"
 
-  if {[catch {system "$env(MAUVEDIR)/configure --with-gcj"} msg]} then {
+  if {[catch {
+    system "$env(MAUVEDIR)/configure --with-gcj 2>@ stdout"
+  } msg]} then {
     fail "Mauve configure"
     verbose "configure failed with $msg"
     return
@@ -105,7 +107,9 @@ proc test_mauve {} {
   puts -nonewline $fd $c
   close $fd
 
-  if {[catch {system "make KEYS=libgcj classes.stamp"} msg]} then {
+  if {[catch {
+    system "make KEYS=libgcj classes.stamp 2>&1"
+  } msg]} then {
     fail "Mauve build"
     verbose "build failed with $msg"
     return
@@ -132,7 +136,9 @@ proc test_mauve {} {
   foreach base {DejaGNUTestHarness gnu/testlet/SimpleTestHarness gnu/testlet/TestHarness gnu/testlet/Testlet gnu/testlet/ResourceNotFoundException gnu/testlet/config} {
     set file $base.class
     set obj $base.o
-    if {[target_compile [pwd]/$file $obj object $compile_args] != ""} then {
+    set x [prune_warnings \
+            [target_compile [pwd]/$file $obj object $compile_args]]
+    if {$x != ""} then {
       fail "Compile $obj"
       set ok 0
     } else {
@@ -155,8 +161,9 @@ proc test_mauve {} {
       if {! [file exists $obj]} then {
        verbose "compiling $obj for test of $class"
        set srcfile [file rootname $obj].class
-       if {[target_compile [pwd]/$srcfile $obj object $compile_args]
-           != ""} then {
+       set x [prune_warnings \
+                [target_compile [pwd]/$srcfile $obj object $compile_args]]
+       if {$x != ""} then {
          fail "Compile $obj for $class"
          set ok 0
          break
@@ -168,8 +175,9 @@ proc test_mauve {} {
       continue
     }
 
-    if {[target_compile [concat $uses($file) $objlist] \
-          $Executable executable $link_args] != ""} then {
+    set x [prune_warnings [target_compile [concat $uses($file) $objlist] \
+                            $Executable executable $link_args]]
+    if {$x != ""} then {
       fail "Link for $class"
       continue
     }
@@ -223,7 +231,9 @@ proc test_mauve_sim {} {
   set full_srcdir [pwd]
   cd $here/mauve-build
 
-  if {[catch {system "$env(MAUVEDIR)/configure --with-gcj"} msg]} then {
+  if {[catch {
+    system "$env(MAUVEDIR)/configure --with-gcj 2>&1"
+  } msg]} then {
     fail "Mauve configure"
     verbose "configure failed with $msg"
     return
@@ -238,7 +248,9 @@ proc test_mauve_sim {} {
   puts -nonewline $fd $c
   close $fd
 
-  if {[catch {system "make KEYS=libgcj classes.stamp"} msg]} then {
+  if {[catch {
+    system "make KEYS=libgcj classes.stamp 2>&1"
+  } msg]} then {
     fail "Mauve build"
     verbose "build failed with $msg"
     return
@@ -260,7 +272,9 @@ proc test_mauve_sim {} {
                  gnu/testlet/config} {
     set file $base.class
     set obj $base.o
-    if {[target_compile [pwd]/$file $obj object $compile_args] != ""} then {
+    set x [prune_warnings \
+            [target_compile [pwd]/$file $obj object $compile_args]]
+    if {$x != ""} then {
       fail "Compile $obj"
       set ok 0
     } else {
@@ -286,8 +300,9 @@ proc test_mauve_sim {} {
       if {! [file exists $obj]} then {
        verbose "compiling $obj for test of $class"
        set srcfile [file rootname $obj].class
-       if {[target_compile [pwd]/$srcfile $obj object $compile_args]
-           != ""} then {
+       set x [prune_warnings \
+                [target_compile [pwd]/$srcfile $obj object $compile_args]]
+       if {$x != ""} then {
          fail "Compile $obj for $class"
          set ok 0
          break
@@ -320,15 +335,17 @@ proc test_mauve_sim {} {
        return
     }
 
-    if {[target_compile gnu/testlet/DejaGNUTestHarness.class \
-           gnu/testlet/DejaGNUTestHarness.o object $compile_args]
-      != ""} then {
+    set x [prune_warnings \
+            [target_compile gnu/testlet/DejaGNUTestHarness.class \
+               gnu/testlet/DejaGNUTestHarness.o object $compile_args]]
+    if {$x != ""} then {
        fail "Compile DejaGNUTestHarness.java"
        continue
       }
 
-    if {[target_compile [concat $uses($file) $objlist] \
-          $Executable executable $link_args] != ""} then {
+    set x [prune_warnings [target_compile [concat $uses($file) $objlist] \
+                            $Executable executable $link_args]]
+    if {$x != ""} then {
       fail "Link for $class"
       continue
     }