diff options
author | Paul Smith <psmith@gnu.org> | 2010-08-14 02:50:14 +0000 |
---|---|---|
committer | Paul Smith <psmith@gnu.org> | 2010-08-14 02:50:14 +0000 |
commit | 5acda13ace0ae4443ed04c4f8a62512b00a2b656 (patch) | |
tree | e12848b880e685ed54e2f86856c3d153517c6a5f /tests/scripts/features | |
parent | 036760a9fdb11849b6a43feec7ce294e7f77db2a (diff) | |
download | gunmake-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')
-rw-r--r-- | tests/scripts/features/archives | 42 |
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; |