diff options
| author | Steve Chamberlain <sac@cygnus> | 1995-08-01 02:45:00 +0000 |
|---|---|---|
| committer | Steve Chamberlain <sac@cygnus> | 1995-08-01 02:45:00 +0000 |
| commit | 06c3153964b77b58966563dbff22fed66a9be386 (patch) | |
| tree | 65a7c8db422f7231155ff6e24e1cf63e2e09cb72 /gas | |
| parent | b74e86ecf5cab9b2d6025bc546c7f8b4fa21eced (diff) | |
| download | gdb-06c3153964b77b58966563dbff22fed66a9be386.zip gdb-06c3153964b77b58966563dbff22fed66a9be386.tar.gz gdb-06c3153964b77b58966563dbff22fed66a9be386.tar.bz2 | |
new file.
Diffstat (limited to 'gas')
| -rw-r--r-- | gas/testsuite/gasp/gasp.exp | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/gas/testsuite/gasp/gasp.exp b/gas/testsuite/gasp/gasp.exp new file mode 100644 index 0000000..ec0672e --- /dev/null +++ b/gas/testsuite/gasp/gasp.exp @@ -0,0 +1,35 @@ + + +proc gasp_test { testname } { + 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 + if ![string match "" $diffs] { + send_log "$diffs\n" + verbose $diffs + fail $testname + send_log "exec cat gasp.out" + return 0 + } else { + pass $testname + } + +} + +set testname "GASP" + +foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] { + regsub -all ".asm" $src "" t + gasp_test $t +} + + +# 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 +} + |