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