darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add testcases for "ar -d" and "ar -m".

Browse source 
2011-05-02  H.J. Lu  <hongjiu.lu@intel.com>

	PR binutils/12720
	* binutils-all/ar.exp (delete_an_element): New.
	(move_an_element): Likewise.
	Run delete_an_element and move_an_element.
This commit is contained in:
H.J. Lu 2011-05-02 12:47:47 +00:00
parent 4510857d06
commit fde6f1fc67
2 changed files with 91 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
binutils/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2011-05-02 H.J. Lu <hongjiu.lu@intel.com>
PR binutils/12720
* binutils-all/ar.exp (delete_an_element): New.
(move_an_element): Likewise.
Run delete_an_element and move_an_element.
2011-04-30 H.J. Lu <hongjiu.lu@intel.com>
* binutils-all/x86-64/compressed-1a.d: Adjust for change in output

84
binutils/testsuite/binutils-all/ar.exp
View file

@ -438,6 +438,88 @@ proc unique_symbol { } {
pass $testname
}
# Test deleting an element.
proc delete_an_element { } {
global AR
global AS
global srcdir
global subdir
set testname "ar deleting an element"
if ![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o] {
unresolved $testname
return
}
if [is_remote host] {
set archive artest.a
set objfile [remote_download host tmpdir/bintest.o]
remote_file host delete $archive
} else {
set archive tmpdir/artest.a
set objfile tmpdir/bintest.o
}
remote_file build delete tmpdir/artest.a
set got [binutils_run $AR "-r -c $archive ${objfile}"]
if ![string match "" $got] {
fail $testname
return
}
set got [binutils_run $AR "-d $archive ${objfile}"]
if ![string match "" $got] {
fail $testname
return
}
pass $testname
}
# Test moving an element.
proc move_an_element { } {
global AR
global AS
global srcdir
global subdir
set testname "ar moving an element"
if ![binutils_assemble $srcdir/$subdir/bintest.s tmpdir/bintest.o] {
unresolved $testname
return
}
if [is_remote host] {
set archive artest.a
set objfile [remote_download host tmpdir/bintest.o]
remote_file host delete $archive
} else {
set archive tmpdir/artest.a
set objfile tmpdir/bintest.o
}
remote_file build delete tmpdir/artest.a
set got [binutils_run $AR "-r -c $archive ${objfile}"]
if ![string match "" $got] {
fail $testname
return
}
set got [binutils_run $AR "-m $archive ${objfile}"]
if ![string match "" $got] {
fail $testname
return
}
pass $testname
}
# Run the tests.
long_filenames
@ -446,6 +528,8 @@ thin_archive
thin_archive_with_nested
argument_parsing
deterministic_archive
delete_an_element
move_an_element
if { [is_elf_format]
&& ![istarget "*-*-hpux*"]
&& ![istarget "msp*-*-*"] } {