1# 2# Driver for CRX assembler testsuite 3# 4 5proc run_list_test { name opts } { 6 global srcdir subdir 7 set testname "CRX $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 18if ![istarget crx-*-*] { 19 return 20} 21 22set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]] 23foreach 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} 28