gas/testsuite/
authorRichard Sandiford <rdsandiford@googlemail.com>
Mon, 23 Jul 2007 14:03:33 +0000 (14:03 +0000)
committerRichard Sandiford <rdsandiford@googlemail.com>
Mon, 23 Jul 2007 14:03:33 +0000 (14:03 +0000)
* lib/gas-defs.exp (run_list_test): Make the options optional.
* gas/cr16/cr16.exp (run_list_test): Delete.

gas/testsuite/ChangeLog
gas/testsuite/gas/cr16/cr16.exp
gas/testsuite/lib/gas-defs.exp

index 396f982a75e0fedc407f81828e7267dacdc66f5f..993439511edb91a7cce970855d50cf51fdb26066 100644 (file)
@@ -1,3 +1,8 @@
+2007-07-23  Richard Sandiford  <richard@codesourcery.com>
+
+       * lib/gas-defs.exp (run_list_test): Make the options optional.
+       * gas/cr16/cr16.exp (run_list_test): Delete.
+
 2007-07-19  Nick Clifton  <nickc@redhat.com>
 
        PR gas/4804
index 6697c33d6aee5e2069c886f4eafda6218b60bdf7..9285da81736165ebbdc9162a3797de70e7c38733 100644 (file)
@@ -2,19 +2,6 @@
 # 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
 }
index c83cf221f62189ea99c6017484b92353e044245a..8d4902a4d0a07ea47df62025440777734d3b8524 100644 (file)
@@ -890,14 +890,14 @@ if ![string length [info proc prune_warnings]] {
     }
 }
 
-# run_list_test NAME OPTS (optional): TESTNAME
+# run_list_test NAME (optional): OPTS TESTNAME
 #
 # Assemble the file "NAME.d" with command line options OPTS and
 # compare the assembler standard error output against thee regular
 # expressions given in the file "NAME.l".  If TESTNAME is provided,
 # it will be used as the name of the test.
 
-proc run_list_test { name opts {testname {}} } {
+proc run_list_test { name {opts {}} {testname {}} } {
     global srcdir subdir
     if { [string length $testname] == 0 } then {
        set testname "[file tail $subdir] $name"