Commit | Line | Data |
---|---|---|
06c31539 SC |
1 | |
2 | ||
3 | proc gasp_test { testname } { | |
4 | global GASP | |
5 | global srcdir | |
6 | ||
7 | send_log "$srcdir/lib/run $GASP -s $testname.asm -o gasp.out \n" | |
8 | catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $testname.asm -o gasp.out" errs | |
9 | catch "exec diff gasp.out $testname.out" diffs | |
10 | if ![string match "" $diffs] { | |
11 | send_log "$diffs\n" | |
12 | verbose $diffs | |
13 | fail $testname | |
14 | send_log "exec cat gasp.out" | |
15 | return 0 | |
16 | } else { | |
17 | pass $testname | |
18 | } | |
19 | ||
20 | } | |
21 | ||
22 | set testname "GASP" | |
23 | ||
24 | foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] { | |
25 | regsub -all ".asm" $src "" t | |
26 | gasp_test $t | |
27 | } | |
28 | ||
29 | ||
30 | # FIXME: this is here cause of a bug in DejaGnu 1.1.1. When it is no longer | |
31 | # in use, then this can be removed. | |
32 | if [info exists errorInfo] then { | |
33 | unset errorInfo | |
34 | } | |
35 |