gas/testsuite/gasp/gasp.exp

   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