1 files changed, 0 insertions, 68 deletions
diff --git a/libjava/testsuite/libjava.jar/jar.exp b/libjava/testsuite/libjava.jar/jar.exp
deleted file mode 100644
index e57bcb3..0000000
--- a/libjava/testsuite/libjava.jar/jar.exp
+++ /dev/null
@@ -1,68 +0,0 @@
-# Tests for .jar files.
-
-# Compile a single .jar file to an executable.
-# Returns 0 on failure.
-proc gcj_jar_link {jarfile mainclass} {
-}
-
-proc gcj_jar_compile_one {jarfile mainclass} {
-  set base [file rootname [file tail $jarfile]]
-  set out [file rootname $jarfile].out
-
-  if {! [gcj_link $base $mainclass [list $jarfile]]} {
-    return
-  }
-
-  gcj_invoke $base $out {}
-}
-
-proc gcj_jar_interpret {jarfile} {
-  global INTERPRETER srcdir
-
-  set gij [libjava_find_gij]
-  set errname [dg-trim-dirname $srcdir $jarfile]
-  # libjava_find_gij will return "" if it couldn't find the
-  # program; in this case we want to skip the test.
-  if {$INTERPRETER != "yes" || $gij == ""} {
-    untested "$errname execution - gij test"
-    untested "$errname output - gij test"
-    return
-  }
-
-  set opts(_) {}
-  set out [file rootname $jarfile].out
-  libjava_invoke $errname "gij test" opts $gij {} $out \
-      "" -jar $jarfile
-}
-
-proc gcj_jar_run {} {
-  global srcdir subdir env
-  foreach jar [lsort [glob -nocomplain ${srcdir}/${subdir}/*.jar]] {
-    set xff [file rootname $jar].xfail
-    set main {}
-    set interp 1
-    foreach item [libjava_read_xfail $xff] {
-      if {[string match main=* $item]} {
-	set main [string range $item 5 end]
-	break
-      } elseif {$item == "no-interpret"} {
-	set interp 0
-      }
-    }
-
-    gcj_jar_compile_one $jar $main
-    if {$interp} {
-      gcj_jar_interpret $jar
-    }
-  }
-    # When we succeed we remove all our clutter.
-    eval gcj_cleanup [glob -nocomplain -- ${main}.*] [list $main ]
-
-    # Reset CLASSPATH that we do not look into testsuite/libjava.jar for *.jar
-    # files which do not belong to the libgcj itself.
-    set env(CLASSPATH) ""
-
-    return 1
-}
-
-gcj_jar_run