2004-04-30 H.J. Lu <hongjiu.lu@intel.com>

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

diff --git a/gas/testsuite/gas/elf/elf.exp b/gas/testsuite/gas/elf/elf.exp
index 27adc36637091479bf8ba181f0f1fd012e9e3911..e087fba0b4c5b0ea5ba3503634337833e3bdb650 100644 (file)
--- a/gas/testsuite/gas/elf/elf.exp
+++ b/gas/testsuite/gas/elf/elf.exp
@@ -2,7 +2,7 @@
 # elf tests
 #
 
-proc run_list_test { name suffix opts } {
+proc run_list_test { name suffix opts readelf_pipe } {
     global READELF
     global srcdir subdir
     set testname "elf $name list"
@@ -15,7 +15,7 @@ proc run_list_test { name suffix opts } {
        return
     }
     send_log "$READELF -s dump.o > dump.out\n"
-    catch "exec $READELF -s dump.o > dump.out\n" comp_output
+    catch "exec $READELF -s dump.o $readelf_pipe > dump.out\n" comp_output
     if ![string match "" $comp_output] then {
        send_log "$comp_output\n"
        fail $testname
@@ -47,13 +47,14 @@ if { ([istarget "*-*-elf*"]
     if {[istarget m32r*-*-*]} then {
        set target_machine -m32r
     }
-    if {[istarget xscale*-*-elf]} then {
-       set target_machine -miwmmxt
-    }
     run_dump_test "ehopt0"
+    run_dump_test "group0a" 
+    run_dump_test "group0b" 
+    run_list_test "group1" "" "" ""
     run_dump_test "section0" 
     run_dump_test "section1" 
-    run_list_test "section2" "$target_machine" "-al"
+    run_list_test "section2" "$target_machine" "-al" ""
+    run_dump_test "section3" 
     run_dump_test "symver" 
-    run_list_test "type" "$target_machine" ""
+    run_list_test "type" "" "" "| grep \"1 \\\[FONT\\\]\""
 }