[thirdparty/binutils-gdb.git] / gas / testsuite / gas / cr16 / cr16.exp

#
# Driver for CR16 assembler testsuite
#

proc run_list_test { name opts } {
  global srcdir subdir
  set testname "cr16 $name"
  set file $srcdir/$subdir/$name
  gas_run ${name}.s $opts ">&dump.out"
  if {[regexp_diff "dump.out" "${file}.l"] } {
    fail $testname
    verbose "output is [file_contents "dump.out"]" 2
    return
  }
  pass $testname
}

if ![istarget cr16-*-*] {
    return
}

set test_list [lsort [glob -nocomplain $srcdir/$subdir/*.d]]
foreach test $test_list {
    # We need to strip the ".d", but can leave the dirname.
    verbose [file rootname $test]
    run_dump_test [file rootname $test]
}
Commit	Line	Data
3d3d428f NC	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	}