2001-11-29 H.J. Lu <hjl@gnu.org>

* binutils-all/objcopy.exp (strip_test): Add strip on archive.

binutils/testsuite/ChangeLog

@@ -1,3 +1,7 @@
+2001-11-29  H.J. Lu <hjl@gnu.org>
+
+	* binutils-all/objcopy.exp (strip_test): Add strip on archive.
+
 2001-11-15  Alan Modra  <amodra@bigpond.net.au>
 
 	* binutils-all/objcopy.exp: Allow '? main', to suit powerpc64.

binutils/testsuite/binutils-all/objcopy.exp

@@ -314,6 +314,7 @@ if {$low == "" || $origstart == ""} then {
 # Test stripping an object.
 
 proc strip_test { } {
+    global AR
     global CC
     global STRIP
     global STRIPFLAGS
@@ -329,6 +330,34 @@ proc strip_test { } {
 	return
     }
 
+    if [is_remote host] {
+	set archive libstrip.a
+	set objfile [remote_download host tmpdir/testprog.o];
+	remote_file host delete $archive
+    } else {
+	set archive tmpdir/libstrip.a
+	set objfile tmpdir/testprog.o
+    }
+
+    remote_file build delete tmpdir/libstrip.a
+
+    set exec_output [binutils_run $AR "rc $archive ${objfile}"]
+    if ![string match "" $exec_output] {
+	fail $test
+	return
+    }
+
+    set exec_output [binutils_run $STRIP "$STRIPFLAGS $archive"]
+    if ![string match "" $exec_output] {
+	fail $test
+	return
+    }
+
+    if { [target_compile $srcdir/$subdir/testprog.c tmpdir/testprog.o object debug] != "" } {
+	untested $test
+	return
+    }
+
     if [is_remote host] {
 	set objfile [remote_download host tmpdir/testprog.o];
     } else {