summaryrefslogtreecommitdiffstats
path: root/binutils-2.17/binutils/testsuite/binutils-all/ar.exp
diff options
context:
space:
mode:
Diffstat (limited to 'binutils-2.17/binutils/testsuite/binutils-all/ar.exp')
-rw-r--r--binutils-2.17/binutils/testsuite/binutils-all/ar.exp256
1 files changed, 0 insertions, 256 deletions
diff --git a/binutils-2.17/binutils/testsuite/binutils-all/ar.exp b/binutils-2.17/binutils/testsuite/binutils-all/ar.exp
deleted file mode 100644
index 02d12351..00000000
--- a/binutils-2.17/binutils/testsuite/binutils-all/ar.exp
+++ /dev/null
@@ -1,256 +0,0 @@
-# Copyright 1995, 1997, 2002, 2004 Free Software Foundation, Inc.
-
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.
-
-# Please email any bugs, comments, and/or additions to this file to:
-# bug-dejagnu@prep.ai.mit.edu
-
-# Written by Ian Lance Taylor <ian@cygnus.com>
-
-if ![is_remote host] {
- if {[which $AR] == 0} then {
- perror "$AR does not exist"
- return
- }
-}
-
-# send_user "Version [binutil_version $AR]"
-
-# Test long file name support
-
-proc long_filenames { } {
- global AR
- global host_triplet
-
- set testname "ar long file names"
-
- set n1 "abcdefghijklmnopqrstuvwxyz1"
- set n2 "abcdefghijklmnopqrstuvwxyz2"
- set file1 tmpdir/$n1
- set file2 tmpdir/$n2
-
- remote_file build delete $file1
-
- # Some file systems truncate file names at 14 characters, which
- # makes it impossible to run this test. Check for that now.
- set status [catch "set f [open tmpdir/$n1 w]" errs]
- if { $status != 0 } {
- verbose -log "open tmpdir/$n1 returned $errs"
- unsupported $testname
- return
- }
- puts $f "first"
- close $f
-
-
- remote_file build delete $file2
-
- set status [catch "set f [open tmpdir/$n2 w]" errs]
- if { $status != 0 } {
- verbose -log "open tmpdir/$n2 returned $errs"
- unsupported $testname
- return
- }
- puts $f "second"
- close $f
-
- if [is_remote host] {
- set file1 [remote_download host $file1]
- set file2 [remote_download host $file2]
- set dest artest.a
- } else {
- set dest tmpdir/artest.a
- }
-
- remote_file host delete $dest
-
- set got [binutils_run $AR "rc $dest $file1 $file2"]
- if [is_remote host] {
- remote_upload host $file1 tmpdir/$n1
- }
-
- set f [open tmpdir/$n1 r]
- gets $f string
- close $f
- if ![string match "first" $string] {
- verbose -log "reading tmpdir/$n1 returned $string"
- unsupported $testname
- return
- }
-
- remote_file host delete $dest
- set got [binutils_run $AR "rc $dest $file1 $file2"]
-
- if ![string match "" $got] {
- fail $testname
- return
- }
-
- remote_file build delete tmpdir/$n1
- remote_file build delete tmpdir/$n2
-
- set got [binutils_run $AR "t $dest"]
- regsub "\[\r\n \t\]*$" "$got" "" got
- if ![string match "$n1*$n2" $got] {
- fail $testname
- return
- }
-
- if [is_remote host] {
- remote_file host delete $file1
- remote_file host delete $file2
- }
-
- verbose -log "$AR x $dest"
- set exec_output [binutils_run $AR "x $dest"]
- set exec_output [prune_warnings $exec_output]
- if ![string match "" $exec_output] {
- verbose -log $exec_output
- fail $testname
- return
- }
-
- if [is_remote host] {
- remote_upload host $n1 tmpdir/$n1
- remote_upload host $n2 tmpdir/$n2
- set file1 tmpdir/$n1
- set file2 tmpdir/$n2
- } else {
- set file1 $n1
- set file2 $n2
- }
-
- if ![file exists $file1] {
- verbose -log "$file1 does not exist"
- fail $testname
- return
- }
- if ![file exists $file2] {
- verbose -log "$file2 does not exist"
- fail $testname
- return
- }
-
- set f [open $file1 r]
- if { [gets $f line] == -1 || $line != "first" } {
- verbose -log "$file1 contents:"
- verbose -log "$line"
- close $f
- fail $testname
- return
- }
- close $f
-
- set f [open $file2 r]
- if { [gets $f line] == -1 || $line != "second" } {
- verbose -log "$file2 contents:"
- verbose -log "$line"
- close $f
- fail $testname
- return
- }
- close $f
-
- file delete $file1 $file2
- pass $testname
-}
-
-# Test building the symbol table.
-
-proc symbol_table { } {
- global AR
- global AS
- global NM
- global srcdir
- global subdir
-
- set testname "ar symbol table"
-
- 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 "rc $archive ${objfile}"]
- if ![string match "" $got] {
- fail $testname
- return
- }
-
- set got [binutils_run $NM "--print-armap $archive"]
- if { ![string match "*text_symbol in bintest.o*" $got] \
- || ![string match "*data_symbol in bintest.o*" $got] \
- || ![string match "*common_symbol in bintest.o*" $got] \
- || [string match "*static_text_symbol in bintest.o*" $got] \
- || [string match "*static_data_symbol in bintest.o*" $got] \
- || [string match "*external_symbol in bintest.o*" $got] } {
- fail $testname
- return
- }
-
- pass $testname
-}
-
-# Test POSIX-compatible argument parsing.
-
-proc argument_parsing { } {
- global AR
- global AS
- global srcdir
- global subdir
-
- set testname "ar argument parsing"
-
- 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
- }
-
- pass $testname
-}
-
-# Run the tests.
-
-long_filenames
-symbol_table
-argument_parsing