diff options
author | Richard Henderson <rth@redhat.com> | 1999-05-03 07:29:11 +0000 |
---|---|---|
committer | Richard Henderson <rth@redhat.com> | 1999-05-03 07:29:11 +0000 |
commit | 252b5132c753830d5fd56823373aed85f2a0db63 (patch) | |
tree | 1af963bfd8d3e55167b81def4207f175eaff3a56 /gas/testsuite/gasp/gasp.exp | |
download | binutils-gdb-252b5132c753830d5fd56823373aed85f2a0db63.tar.gz |
19990502 sourceware importbinu_ss_19990502
Diffstat (limited to 'gas/testsuite/gasp/gasp.exp')
-rw-r--r-- | gas/testsuite/gasp/gasp.exp | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp new file mode 100644 index 00000000000..2a72a6d3591 --- /dev/null +++ b/gas/testsuite/gasp/gasp.exp @@ -0,0 +1,40 @@ +# Test gasp. + +proc gasp_test { filename testname opt } { + global GASP + global srcdir + 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 + return 0 + } else { + pass $testname + } + +} + +foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] { + regsub -all ".asm" $src "" 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. +if [info exists errorInfo] then { + unset errorInfo +} + |