gas/testsuite/gas/cr16/cr16.exp

   1 #
   2 # Driver for CR16 assembler testsuite
   3 #
   4
   5 proc run_list_test { name opts } {
   6   global srcdir subdir
   7   set testname "cr16 $name"
   8   set file $srcdir/$subdir/$name
   9   gas_run ${name}.s $opts ">&dump.out"
  10   if {[regexp_diff "dump.out" "${file}.l"] } {
  11     fail $testname
  12     verbose "output is [file_contents "dump.out"]" 2
  13     return
  14   }
  15   pass $testname
  16 }
  17
  18 if ![istarget cr16-*-*] {
  19     return
  20 }
  21
  22 set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
  23 foreach test $test_list {
  24     # We need to strip the ".d", but can leave the dirname.
  25     verbose [file rootname $test]
  26     run_dump_test [file rootname $test]
  27 }