mirrors/make
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/make.git synced 2025-02-04 22:02:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* tests/scripts/functions/wildcard: Skip slash tests for local glob.

Browse source
This commit is contained in:
Paul Smith 2019-10-05 14:45:45 -04:00
parent 393d2a2d4a
commit 2e6468c811
1 changed files with 51 additions and 45 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

96
tests/scripts/functions/wildcard
View file

@ -75,18 +75,21 @@ run_make_test(q!exists: ; @echo file=$(wildcard xxx.yyy)!, '', "file=\n");
# TEST #7: verify that when the input pattern has a trailing slash wildcard # TEST #7: verify that when the input pattern has a trailing slash wildcard
# returns only directories. # returns only directories.
#
# Currently this doesn't work with our embedded GLOB so disable it.
# ------- # -------
touch("hellof"); if (get_config('USE_SYSTEM_GLOB') eq 'yes') {
mkdir("hellod", 0770); touch("hellof");
mkdir("hellod/worldd", 0770); mkdir("hellod", 0770);
touch("hellod/worldf"); mkdir("hellod/worldd", 0770);
mkdir("hellod/worldd/kend1", 0770); touch("hellod/worldf");
mkdir("hellod/worldd/kend2", 0770); mkdir("hellod/worldd/kend1", 0770);
touch("hellod/worldd/kenf1"); mkdir("hellod/worldd/kend2", 0770);
touch("hellod/worldd/kenf2"); touch("hellod/worldd/kenf1");
touch("hellod/worldd/kenf2");
run_make_test(qq! run_make_test(qq!
print3: print3:
\t\@echo \$(wildcard hello*) \t\@echo \$(wildcard hello*)
\t\@echo \$(wildcard hello*/) \t\@echo \$(wildcard hello*/)
@ -102,56 +105,59 @@ print3:
\t\@echo \$(wildcard hellod/*/ken?[12]) \t\@echo \$(wildcard hellod/*/ken?[12])
\t\@echo \$(wildcard hellod/*/ken?[12]/) \t\@echo \$(wildcard hellod/*/ken?[12]/)
!, '', !, '',
"hellod hellof\n" "hellod hellof\n"
."hellod/\n" ."hellod/\n"
."hellod/worldd hellod/worldf\n" ."hellod/worldd hellod/worldf\n"
."hellod/worldd/\n" ."hellod/worldd/\n"
."hellod hellof hellod/worldd hellod/worldf\n" ."hellod hellof hellod/worldd hellod/worldf\n"
."hellod/ hellod/worldd/\n" ."hellod/ hellod/worldd/\n"
."hellod/worldd hellod/worldf\n" ."hellod/worldd hellod/worldf\n"
."hellod/worldd/\n" ."hellod/worldd/\n"
."hellod/worldd hellod/worldf\n" ."hellod/worldd hellod/worldf\n"
."hellod/worldd/\n" ."hellod/worldd/\n"
."hellod/worldd/kend1/ hellod/worldd/kend2/\n" ."hellod/worldd/kend1/ hellod/worldd/kend2/\n"
."hellod/worldd/kend1 hellod/worldd/kend2 " ."hellod/worldd/kend1 hellod/worldd/kend2 "
."hellod/worldd/kenf1 hellod/worldd/kenf2\n" ."hellod/worldd/kenf1 hellod/worldd/kenf2\n"
."hellod/worldd/kend1/ hellod/worldd/kend2/\n"); ."hellod/worldd/kend1/ hellod/worldd/kend2/\n");
unlink('hellof', 'hellod/worldf', 'hellod/worldd/kenf1', 'hellod/worldd/kenf2'); unlink('hellof', 'hellod/worldf', 'hellod/worldd/kenf1',
foreach $d ('hellod/worldd/kend1', 'hellod/worldd/kend2', 'hellod/worldd', 'hellod') { 'hellod/worldd/kenf2');
foreach $d ('hellod/worldd/kend1', 'hellod/worldd/kend2', 'hellod/worldd',
'hellod') {
rmdir($d); rmdir($d);
}
} }
if ($port_type ne 'W32') { if ($port_type ne 'W32') {
# Check wildcard on the root directory # Check wildcard on the root directory
run_make_test('print4: ; @echo $(wildcard /)', '', "/\n"); run_make_test('print4: ; @echo $(wildcard /)', '', "/\n");
} }
if ($port_type ne 'W32' && eval { symlink("",""); 1 }) { if ($port_type ne 'W32' && eval { symlink("",""); 1 }) {
# TEST #6: check for wildcards matching directories # TEST #6: check for wildcards matching directories
# See SV 53465 # See SV 53465
my $dir = '__rdir'; my $dir = '__rdir';
my $lnk = '__ldir'; my $lnk = '__ldir';
mkdir($dir, 0777); mkdir($dir, 0777);
symlink($dir, $lnk);
run_make_test(qq!all: ; \@echo \$(wildcard $lnk*/.)!, '', "$lnk/.");
unlink($lnk);
rmdir($dir);
# Test for dangling symlinks
# This doesn't work with the built-in glob... needs to be updated!
if (get_config('USE_SYSTEM_GLOB') eq 'yes') {
symlink($dir, $lnk); symlink($dir, $lnk);
run_make_test(qq!all: ; \@echo \$(wildcard $lnk*/.)!, '', "$lnk/."); run_make_test(qq!all: ; \@echo \$(wildcard $lnk)!, '', "$lnk");
unlink($lnk); unlink($lnk);
rmdir($dir); }
# Test for dangling symlinks
# This doesn't work with the built-in glob... needs to be updated!
if (get_config('USE_SYSTEM_GLOB') eq 'yes') {
symlink($dir, $lnk);
run_make_test(qq!all: ; \@echo \$(wildcard $lnk)!, '', "$lnk");
unlink($lnk);
}
} }
1; 1;