From: Paul Smith <psmith@gnu.org>
Date: Sat, 4 Aug 2018 19:47:15 +0000 (-0400)
Subject: * tests/scripts/features/archives: [SV 54395] Test long archive names.
X-Git-Tag: 4.2.90~37
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a9975756d00c448c7f81293d3fecbac7b88e692b;p=thirdparty%2Fmake.git

* tests/scripts/features/archives: [SV 54395] Test long archive names.
---

diff --git a/tests/scripts/features/archives b/tests/scripts/features/archives
index 111a1ffb..5662de42 100644
--- a/tests/scripts/features/archives
+++ b/tests/scripts/features/archives
@@ -213,5 +213,28 @@ if ($osname eq 'VMS') {
   remove_directory_tree('artest');
 }
 
+# Check long names for archive members.
+# See Savannah bug #54395
+
+if ($osname ne 'VMS') {
+    my $pre = '1234567890123456';
+    my $lib = 'foo.a';
+
+    run_make_test(qq!
+# Both member names > 16 characters long
+default: $lib(${pre}a) $lib(${pre}b)
+
+(%): % ; \$(AR) \$(ARFLAGS) \$@ \$%
+
+$pre%: ; touch \$\@
+!,
+                  $arvar, "touch ${pre}a\n$ar $arflags $lib ${pre}a\n$ar: creating $lib\na - ${pre}a\ntouch ${pre}b\n$ar $arflags $lib ${pre}b\na - ${pre}b\nrm ${pre}a ${pre}b\n");
+
+    # Run it again; nothing should happen
+    run_make_test(undef, $arvar, "#MAKE#: Nothing to be done for 'default'.\n");
+
+    unlink($lib);
+}
+
 # This tells the test driver that the perl test script executed properly.
 1;