* lib/gas-defs.exp (run_list_test): Fix typo in comment.

[deliverable/binutils-gdb.git] / gas / testsuite / lib / gas-defs.exp

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index 112bb5270a8df875adea7a8e752f96673bec3b6a..5afb3b92484e789259653126347c921e565c17a1 100644 (file)
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -63,7 +63,8 @@ proc gas_host_run { cmd redir } {
        set command "$cmd 2>gas.stderr"
        set return_contents_of "gas.stderr"
     } elseif [regexp ">&.*" $redir] then {
-       set output_file [regsub ">&" $redir ""]
+       # See PR 5322 for why the following line is used.
+       regsub ">&" $redir "" output_file       
        set command "$cmd 2>&1"
     } elseif [regexp "2>.*" $redir] then {
        set output_file "gas.out"
@@ -689,6 +690,10 @@ proc run_dump_test { name {extra_options {}} } {
                return
            }
        }
+    } else {
+       if { $opts(error) != "" || $opts(error-output) != "" } {
+           fail $testname
+       }
     }
 
     if { $program == "" } {
@@ -957,8 +962,8 @@ if ![string length [info proc prune_warnings]] {
 
 # 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
+# Assemble the file "NAME.s" with command line options OPTS and
+# compare the assembler standard error output against the regular
 # expressions given in the file "NAME.l".  If TESTNAME is provided,
 # it will be used as the name of the test.