summaryrefslogtreecommitdiff
path: root/tests/scripts/features/archives
diff options
context:
space:
mode:
authorPaul Smith <psmith@gnu.org>2010-08-14 02:50:14 +0000
committerPaul Smith <psmith@gnu.org>2010-08-14 02:50:14 +0000
commit5acda13ace0ae4443ed04c4f8a62512b00a2b656 (patch)
treee12848b880e685ed54e2f86856c3d153517c6a5f /tests/scripts/features/archives
parent036760a9fdb11849b6a43feec7ce294e7f77db2a (diff)
downloadgunmake-5acda13ace0ae4443ed04c4f8a62512b00a2b656.tar.gz
- Fix the NEWS file to be accurate
- Add oneshell to $(.FEATURES) (forgot that!) - Fix Savannah bug #30612: handling of archive references with >1 object
Diffstat (limited to 'tests/scripts/features/archives')
-rw-r--r--tests/scripts/features/archives42
1 files changed, 42 insertions, 0 deletions
diff --git a/tests/scripts/features/archives b/tests/scripts/features/archives
new file mode 100644
index 0000000..00aa1af
--- /dev/null
+++ b/tests/scripts/features/archives
@@ -0,0 +1,42 @@
+# -*-mode: perl-*-
+
+$description = "Test GNU make's archive management features.";
+
+$details = "\
+This only works on systems that support it.";
+
+# If this instance of make doesn't support archives, skip it
+exists $FEATURES{archives} or return -1;
+
+# Create some .o files to work with
+utouch(-60, qw(a1.o a2.o a3.o));
+
+# Very simple
+run_make_test('all: libxx.a(a1.o)',
+ '', "ar rv libxx.a a1.o\nar: creating libxx.a\na - a1.o\n");
+
+# Multiple .o's. Add a new one to the existing library
+run_make_test('all: libxx.a(a1.o a2.o)',
+ '', "ar rv libxx.a a2.o\na - a2.o\n");
+
+# Touch one of the .o's so it's rebuilt
+utouch(-40, 'a1.o');
+run_make_test(undef, '', "ar rv libxx.a a1.o\nr - a1.o\n");
+
+# Use wildcards
+run_make_test('all: libxx.a(*.o)',
+ '', "#MAKE#: Nothing to be done for `all'.\n");
+
+# Touch one of the .o's so it's rebuilt
+utouch(-30, 'a1.o');
+run_make_test(undef, '', "ar rv libxx.a a1.o\nr - a1.o\n");
+
+# Use both wildcards and simple names
+utouch(-50, 'a2.o');
+run_make_test('all: libxx.a(a3.o *.o)', '',
+ "ar rv libxx.a a3.o\na - a3.o\nar rv libxx.a a2.o\nr - a2.o\n");
+
+rmfiles(qw(a1.o a2.o a3.o libxx.a));
+
+# This tells the test driver that the perl test script executed properly.
+1;