github-repos/make
1
0
Fork 0
mirror of https://github.com/mirror/make.git synced 2025-01-16 23:31:08 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Paul Smith 2018-08-04 15:47:15 -04:00
parent a37fa47e32
commit a9975756d0
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/scripts/features/archives
View File

@ -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;