Browse Source

* binutils-all/objdump.exp: Run compressed debug test only for ELF.

binutils-arc-20080908-branch
Alan Modra 18 years ago
parent
commit
22bce68eb8
  1. 4
      binutils/testsuite/ChangeLog
  2. 64
      binutils/testsuite/binutils-all/objdump.exp

4
binutils/testsuite/ChangeLog

@ -1,3 +1,7 @@
2008-07-26 Alan Modra <amodra@bigpond.net.au>
* binutils-all/objdump.exp: Run compressed debug test only for ELF.
2008-07-11 Hans-Peter Nilsson <hp@axis.com>
* binutils-all/objdump.W: Generalize to adjust for targets with

64
binutils/testsuite/binutils-all/objdump.exp

@ -1,5 +1,5 @@
# Copyright 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
# 2003, 2004, 2007
# 2003, 2004, 2007, 2008
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
@ -160,47 +160,49 @@ if [regexp $want $got] then {
# Test objdump -s on a file that contains a compressed .debug section
if {![binutils_assemble $srcdir/$subdir/dw2-compressed.S tmpdir/dw2-compressed.o]} then {
return
}
if [is_remote host] {
set compressed_testfile [remote_download host tmpdir/dw2-compressed.o]
if { ![is_elf_format] } then {
unsupported "objdump compressed debug"
} elseif { ![binutils_assemble $srcdir/$subdir/dw2-compressed.S tmpdir/dw2-compressed.o] } then {
fail "objdump compressed debug"
} else {
set compressed_testfile tmpdir/dw2-compressed.o
}
if [is_remote host] {
set compressed_testfile [remote_download host tmpdir/dw2-compressed.o]
} else {
set compressed_testfile tmpdir/dw2-compressed.o
}
set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -s -j .zdebug_abbrev $compressed_testfile" "" "/dev/null" "objdump.out"]
set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -s -j .zdebug_abbrev $compressed_testfile" "" "/dev/null" "objdump.out"]
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
fail "objdump -s -j .zdebug_abbrev (reason: unexpected output)"
send_log $got
send_log "\n"
}
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
fail "objdump -s -j .zdebug_abbrev (reason: unexpected output)"
send_log $got
send_log "\n"
}
if { [regexp_diff objdump.out $srcdir/$subdir/objdump.s] } then {
fail "objdump -s -j .zdebug_abbrev"
} else {
pass "objdump -s -j .zdebug_abbrev"
}
if { [regexp_diff objdump.out $srcdir/$subdir/objdump.s] } then {
fail "objdump -s -j .zdebug_abbrev"
} else {
pass "objdump -s -j .zdebug_abbrev"
}
# Test objdump -W on a file that contains some compressed .debug sections
# Test objdump -W on a file that contains some compressed .debug sections
set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -W $compressed_testfile" "" "/dev/null" "objdump.out"]
set got [remote_exec host "$OBJDUMP $OBJDUMPFLAGS -W $compressed_testfile" "" "/dev/null" "objdump.out"]
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
fail "objdump -W (reason: unexpected output)"
send_log $got
send_log "\n"
}
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
fail "objdump -W (reason: unexpected output)"
send_log $got
send_log "\n"
}
if { [regexp_diff objdump.out $srcdir/$subdir/objdump.W] } then {
fail "objdump -W"
} else {
pass "objdump -W"
if { [regexp_diff objdump.out $srcdir/$subdir/objdump.W] } then {
fail "objdump -W"
} else {
pass "objdump -W"
}
}
# Options which are not tested: -a -d -D -R -T -x -l --stabs
# I don't see any generic way to test any of these other than -a.
# Tests could be written for specific targets, and that should be done

Loading…
Cancel
Save