Initial revision

From-SVN: r26263

libjava/testsuite/libjava.lang/test.exp

@@ -0,0 +1,34 @@
+global srcdir subdir
+
+catch "glob -nocomplain ${srcdir}/${subdir}/*.out" srcfiles
+verbose "srcfiles are $srcfiles"
+
+set prefix ""
+foreach x $srcfiles {
+    regsub "\\.out$" $x "" prefix
+    set bname [file tail $prefix]
+    set args ""
+    if [file exists $srcdir/$subdir/${bname}.arg] {
+	set id [open "$srcdir/$subdir/${bname}.arg" r];
+	set args [read -nonewline $id];
+	close $id;
+    }
+    if [file exists $srcdir/$subdir/${bname}.xpo] {
+	set resfile "$srcdir/$subdir/${bname}.xpo"
+	set options "regexp_match"
+    } else {
+	set resfile "${prefix}.out"
+	set options ""
+    }
+
+    if [file exists ${prefix}.inp] {
+	set inpfile ${prefix}.inp
+    } else {
+	set inpfile ""
+    }
+
+    verbose "inpfile is $inpfile"
+
+    test_libjava $options "${prefix}.java" "" $inpfile $resfile $args
+    test_libjava $options "${prefix}.java" "-O" $inpfile $resfile $args
+}