diff options
| author | Alan Modra <amodra@gmail.com> | 2000-04-12 12:47:25 +0000 |
|---|---|---|
| committer | Alan Modra <amodra@gmail.com> | 2000-04-12 12:47:25 +0000 |
| commit | e76e4c9104c4584ce920f08b4695c9a0c5dba3c8 (patch) | |
| tree | 53b1ddc7d2f5d40f3ab0cdd46cfb74b02864da3d /ld/testsuite | |
| parent | 3017ff0ecac12fb625e1053794aabfbea9857dec (diff) | |
| download | fsf-binutils-gdb-e76e4c9104c4584ce920f08b4695c9a0c5dba3c8.zip fsf-binutils-gdb-e76e4c9104c4584ce920f08b4695c9a0c5dba3c8.tar.gz fsf-binutils-gdb-e76e4c9104c4584ce920f08b4695c9a0c5dba3c8.tar.bz2 | |
(test4): Test for presence of foo__1B, not absence
Diffstat (limited to 'ld/testsuite')
| -rw-r--r-- | ld/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | ld/testsuite/ld-selective/selective.exp | 33 |
2 files changed, 29 insertions, 9 deletions
diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog index 8ba9415..89f94ff 100644 --- a/ld/testsuite/ChangeLog +++ b/ld/testsuite/ChangeLog @@ -1,7 +1,8 @@ 2000-04-12 Alan Modra <alan@linuxcare.com.au> - * ld-selective/selective.exp (test4): Delete incorrect foo__1B - test. White space changes throughout file. + * ld-selective/selective.exp (test4): Test for presence of + foo__1B, not absence. Also check for foo__1A and _start. + White space changes throughout file. 2000-03-13 Nick Clifton <nickc@cygnus.com> diff --git a/ld/testsuite/ld-selective/selective.exp b/ld/testsuite/ld-selective/selective.exp index 0b5b77d..20b3a12 100644 --- a/ld/testsuite/ld-selective/selective.exp +++ b/ld/testsuite/ld-selective/selective.exp @@ -86,7 +86,7 @@ if ![ld_simple_link $ld tmpdir/2.x "$ldflags tmpdir/2.o"] { } else { if {[info exists nm_output(foo)] } { send_log "foo == $nm_output(foo)\n" - verbose "foo== $nm_output(foo)" + verbose "foo == $nm_output(foo)" fail $test2 } else { pass $test2 @@ -112,7 +112,7 @@ if ![ld_simple_link $ld tmpdir/2.x "$ldflags -u foo tmpdir/2.o"] { } else { if {$nm_output(foo) == 0} { send_log "foo == $nm_output(foo)\n" - verbose "foo== $nm_output(foo)" + verbose "foo == $nm_output(foo)" fail $test3 } else { pass $test3 @@ -136,12 +136,31 @@ if ![ld_simple_link $ld tmpdir/3.x "$ldflags tmpdir/3.o"] { if ![ld_nm $nm tmpdir/3.x] { unresolved $test4 } else { - if {[ info exists nm_output(bar__1A)]} { - send_log "bar__1A== $nm_output(_bar__1A)\n" - verbose "bar__1A == $nm_output(_bar__1A)" + if [info exists nm_output(bar__1A)] { + send_log "bar__1A == $nm_output(bar__1A)\n" + verbose "bar__1A == $nm_output(bar__1A)" fail $test4 } else { - pass $test4 +#note ld_nm trims leading `_' from _start + if ![info exists nm_output(start)] { + send_log "_start missing\n" + verbose "_start missing" + fail $test4 + } else { + if ![info exists nm_output(foo__1A)] { + send_log "foo__1A missing\n" + verbose "foo_1A missing" + fail $test4 + } else { + if ![info exists nm_output(foo__1B)] { + send_log "foo__1B missing\n" + verbose "foo_1B missing" + fail $test4 + } else { + pass $test4 + } + } + } } } } @@ -163,7 +182,7 @@ if ![ld_simple_link $ld tmpdir/4.x "$ldflags tmpdir/4.o"] { fail $test5 } else { if {[info exists nm_output(foo__1A)]} { - send_log "foo__1A== $nm_output(foo__1A)\n" + send_log "foo__1A == $nm_output(foo__1A)\n" verbose "foo__1A == $nm_output(foo__1A)" fail $test5 } else { |