Add a testcase for PR binutils/14567

binutils/

	PR binutils/14567
	* Makefile.am (BFDTEST2_PROG): New.
	(bfdtest2_DEPENDENCIES): Likewise.
	(TEST_PROGS): Add $(BFDTEST2_PROG).
	* Makefile.in: Regenerated.
	* bfdtest2.c: New file.

binutils/testsuite/

	PR binutils/14567
	* binutils-all/ar.exp (bfdtest1): Removed.
	(long_filenames): Take bfdtests.
	(thin_archive): Likewise.
	(thin_archive_with_nested): Likewise.
	(bfdtests): New.
	Pass $bfdtests to long_filenames, thin_archive and
	thin_archive_with_nested.
This commit is contained in:
H.J. Lu 2012-11-06 23:45:43 +00:00
parent 87988f9a1d
commit f7da43f33b
6 changed files with 181 additions and 37 deletions

View file

@ -1,3 +1,14 @@
2012-11-06 H.J. Lu <hongjiu.lu@intel.com>
PR binutils/14567
* binutils-all/ar.exp (bfdtest1): Removed.
(long_filenames): Take bfdtests.
(thin_archive): Likewise.
(thin_archive_with_nested): Likewise.
(bfdtests): New.
Pass $bfdtests to long_filenames, thin_archive and
thin_archive_with_nested.
2012-10-29 Alan Modra <amodra@gmail.com>
* binutils-all/copy-3.d: Exclude all cygwin and mingw targets,

View file

@ -27,16 +27,14 @@ if ![is_remote host] {
}
}
set bfdtest1 $base_dir/bfdtest1
# send_user "Version [binutil_version $AR]"
# Test long file name support
proc long_filenames { } {
proc long_filenames { bfdtests } {
global AR
global host_triplet
global bfdtest1
global base_dir
set testname "ar long file names"
@ -126,11 +124,13 @@ proc long_filenames { } {
return
}
set exec_output [binutils_run $bfdtest1 "$dest"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname (bfdtest1)"
return
foreach bfdtest $bfdtests {
set exec_output [binutils_run "$base_dir/$bfdtest" "$dest"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname ($bfdtest)"
return
}
}
if [is_remote host] {
@ -227,13 +227,13 @@ proc symbol_table { } {
# Test building a thin archive.
proc thin_archive { } {
proc thin_archive { bfdtests } {
global AR
global AS
global NM
global srcdir
global subdir
global bfdtest1
global base_dir
set testname "ar thin archive"
@ -259,11 +259,13 @@ proc thin_archive { } {
return
}
set exec_output [binutils_run $bfdtest1 "$archive"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname (bfdtest1)"
return
foreach bfdtest $bfdtests {
set exec_output [binutils_run "$base_dir/$bfdtest" "$archive"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname ($bfdtest)"
return
}
}
set got [binutils_run $NM "--print-armap $archive"]
@ -282,13 +284,13 @@ proc thin_archive { } {
# Test building a thin archive with a nested archive.
proc thin_archive_with_nested { } {
proc thin_archive_with_nested { bfdtests } {
global AR
global AS
global NM
global srcdir
global subdir
global bfdtest1
global base_dir
set testname "ar thin archive with nested archive"
@ -324,18 +326,20 @@ proc thin_archive_with_nested { } {
return
}
set exec_output [binutils_run $bfdtest1 "$archive"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname (bfdtest1)"
return
}
foreach bfdtest $bfdtests {
set exec_output [binutils_run "$base_dir/$bfdtest" "$archive"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname ($bfdtest)"
return
}
set exec_output [binutils_run $bfdtest1 "$archive2"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname (bfdtest1)"
return
set exec_output [binutils_run "$base_dir/$bfdtest" "$archive2"]
if ![string match "" $exec_output] {
verbose -log $exec_output
fail "$testname ($bfdtest)"
return
}
}
set got [binutils_run $NM "--print-armap $archive"]
@ -554,10 +558,12 @@ proc move_an_element { } {
# Run the tests.
long_filenames
set bfdtests [list bfdtest1 bfdtest2]
long_filenames $bfdtests
symbol_table
thin_archive
thin_archive_with_nested
thin_archive $bfdtests
thin_archive_with_nested $bfdtests
argument_parsing
deterministic_archive
delete_an_element