import gdb-2000-02-02 snapshot

[external/binutils.git] / gas / testsuite / gasp / gasp.exp

diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp
index ec0672e..2a72a6d 100644 (file)
--- a/gas/testsuite/gasp/gasp.exp
+++ b/gas/testsuite/gasp/gasp.exp
@@ -1,17 +1,18 @@
+# Test gasp.
 
-
-proc gasp_test { testname }  {
+proc gasp_test { filename testname opt }  {
     global GASP
     global srcdir
-    
-    send_log "$srcdir/lib/run $GASP -s $testname.asm -o gasp.out \n"
-    catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $testname.asm -o gasp.out" errs
-    catch "exec diff gasp.out $testname.out" diffs
+    global host_triplet
+
+    send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n"
+    catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs
+    catch "exec diff gasp.out $filename.out" diffs
+    set diffs [prune_warnings $diffs]
     if ![string match "" $diffs] {
        send_log "$diffs\n"
        verbose $diffs
        fail $testname
-       send_log "exec cat gasp.out"
        return 0
     } else {
        pass $testname
@@ -19,13 +20,17 @@ proc gasp_test { testname }  {
 
 }
 
-set testname "GASP"
-
 foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
     regsub -all ".asm" $src "" t
-    gasp_test $t
+    regsub "^.*/(\[^/\]*)$" $t "gasp \\1" testname
+    gasp_test $t $testname ""
 }
 
+foreach src [ lsort [ glob $srcdir/gasp/mri/*.asm ] ] {
+    regsub -all ".asm" $src "" t
+    regsub "^.*/(\[^/\]*)$" $t "gasp MRI \\1" testname
+    gasp_test $t $testname "-M"
+}
 
 # FIXME: this is here cause of a bug in DejaGnu 1.1.1. When it is no longer
 #        in use, then this can be removed.