From d63083ef853be3ef890794a680e7d6617c0c93ff Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Mon, 9 Oct 2000 01:35:13 +0000 Subject: [PATCH] * ld-selective/selective.exp: Rearrange to be table-driven. --- ld/testsuite/ChangeLog | 4 + ld/testsuite/ld-selective/selective.exp | 289 +++++++++--------------- 2 files changed, 109 insertions(+), 184 deletions(-) diff --git a/ld/testsuite/ChangeLog b/ld/testsuite/ChangeLog index 3ffe4ab3222..956a257626c 100644 --- a/ld/testsuite/ChangeLog +++ b/ld/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-10-09 Hans-Peter Nilsson + + * ld-selective/selective.exp: Rearrange to be table-driven. + 2000-10-07 Alan Modra * ld-scripts/phdrs.exp: hppa*64*-*-* is 64-bit ELF too. diff --git a/ld/testsuite/ld-selective/selective.exp b/ld/testsuite/ld-selective/selective.exp index 862c10b8b1c..111d2690223 100644 --- a/ld/testsuite/ld-selective/selective.exp +++ b/ld/testsuite/ld-selective/selective.exp @@ -1,5 +1,5 @@ # Expect script for LD selective linking tests -# Copyright (C) 1998, 1999 Free Software Foundation +# Copyright (C) 1998, 1999, 2000 Free Software Foundation # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -27,216 +27,137 @@ if {[istarget "*-*-pe"]} { return } -set test1 "selective1" -set test2 "selective2" -set test3 "selective3" -set test4 "selective4" -set test5 "selective5" -set test6 "selective6" +# List contains test-items with three items followed by four lists: +# 1:name 2:test-type (CC or C++; add as needed) 3:filename 4:ld-flags +# 5:must-have-symbols 6:must-not-have-symbols 7:xfail-targets. +# +# If a must(-not)-have symbol is a list, then that list must have two +# items; the symbol name and a value the symbol must (not) have. +# +# Note: ld_nm trims leading `_' from _start +# +# FIXME: Instead of table, read settings from each source-file. +set seltests { + {selective1 C 1.c {} {} {dropme1 dropme2} {}} + {selective2 C 2.c {} {} {foo} {}} + {selective3 C 2.c {-u foo} {foo} {{foo 0}} {}} + {selective4 C++ 3.cc {} {start foo__1A foo__1B} {bar__1A} {v850*-*-elf}} + {selective5 C++ 4.cc {} {} {foo__1B foo__1A} {}} + {selective6 C++ 5.cc {} {} {foo__1B foo__1A dropme1__Fv dropme2__Fv} {*-*-*}} +} set cflags "-w -O2 -ffunction-sections -fdata-sections" set cxxflags "-fvtable-gc -fno-exceptions -fno-rtti" set ldflags "--gc-sections -Bstatic" +# If we don't have g++ for the target, mark all tests as untested. if { [which $CXX] == 0 } { - untested $test1 - untested $test2 - untested $test3 - untested $test4 - untested $test5 - untested $test6 - return -} - -if { ![ld_compile "$CC $cflags" $srcdir/$subdir/1.c tmpdir/1.o]} { - unresolved $test1 - return -} - -if ![ld_simple_link $ld tmpdir/1.x "$ldflags tmpdir/1.o"] { - fail $test1 -} else { - if ![ld_nm $nm tmpdir/1.x] { - unresolved $test1 - } else { - if {[info exists nm_output(dropme1)]} { - send_log "dropme1 == $nm_output(dropme1)\n" - verbose "dropme1 == $nm_output(dropme1)" - fail $test1 - } else { - if {[info exists nm_output(dropme2)]} { - send_log "dropme2 == $nm_output(dropme2)\n" - verbose "dropme2 == $nm_output(dropme2)" - fail $test1 - } else { - pass $test1 - } - } + foreach testitem $seltests { + untested "[lindex $seltests 0]" } -} - -if { ![ld_compile "$CC $cflags" $srcdir/$subdir/2.c tmpdir/2.o]} { - unresolved $test2 return } -if ![ld_simple_link $ld tmpdir/2.x "$ldflags tmpdir/2.o"] { - fail $test2 -} else { - if ![ld_nm $nm tmpdir/2.x] { - unresolved $test2 - } else { - if {[info exists nm_output(foo)] } { - send_log "foo == $nm_output(foo)\n" - verbose "foo == $nm_output(foo)" - fail $test2 - } else { - pass $test2 - } +foreach testitem $seltests { + set testname [lindex $testitem 0] + set testtype [lindex $testitem 1] + set testfile [lindex $testitem 2] + set objfile "tmpdir/[file rootname $testfile].o" + set ldfile "tmpdir/[file rootname $testfile].x" + set failed 0 + + set ldargs [lindex $testitem 3] + set mustsyms [lindex $testitem 4] + set mustnotsyms [lindex $testitem 5] + set xfails [lindex $testitem 6] + + foreach xfail_target $xfails { + setup_xfail $xfail_target } -} -if { ![ld_compile "$CC $cflags" $srcdir/$subdir/2.c tmpdir/2.o]} { - unresolved $test3 - return -} + # It's either C or C++ at the moment. + if { $testtype == "C++" } { + set testflags "$cflags $cxxflags" + } { + set testflags "$cflags" + } -if ![ld_simple_link $ld tmpdir/2.x "$ldflags -u foo tmpdir/2.o"] { - fail $test3 -} else { - if ![ld_nm $nm tmpdir/2.x] { - unresolved $test3 - } else { - if {![info exists nm_output(foo)] } { - send_log "bad output from nm\n" - verbose "bad output from nm" - fail $test3 - } else { - if {$nm_output(foo) == 0} { - send_log "foo == $nm_output(foo)\n" - verbose "foo == $nm_output(foo)" - fail $test3 - } else { - pass $test3 - } - } + # Note that we do not actually *use* CXX; we just add cxxflags for C++ + # tests. It might have been a buglet originally; now I think better + # leave as is. + if { ![ld_compile "$CC $testflags" $srcdir/$subdir/$testfile $objfile] } { + unresolved $testname + return } -} -setup_xfail "v850*-*-elf" + if ![ld_simple_link $ld $ldfile "$ldflags [join $ldargs] $objfile"] { + fail $testname + continue + } -if { ![ld_compile "$CC $cflags $cxxflags" $srcdir/$subdir/3.cc tmpdir/3.o]} { - unresolved $test4 - return -} + if ![ld_nm $nm $ldfile] { + unresolved $testname + continue + } -setup_xfail "v850*-*-elf" - -if ![ld_simple_link $ld tmpdir/3.x "$ldflags tmpdir/3.o"] { - fail $test4 -} else { - 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)" - fail $test4 - } else { -#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 - } + # Check each mandated symbol and optionally mandated values. + foreach mustsym $mustsyms { + if { [llength [concat $mustsym]] == 1 } { + if { ![info exists nm_output($mustsym)] } { + verbose -log "$testname: missing $mustsym" + fail $testname + set failed 1 + break + } + } { + set mustsymname [lindex $mustsym 0] + set mustsymvalue [lindex $mustsym 1] + if { ![info exists nm_output($mustsymname)] } { + verbose -log "$testname: missing $mustsymname" + fail $testname + set failed 1 + break + } { + if { $nm_output($mustsymname) != $mustsymvalue } { + verbose -log "$testname: $mustsymname != $mustsymvalue" + verbose -log "is instead $nm_output($mustsymname)" + fail $testname + set failed 1 + break } } } } -} -if { ![ld_compile "$CC $cflags $cxxflags" $srcdir/$subdir/4.cc tmpdir/4.o]} { - unresolved $test5 - return -} + if { $failed != 0 } { + continue + } -if ![ld_simple_link $ld tmpdir/4.x "$ldflags tmpdir/4.o"] { - fail $test5 -} else { - if ![ld_nm $nm tmpdir/4.x] { - unresolved $test5 - } else { - if {[info exists nm_output(foo__1B)]} { - send_log "foo__1B == $nm_output(foo__1B)\n" - verbose "foo__1B == $nm_output(foo__1B)" - fail $test5 - } else { - if {[info exists nm_output(foo__1A)]} { - send_log "foo__1A == $nm_output(foo__1A)\n" - verbose "foo__1A == $nm_output(foo__1A)" - fail $test5 - } else { - pass $test5 + # Check each unwanted symbol, or that symbols do not have specific + # values. + foreach mustnotsym $mustnotsyms { + if { [llength [concat $mustnotsym]] == 1 } { + if { [info exists nm_output($mustnotsym)] } { + verbose -log "$testname: $mustnotsym == $nm_output($mustnotsym)" + fail $testname + set failed 1 + break + } + } { + set mustnotsymname [lindex $mustnotsym 0] + set mustnotsymvalue [lindex $mustnotsym 1] + if { [info exists nm_output($mustnotsymname)] \ + && $nm_output($mustnotsymname) == $mustnotsymvalue} { + verbose -log "$testname: $mustnotsymname == $mustnotsymvalue" + fail $testname + set failed 1 + break } } } -} -if { ![ld_compile "$CC $cflags $cxxflags" $srcdir/$subdir/5.cc tmpdir/5.o]} { - unresolved $test6 - return -} - -# Exposes a bug, currently. FIXME: Fix it. -# FIXME: Break out the nesting to a function that takes two lists, one -# with expected present symbols, one with expected absent symbols, and -# iterates over nm output. Use that function in all tests here. - -setup_xfail "*-*-*" - -if ![ld_simple_link $ld tmpdir/5.x "$ldflags tmpdir/5.o"] { - fail $test6 -} else { - if ![ld_nm $nm tmpdir/5.x] { - unresolved $test6 - } else { - if {[info exists nm_output(foo__1B)]} { - send_log "foo__1B == $nm_output(foo__1B)\n" - verbose "foo__1B == $nm_output(foo__1B)" - fail $test6 - } else { - if {[info exists nm_output(foo__1A)]} { - send_log "foo__1A == $nm_output(foo__1A)\n" - verbose "foo__1A == $nm_output(foo__1A)" - fail $test6 - } else { - if {[info exists nm_output(dropme1__Fv)]} { - send_log "dropme1__Fv == $nm_output(dropme1__Fv)\n" - verbose "dropme1__Fv == $nm_output(dropme1__Fv)" - fail $test6 - } else { - if {[info exists nm_output(dropme2__Fv)]} { - send_log "dropme2__Fv == $nm_output(dropme2__Fv)\n" - verbose "dropme2__Fv == $nm_output(dropme2__Fv)" - fail $test6 - } else { - pass $test6 - } - } - } - } + if { $failed == 0 } { + pass $testname } } -- 2.30.2