readelf tests
We have multiple tests that report failure to assemble without saying exactly what test is failing. * testsuite/binutils-all/readelf.exp: Don't perror and exit on bintest.s assembly failure. Report tests unresolved instead. Likewise for version note test, pr18374, decompress, and dw5 tests. (readelf_test): Set testname to include both option and binary file name. Use for pass/fail.
This commit is contained in:
parent
df52f331ed
commit
11bb0c7abc
2 changed files with 51 additions and 45 deletions
|
@ -1,3 +1,12 @@
|
||||||
|
2017-09-22 Alan Modra <amodra@gmail.com>
|
||||||
|
|
||||||
|
* testsuite/binutils-all/readelf.exp: Don't perror and exit on
|
||||||
|
bintest.s assembly failure. Report tests unresolved instead.
|
||||||
|
Likewise for version note test, pr18374, decompress, and dw5
|
||||||
|
tests.
|
||||||
|
(readelf_test): Set testname to include both option and binary
|
||||||
|
file name. Use for pass/fail.
|
||||||
|
|
||||||
2017-09-21 Maciej W. Rozycki <macro@imgtec.com>
|
2017-09-21 Maciej W. Rozycki <macro@imgtec.com>
|
||||||
|
|
||||||
* readelf.c (get_machine_flags) <E_MIPS_MACH_5900>: New case.
|
* readelf.c (get_machine_flags) <E_MIPS_MACH_5900>: New case.
|
||||||
|
|
|
@ -84,6 +84,8 @@ proc readelf_test { options binary_file regexp_file xfails } {
|
||||||
global srcdir
|
global srcdir
|
||||||
global subdir
|
global subdir
|
||||||
|
|
||||||
|
set testname "readelf $options [file rootname [file tail $binary_file]]"
|
||||||
|
|
||||||
send_log "exec $READELF $READELFFLAGS $options $binary_file > readelf.out\n"
|
send_log "exec $READELF $READELFFLAGS $options $binary_file > readelf.out\n"
|
||||||
set got [remote_exec host "$READELF $READELFFLAGS $options $binary_file" "" "/dev/null" "readelf.out"]
|
set got [remote_exec host "$READELF $READELFFLAGS $options $binary_file" "" "/dev/null" "readelf.out"]
|
||||||
|
|
||||||
|
@ -92,7 +94,7 @@ proc readelf_test { options binary_file regexp_file xfails } {
|
||||||
}
|
}
|
||||||
|
|
||||||
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
|
if { [lindex $got 0] != 0 || ![string match "" [lindex $got 1]] } then {
|
||||||
fail "readelf $options (reason: unexpected output)"
|
fail "$testname (reason: unexpected output)"
|
||||||
send_log $got
|
send_log $got
|
||||||
send_log "\n"
|
send_log "\n"
|
||||||
return
|
return
|
||||||
|
@ -116,12 +118,12 @@ proc readelf_test { options binary_file regexp_file xfails } {
|
||||||
}
|
}
|
||||||
|
|
||||||
if { [regexp_diff readelf.out $srcdir/$subdir/$regexp_file] } then {
|
if { [regexp_diff readelf.out $srcdir/$subdir/$regexp_file] } then {
|
||||||
fail "readelf $options"
|
fail $testname
|
||||||
verbose "output is \n[file_contents readelf.out]" 2
|
verbose "output is \n[file_contents readelf.out]" 2
|
||||||
return
|
return
|
||||||
}
|
}
|
||||||
|
|
||||||
pass "readelf $options"
|
pass $testname
|
||||||
}
|
}
|
||||||
|
|
||||||
# Simple proc to skip certain expected warning messages.
|
# Simple proc to skip certain expected warning messages.
|
||||||
|
@ -318,27 +320,29 @@ send_user "Version [binutil_version $READELF]"
|
||||||
|
|
||||||
# Assemble the test file.
|
# Assemble the test file.
|
||||||
if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then {
|
if {![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o]} then {
|
||||||
perror "could not assemble test file"
|
unresolved "readelf -h bintest (failed to assemble)"
|
||||||
unresolved "readelf - failed to assemble"
|
unresolved "readelf -S bintest (failed to assemble)"
|
||||||
return
|
unresolved "readelf -s bintest (failed to assemble)"
|
||||||
}
|
unresolved "readelf -r bintest (failed to assemble)"
|
||||||
|
|
||||||
if ![is_remote host] {
|
|
||||||
set tempfile tmpdir/bintest.o
|
|
||||||
} else {
|
} else {
|
||||||
set tempfile [remote_download host tmpdir/bintest.o]
|
|
||||||
|
if ![is_remote host] {
|
||||||
|
set tempfile tmpdir/bintest.o
|
||||||
|
} else {
|
||||||
|
set tempfile [remote_download host tmpdir/bintest.o]
|
||||||
|
}
|
||||||
|
|
||||||
|
# First, determine the size, so specific output matchers can be used.
|
||||||
|
readelf_find_size $tempfile
|
||||||
|
|
||||||
|
# Run the tests.
|
||||||
|
readelf_test -h $tempfile readelf.h {}
|
||||||
|
readelf_test -S $tempfile readelf.s {}
|
||||||
|
setup_xfail "mips-*-*irix*"
|
||||||
|
readelf_test -s $tempfile readelf.ss {}
|
||||||
|
readelf_test -r $tempfile readelf.r {}
|
||||||
}
|
}
|
||||||
|
|
||||||
# First, determine the size, so specific output matchers can be used.
|
|
||||||
readelf_find_size $tempfile
|
|
||||||
|
|
||||||
# Run the tests.
|
|
||||||
readelf_test -h $tempfile readelf.h {}
|
|
||||||
readelf_test -S $tempfile readelf.s {}
|
|
||||||
setup_xfail "mips-*-*irix*"
|
|
||||||
readelf_test -s $tempfile readelf.ss {}
|
|
||||||
readelf_test -r $tempfile readelf.r {}
|
|
||||||
|
|
||||||
readelf_wi_test
|
readelf_wi_test
|
||||||
readelf_compressed_wa_test
|
readelf_compressed_wa_test
|
||||||
|
|
||||||
|
@ -346,9 +350,7 @@ readelf_dump_test
|
||||||
|
|
||||||
# PR 13482 - Check for off-by-one errors when dumping .note sections.
|
# PR 13482 - Check for off-by-one errors when dumping .note sections.
|
||||||
if {![binutils_assemble $srcdir/$subdir/version.s tmpdir/version.o]} then {
|
if {![binutils_assemble $srcdir/$subdir/version.s tmpdir/version.o]} then {
|
||||||
perror "could not assemble version note test file"
|
unresolved "readelf -n version (failed to assemble)"
|
||||||
unresolved "readelf - failed to assemble"
|
|
||||||
fail "readelf -n"
|
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
if ![is_remote host] {
|
if ![is_remote host] {
|
||||||
|
@ -364,9 +366,7 @@ if {![binutils_assemble $srcdir/$subdir/version.s tmpdir/version.o]} then {
|
||||||
# PR 18374 - Check that relocations against the .debug_loc section
|
# PR 18374 - Check that relocations against the .debug_loc section
|
||||||
# do not prevent readelf from displaying all the location lists.
|
# do not prevent readelf from displaying all the location lists.
|
||||||
if {![binutils_assemble $srcdir/$subdir/pr18374.s tmpdir/pr18374.o]} then {
|
if {![binutils_assemble $srcdir/$subdir/pr18374.s tmpdir/pr18374.o]} then {
|
||||||
perror "could not assemble PR18374 test file"
|
unresolved "readelf --debug-dump=loc pr18374 (failed to assemble)"
|
||||||
unresolved "readelf - failed to assemble"
|
|
||||||
fail "readelf --debug-loc"
|
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
if ![is_remote host] {
|
if ![is_remote host] {
|
||||||
|
@ -381,9 +381,7 @@ if {![binutils_assemble $srcdir/$subdir/pr18374.s tmpdir/pr18374.o]} then {
|
||||||
|
|
||||||
# Check that decompressed dumps work.
|
# Check that decompressed dumps work.
|
||||||
if {![binutils_assemble $srcdir/$subdir/z.s tmpdir/z.o]} then {
|
if {![binutils_assemble $srcdir/$subdir/z.s tmpdir/z.o]} then {
|
||||||
perror "could not assemble decompress dump test file"
|
unresolved "readelf --decompress --hex-dump .debug_loc z (failed to assemble)"
|
||||||
unresolved "readelf - failed to assemble"
|
|
||||||
fail "readelf -z"
|
|
||||||
} else {
|
} else {
|
||||||
|
|
||||||
if ![is_remote host] {
|
if ![is_remote host] {
|
||||||
|
@ -405,21 +403,20 @@ if ![istarget "riscv*-*-*"] then {
|
||||||
}
|
}
|
||||||
# Assemble the DWARF-5 test file.
|
# Assemble the DWARF-5 test file.
|
||||||
if {![binutils_assemble_flags $srcdir/$subdir/dw5.S tmpdir/dw5.o $hpux]} then {
|
if {![binutils_assemble_flags $srcdir/$subdir/dw5.S tmpdir/dw5.o $hpux]} then {
|
||||||
perror "could not assemble dw5 test file"
|
unresolved "readelf -wiaoRlL dw5 (failed to assemble)"
|
||||||
unresolved "readelf - failed to assemble dw5"
|
|
||||||
return
|
|
||||||
}
|
|
||||||
|
|
||||||
# Download it.
|
|
||||||
if ![is_remote host] {
|
|
||||||
set tempfile tmpdir/dw5.o
|
|
||||||
} else {
|
} else {
|
||||||
set tempfile [remote_download host tmpdir/dw5.o]
|
|
||||||
|
# Download it.
|
||||||
|
if ![is_remote host] {
|
||||||
|
set tempfile tmpdir/dw5.o
|
||||||
|
} else {
|
||||||
|
set tempfile [remote_download host tmpdir/dw5.o]
|
||||||
|
}
|
||||||
|
|
||||||
|
# First, determine the size, so specific output matchers can be used.
|
||||||
|
readelf_find_size $tempfile
|
||||||
|
|
||||||
|
# Make sure that readelf can decode the contents.
|
||||||
|
readelf_test -wiaoRlL $tempfile dw5.W {}
|
||||||
}
|
}
|
||||||
|
|
||||||
# First, determine the size, so specific output matchers can be used.
|
|
||||||
readelf_find_size $tempfile
|
|
||||||
|
|
||||||
# Make sure that readelf can decode the contents.
|
|
||||||
readelf_test -wiaoRlL $tempfile dw5.W {}
|
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue