mirror of
https://github.com/jart/cosmopolitan.git
synced 2025-10-26 03:00:57 +00:00
add make-4.3.tar.gz
This commit is contained in:
ahgamut
Justine Tunney
parent
0a0997a872
commit
19f70a154e
458 changed files with 239669 additions and 0 deletions
241
third_party/make/tests/scripts/features/archives
vendored
Normal file
241
third_party/make/tests/scripts/features/archives
vendored
Normal file
|
|
@ -0,0 +1,241 @@
|
|||
# -*-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;
|
||||
|
||||
# In theory archive support exists on Windows but it doesn't use ar;
|
||||
# someone will need to port this test.
|
||||
$port_type eq 'W32' and return -1;
|
||||
|
||||
# Create some .o files to work with
|
||||
if ($osname eq 'VMS') {
|
||||
# VMS AR needs real object files at this time.
|
||||
foreach $afile ('a1', 'a2', 'a3') {
|
||||
# Use non-standard extension to prevent implicit rules from recreating
|
||||
# objects when the test tampers with the timestamp.
|
||||
1 while unlink "$afile.c1";
|
||||
1 while unlink "$afile.o";
|
||||
open (MYFILE, ">$afile.c1");
|
||||
print MYFILE "int $afile(void) {return 1;}\n";
|
||||
close MYFILE;
|
||||
system("cc $afile.c1 /object=$afile.o");
|
||||
}
|
||||
} else {
|
||||
utouch(-60, qw(a1.o a2.o a3.o));
|
||||
}
|
||||
|
||||
# Fallback if configure did not find AR
|
||||
my $ar = get_config('AR') || 'ar';
|
||||
|
||||
my $redir = '2>&1';
|
||||
$redir = '' if $osname eq 'VMS';
|
||||
|
||||
my $arflags = 'rv';
|
||||
my $arvar = "AR=$ar";
|
||||
|
||||
# Newer versions of binutils can be built with --enable-deterministic-archives
|
||||
# which forces all timestamps (among other things) to always be 0, defeating
|
||||
# GNU make's archive support. See if ar supports the U option to disable it.
|
||||
unlink('libxx.a');
|
||||
$_ = `$ar U$arflags libxx.a a1.o $redir`;
|
||||
if ($? == 0) {
|
||||
$arflags = 'Urv';
|
||||
$arvar = "$arvar ARFLAGS=$arflags";
|
||||
}
|
||||
|
||||
# Some versions of ar print different things on creation. Find out.
|
||||
unlink('libxx.a');
|
||||
my $created = `$ar $arflags libxx.a a1.o $redir`;
|
||||
$created =~ s/a1\.o/#OBJECT#/g;
|
||||
|
||||
# Some versions of ar print different things on add. Find out.
|
||||
my $add = `$ar $arflags libxx.a a2.o $redir`;
|
||||
$add =~ s/a2\.o/#OBJECT#/g;
|
||||
|
||||
# Some versions of ar print different things on replacement. Find out.
|
||||
my $repl = `$ar $arflags libxx.a a2.o $redir`;
|
||||
$repl =~ s/a2\.o/#OBJECT#/g;
|
||||
|
||||
unlink('libxx.a');
|
||||
|
||||
# Very simple
|
||||
($_ = $created) =~ s/#OBJECT#/a1.o/g;
|
||||
my $answer = "$ar $arflags libxx.a a1.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a1.o';
|
||||
}
|
||||
run_make_test('all: libxx.a(a1.o)', $arvar, $answer);
|
||||
|
||||
# Multiple .o's. Add a new one to the existing library
|
||||
($_ = $add) =~ s/#OBJECT#/a2.o/g;
|
||||
|
||||
$answer = "$ar $arflags libxx.a a2.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a2.o';
|
||||
}
|
||||
run_make_test('all: libxx.a(a1.o a2.o)', $arvar, $answer);
|
||||
|
||||
# Touch one of the .o's so it's rebuilt
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
# utouch is not changing what VMS library compare is testing for.
|
||||
# So do a real change by regenerating the file.
|
||||
1 while unlink('a1.o');
|
||||
# Later time stamp than last insertion.
|
||||
sleep(2);
|
||||
system('cc a1.c1 /object=a1.o');
|
||||
# Next insertion will have a later timestamp.
|
||||
sleep(2);
|
||||
} else {
|
||||
utouch(-40, 'a1.o');
|
||||
}
|
||||
|
||||
($_ = $repl) =~ s/#OBJECT#/a1.o/g;
|
||||
$answer = "$ar $arflags libxx.a a1.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a1.o';
|
||||
}
|
||||
run_make_test(undef, $arvar, $answer);
|
||||
|
||||
# Use wildcards
|
||||
$answer = "#MAKE#: Nothing to be done for 'all'.\n";
|
||||
run_make_test('all: libxx.a(*.o)', $arvar, $answer);
|
||||
|
||||
# Touch one of the .o's so it's rebuilt
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
# utouch is not changing what VMS library compare is testing for.
|
||||
# So do a real change by regenerating the file.
|
||||
1 while unlink('a1.o');
|
||||
# Make timestamp later than last insertion.
|
||||
sleep(2);
|
||||
system('cc a1.c1 /object=a1.o');
|
||||
} else {
|
||||
utouch(-30, 'a1.o');
|
||||
}
|
||||
($_ = $repl) =~ s/#OBJECT#/a1.o/g;
|
||||
$answer = "$ar $arflags libxx.a a1.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a1.o';
|
||||
}
|
||||
run_make_test(undef, $arvar, $answer);
|
||||
|
||||
# Use both wildcards and simple names
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
# utouch is not changing what VMS library compare is testing for.
|
||||
# So do a real change by regenerating the file.
|
||||
1 while unlink('a2.o');
|
||||
sleep(2);
|
||||
system('cc a2.c1 /object=a2.o');
|
||||
} else {
|
||||
utouch(-50, 'a2.o');
|
||||
}
|
||||
($_ = $add) =~ s/#OBJECT#/a3.o/g;
|
||||
$_ .= "$ar $arflags libxx.a a2.o\n";
|
||||
($_ .= $repl) =~ s/#OBJECT#/a2.o/g;
|
||||
$answer = "$ar $arflags libxx.a a3.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a3.o';
|
||||
}
|
||||
|
||||
run_make_test('all: libxx.a(a3.o *.o)', $arvar, $answer);
|
||||
|
||||
# Check whitespace handling
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
# utouch is not changing what VMS library compare is testing for.
|
||||
# So do a real change by regenerating the file.
|
||||
1 while unlink('a2.o');
|
||||
sleep(2);
|
||||
system('cc a2.c1 /object=a2.o');
|
||||
} else {
|
||||
utouch(-40, 'a2.o');
|
||||
}
|
||||
($_ = $repl) =~ s/#OBJECT#/a2.o/g;
|
||||
$answer = "$ar $arflags libxx.a a2.o\n$_";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer = 'library /replace libxx.a a2.o';
|
||||
}
|
||||
run_make_test('all: libxx.a( a3.o *.o )', $arvar, $answer);
|
||||
|
||||
rmfiles(qw(a1.c1 a2.c1 a3.c1 a1.o a2.o a3.o libxx.a));
|
||||
|
||||
# Check non-archive targets
|
||||
# See Savannah bug #37878
|
||||
$mk_string = q!
|
||||
all: foo(bar).baz
|
||||
foo(bar).baz: ; @echo '$@'
|
||||
!;
|
||||
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$mk_string =~ s/echo/write sys\$\$output/;
|
||||
$mk_string =~ s/\'/\"/g;
|
||||
}
|
||||
run_make_test($mk_string, $arvar, "foo(bar).baz\n");
|
||||
|
||||
# Check renaming of archive targets.
|
||||
# See Savannah bug #38442
|
||||
|
||||
mkdir('artest', 0777);
|
||||
touch('foo.vhd');
|
||||
$mk_string = q!
|
||||
DIR = artest
|
||||
vpath % $(DIR)
|
||||
default: lib(foo)
|
||||
(%): %.vhd ; @cd $(DIR) && touch $(*F) && $(AR) $(ARFLAGS) $@ $(*F) >/dev/null 2>&1 && rm $(*F)
|
||||
.PHONY: default
|
||||
!;
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$mk_string =~ s#= artest#= sys\$\$disk:\[.artest\]#;
|
||||
$mk_string =~ s#lib\(foo\)#lib.tlb\(foo\)#;
|
||||
$mk_string =~ s#; \@cd#; pipe SET DEFAULT#;
|
||||
$mk_string =~
|
||||
s#touch \$\(\*F\)#touch \$\(\*F\) && library/create/text sys\$\$disk:\$\@#;
|
||||
$mk_string =~
|
||||
s#library#if f\$\$search(\"\$\@\") \.eqs\. \"\" then library#;
|
||||
# VMS needs special handling for null extension
|
||||
$mk_string =~ s#\@ \$\(\*F\)#\@ \$\(\*F\)\.#;
|
||||
$mk_string =~ s#>/dev/null 2>&1 ##;
|
||||
}
|
||||
run_make_test($mk_string, $arvar, "");
|
||||
|
||||
run_make_test(undef, $arvar, "#MAKE#: Nothing to be done for 'default'.\n");
|
||||
|
||||
unlink('foo.vhd');
|
||||
if ($osname eq 'VMS') {
|
||||
remove_directory_tree("$cwdpath/artest");
|
||||
} else {
|
||||
remove_directory_tree('artest');
|
||||
}
|
||||
|
||||
# Check long names for archive members.
|
||||
# See Savannah bug #54395
|
||||
|
||||
if ($osname ne 'VMS') {
|
||||
my $pre = '1234567890123456';
|
||||
my $lib = 'libxx.a';
|
||||
my $cr = $created;
|
||||
$cr =~ s/#OBJECT#/${pre}a/g;
|
||||
my $ad = $add;
|
||||
$ad =~ s/#OBJECT#/${pre}b/g;
|
||||
|
||||
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${cr}touch ${pre}b\n$ar $arflags $lib ${pre}b\n${ad}rm ${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;
|
||||
35
third_party/make/tests/scripts/features/comments
vendored
Normal file
35
third_party/make/tests/scripts/features/comments
vendored
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
$description = "The following test creates a makefile to test comments\n"
|
||||
."and comment continuation to the next line using a \n"
|
||||
."backslash within makefiles.";
|
||||
|
||||
$details = "To test comments within a makefile, a semi-colon was placed \n"
|
||||
."after a comment was started. This should not be reported as\n"
|
||||
."an error since it is within a comment. We then continue the \n"
|
||||
."comment to the next line using a backslash. To test whether\n"
|
||||
."the comment really continued, we place an echo command with some\n"
|
||||
."text on the line which should never execute since it should be \n"
|
||||
."within a comment\n";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE <<\EOF;
|
||||
# Test comment vs semicolon parsing and line continuation
|
||||
target: # this ; is just a comment \
|
||||
@echo This is within a comment.
|
||||
@echo There should be no errors for this makefile.
|
||||
EOF
|
||||
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
&run_make_with_options($makefile,"",&get_logfile);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "There should be no errors for this makefile.\n";
|
||||
|
||||
# COMPARE RESULTS
|
||||
|
||||
&compare_output($answer,&get_logfile(1))
|
||||
162
third_party/make/tests/scripts/features/conditionals
vendored
Normal file
162
third_party/make/tests/scripts/features/conditionals
vendored
Normal file
|
|
@ -0,0 +1,162 @@
|
|||
# -*-perl-*-
|
||||
$description = "Check GNU make conditionals.";
|
||||
|
||||
$details = "Attempt various different flavors of GNU make conditionals.";
|
||||
|
||||
run_make_test('
|
||||
arg1 = first
|
||||
arg2 = second
|
||||
arg3 = third
|
||||
arg4 = cc
|
||||
arg5 = second
|
||||
|
||||
all:
|
||||
ifeq ($(arg1),$(arg2))
|
||||
@echo arg1 equals arg2
|
||||
else
|
||||
@echo arg1 NOT equal arg2
|
||||
endif
|
||||
|
||||
ifeq \'$(arg2)\' "$(arg5)"
|
||||
@echo arg2 equals arg5
|
||||
else
|
||||
@echo arg2 NOT equal arg5
|
||||
endif
|
||||
|
||||
ifneq \'$(arg3)\' \'$(arg4)\'
|
||||
@echo arg3 NOT equal arg4
|
||||
else
|
||||
@echo arg3 equal arg4
|
||||
endif
|
||||
|
||||
ifndef undefined
|
||||
@echo variable is undefined
|
||||
else
|
||||
@echo variable undefined is defined
|
||||
endif
|
||||
ifdef arg4
|
||||
@echo arg4 is defined
|
||||
else
|
||||
@echo arg4 is NOT defined
|
||||
endif',
|
||||
'',
|
||||
'arg1 NOT equal arg2
|
||||
arg2 equals arg5
|
||||
arg3 NOT equal arg4
|
||||
variable is undefined
|
||||
arg4 is defined');
|
||||
|
||||
|
||||
# Test expansion of variables inside ifdef.
|
||||
|
||||
run_make_test('
|
||||
foo = 1
|
||||
|
||||
FOO = foo
|
||||
F = f
|
||||
|
||||
DEF = no
|
||||
DEF2 = no
|
||||
|
||||
ifdef $(FOO)
|
||||
DEF = yes
|
||||
endif
|
||||
|
||||
ifdef $(F)oo
|
||||
DEF2 = yes
|
||||
endif
|
||||
|
||||
|
||||
DEF3 = no
|
||||
FUNC = $1
|
||||
ifdef $(call FUNC,DEF)3
|
||||
DEF3 = yes
|
||||
endif
|
||||
|
||||
all:; @echo DEF=$(DEF) DEF2=$(DEF2) DEF3=$(DEF3)',
|
||||
'',
|
||||
'DEF=yes DEF2=yes DEF3=yes');
|
||||
|
||||
|
||||
# Test all the different "else if..." constructs
|
||||
|
||||
run_make_test('
|
||||
arg1 = first
|
||||
arg2 = second
|
||||
arg3 = third
|
||||
arg4 = cc
|
||||
arg5 = fifth
|
||||
|
||||
result =
|
||||
|
||||
ifeq ($(arg1),$(arg2))
|
||||
result += arg1 equals arg2
|
||||
else ifeq \'$(arg2)\' "$(arg5)"
|
||||
result += arg2 equals arg5
|
||||
else ifneq \'$(arg3)\' \'$(arg3)\'
|
||||
result += arg3 NOT equal arg4
|
||||
else ifndef arg5
|
||||
result += variable is undefined
|
||||
else ifdef undefined
|
||||
result += arg4 is defined
|
||||
else
|
||||
result += success
|
||||
endif
|
||||
|
||||
|
||||
all: ; @echo $(result)',
|
||||
'',
|
||||
'success');
|
||||
|
||||
|
||||
# Test some random "else if..." construct nesting
|
||||
|
||||
run_make_test('
|
||||
arg1 = first
|
||||
arg2 = second
|
||||
arg3 = third
|
||||
arg4 = cc
|
||||
arg5 = second
|
||||
|
||||
ifeq ($(arg1),$(arg2))
|
||||
$(info failed 1)
|
||||
else ifeq \'$(arg2)\' "$(arg2)"
|
||||
ifdef undefined
|
||||
$(info failed 2)
|
||||
else
|
||||
$(info success)
|
||||
endif
|
||||
else ifneq \'$(arg3)\' \'$(arg3)\'
|
||||
$(info failed 3)
|
||||
else ifdef arg5
|
||||
$(info failed 4)
|
||||
else ifdef undefined
|
||||
$(info failed 5)
|
||||
else
|
||||
$(info failed 6)
|
||||
endif
|
||||
|
||||
.PHONY: all
|
||||
all: ; @:',
|
||||
'',
|
||||
'success');
|
||||
|
||||
# SV 47960 : ensure variable assignments in non-taken legs don't cause problems
|
||||
run_make_test('
|
||||
ifneq ($(FOO),yes)
|
||||
target:
|
||||
else
|
||||
BAR = bar
|
||||
target:
|
||||
endif
|
||||
@echo one
|
||||
',
|
||||
'', "one\n");
|
||||
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
44
third_party/make/tests/scripts/features/default_names
vendored
Normal file
44
third_party/make/tests/scripts/features/default_names
vendored
Normal file
|
|
@ -0,0 +1,44 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "This script tests to make sure that Make looks for
|
||||
default makefiles in the correct order (GNUmakefile,makefile,Makefile)";
|
||||
|
||||
# Create a makefile called "GNUmakefile"
|
||||
$makefile = "GNUmakefile";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
print MAKEFILE "FIRST: ; \@echo It chose GNUmakefile\n";
|
||||
close(MAKEFILE);
|
||||
|
||||
# Create another makefile called "makefile"
|
||||
open(MAKEFILE,"> makefile");
|
||||
print MAKEFILE "SECOND: ; \@echo It chose makefile\n";
|
||||
close(MAKEFILE);
|
||||
|
||||
# DOS/WIN32/MacOSX platforms are case-insensitive / case-preserving, so
|
||||
# Makefile is the same file as makefile. Just test what we can here.
|
||||
|
||||
my $case_sensitive = 0;
|
||||
if (! -f 'Makefile') {
|
||||
# Create another makefile called "Makefile"
|
||||
$case_sensitive = 1;
|
||||
open(MAKEFILE,"> Makefile");
|
||||
print MAKEFILE "THIRD: ; \@echo It chose Makefile\n";
|
||||
close(MAKEFILE);
|
||||
}
|
||||
|
||||
run_make_with_options("","",&get_logfile);
|
||||
compare_output("It chose GNUmakefile\n",&get_logfile(1));
|
||||
unlink($makefile);
|
||||
|
||||
run_make_with_options("","",&get_logfile);
|
||||
compare_output("It chose makefile\n",&get_logfile(1));
|
||||
unlink("makefile");
|
||||
|
||||
if ($case_sensitive) {
|
||||
run_make_with_options("","",&get_logfile);
|
||||
compare_output("It chose Makefile\n",&get_logfile(1));
|
||||
unlink("Makefile");
|
||||
}
|
||||
|
||||
1;
|
||||
220
third_party/make/tests/scripts/features/double_colon
vendored
Normal file
220
third_party/make/tests/scripts/features/double_colon
vendored
Normal file
|
|
@ -0,0 +1,220 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test handling of double-colon rules.";
|
||||
|
||||
$details = "\
|
||||
We test these features:
|
||||
|
||||
- Multiple commands for the same (double-colon) target
|
||||
- Different prerequisites for targets: only out-of-date
|
||||
ones are rebuilt.
|
||||
- Double-colon targets that aren't the goal target.
|
||||
|
||||
Then we do the same thing for parallel builds: double-colon
|
||||
targets should always be built serially.";
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
print MAKEFILE <<'EOF';
|
||||
|
||||
all: baz
|
||||
|
||||
foo:: f1.h ; @echo foo FIRST
|
||||
foo:: f2.h ; @echo foo SECOND
|
||||
|
||||
bar:: ; @echo aaa; sleep 1; echo aaa done
|
||||
bar:: ; @echo bbb
|
||||
|
||||
baz:: ; @echo aaa
|
||||
baz:: ; @echo bbb
|
||||
|
||||
biz:: ; @echo aaa
|
||||
biz:: two ; @echo bbb
|
||||
|
||||
two: ; @echo two
|
||||
|
||||
f1.h f2.h: ; @echo $@
|
||||
|
||||
d :: ; @echo ok
|
||||
d :: d ; @echo oops
|
||||
|
||||
EOF
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
# TEST 0: A simple double-colon rule that isn't the goal target.
|
||||
|
||||
&run_make_with_options($makefile, "all", &get_logfile, 0);
|
||||
$answer = "aaa\nbbb\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
# TEST 1: As above, in parallel
|
||||
|
||||
if ($parallel_jobs) {
|
||||
&run_make_with_options($makefile, "-j10 all", &get_logfile, 0);
|
||||
$answer = "aaa\nbbb\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
}
|
||||
|
||||
# TEST 2: A simple double-colon rule that is the goal target
|
||||
|
||||
&run_make_with_options($makefile, "bar", &get_logfile, 0);
|
||||
$answer = "aaa\naaa done\nbbb\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
# TEST 3: As above, in parallel
|
||||
|
||||
if ($parallel_jobs) {
|
||||
&run_make_with_options($makefile, "-j10 bar", &get_logfile, 0);
|
||||
$answer = "aaa\naaa done\nbbb\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
}
|
||||
|
||||
# TEST 4: Each double-colon rule is supposed to be run individually
|
||||
|
||||
&utouch(-5, 'f2.h');
|
||||
&touch('foo');
|
||||
|
||||
&run_make_with_options($makefile, "foo", &get_logfile, 0);
|
||||
$answer = "f1.h\nfoo FIRST\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
# TEST 5: Again, in parallel.
|
||||
|
||||
if ($parallel_jobs) {
|
||||
&run_make_with_options($makefile, "-j10 foo", &get_logfile, 0);
|
||||
$answer = "f1.h\nfoo FIRST\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
}
|
||||
|
||||
# TEST 6: Each double-colon rule is supposed to be run individually
|
||||
|
||||
&utouch(-5, 'f1.h');
|
||||
unlink('f2.h');
|
||||
&touch('foo');
|
||||
|
||||
&run_make_with_options($makefile, "foo", &get_logfile, 0);
|
||||
$answer = "f2.h\nfoo SECOND\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
# TEST 7: Again, in parallel.
|
||||
|
||||
if ($parallel_jobs) {
|
||||
&run_make_with_options($makefile, "-j10 foo", &get_logfile, 0);
|
||||
$answer = "f2.h\nfoo SECOND\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
}
|
||||
|
||||
# TEST 8: Test circular dependency check; PR/1671
|
||||
|
||||
&run_make_with_options($makefile, "d", &get_logfile, 0);
|
||||
$answer = "ok\n$make_name: Circular d <- d dependency dropped.\noops\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
# TEST 8: I don't grok why this is different than the above, but it is...
|
||||
#
|
||||
# Hmm... further testing indicates this might be timing-dependent?
|
||||
#
|
||||
#if ($parallel_jobs) {
|
||||
# &run_make_with_options($makefile, "-j10 biz", &get_logfile, 0);
|
||||
# $answer = "aaa\ntwo\nbbb\n";
|
||||
# &compare_output($answer, &get_logfile(1));
|
||||
#}
|
||||
|
||||
unlink('foo','f1.h','f2.h');
|
||||
|
||||
|
||||
# TEST 9: make sure all rules in s double colon family get executed
|
||||
# (Savannah bug #14334).
|
||||
#
|
||||
|
||||
&touch('one');
|
||||
&touch('two');
|
||||
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all: result
|
||||
|
||||
result:: one
|
||||
@echo $^ >>$@
|
||||
@echo $^
|
||||
|
||||
result:: two
|
||||
@echo $^ >>$@
|
||||
@echo $^
|
||||
|
||||
',
|
||||
'',
|
||||
'one
|
||||
two');
|
||||
|
||||
unlink('result','one','two');
|
||||
|
||||
# TEST 10: SV 33399 : check for proper backslash handling
|
||||
|
||||
run_make_test('
|
||||
a\ xb :: ; @echo one
|
||||
a\ xb :: ; @echo two
|
||||
',
|
||||
'', "one\ntwo\n");
|
||||
|
||||
# Test 11: SV 44742 : All double-colon rules should be run in parallel build.
|
||||
|
||||
run_make_test('result :: 01
|
||||
@echo update
|
||||
@touch $@
|
||||
result :: 02
|
||||
@echo update
|
||||
@touch $@
|
||||
result :: 03
|
||||
@echo update
|
||||
@touch $@
|
||||
result :: 04
|
||||
@echo update
|
||||
@touch $@
|
||||
result :: 05
|
||||
@echo update
|
||||
@touch $@
|
||||
01 02 03 04 05:
|
||||
@touch 01 02 03 04 05
|
||||
',
|
||||
'-j10 result', "update\nupdate\nupdate\nupdate\nupdate\n");
|
||||
|
||||
unlink('result', '01', '02', '03', '04', '05');
|
||||
|
||||
# Test 12: SV 44742 : Double-colon rules with parallelism
|
||||
|
||||
run_make_test('
|
||||
root: all
|
||||
echo root
|
||||
all::
|
||||
echo all_one
|
||||
all:: 3
|
||||
echo all_two
|
||||
%:
|
||||
sleep $*
|
||||
',
|
||||
'-rs -j2 1 2 root', "all_one\nall_two\nroot\n");
|
||||
|
||||
# SV 47995 : Parallel double-colon rules with FORCE
|
||||
|
||||
run_make_test('
|
||||
all:: ; @echo one
|
||||
|
||||
all:: joe ; @echo four
|
||||
|
||||
joe: FORCE ; touch joe-is-forced
|
||||
|
||||
FORCE:
|
||||
',
|
||||
'-j5', "one\ntouch joe-is-forced\nfour\n");
|
||||
|
||||
unlink('joe-is-forced');
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
64
third_party/make/tests/scripts/features/echoing
vendored
Normal file
64
third_party/make/tests/scripts/features/echoing
vendored
Normal file
|
|
@ -0,0 +1,64 @@
|
|||
# -*-perl-*-
|
||||
$description = "The following test creates a makefile to test command
|
||||
echoing. It tests that when a command line starts with
|
||||
a '\@', the echoing of that line is suppressed. It also
|
||||
tests the -n option which tells make to ONLY echo the
|
||||
commands and no execution happens. In this case, even
|
||||
the commands with '\@' are printed. Lastly, it tests the
|
||||
-s flag which tells make to prevent all echoing, as if
|
||||
all commands started with a '\@'.";
|
||||
|
||||
$details = "This test is similar to the 'clean' test except that a '\@' has
|
||||
been placed in front of the delete command line. Four tests
|
||||
are run here. First, make is run normally and the first echo
|
||||
command should be executed. In this case there is no '\@' so
|
||||
we should expect make to display the command AND display the
|
||||
echoed message. Secondly, make is run with the clean target,
|
||||
but since there is a '\@' at the beginning of the command, we
|
||||
expect no output; just the deletion of a file which we check
|
||||
for. Third, we give the clean target again except this time
|
||||
we give make the -n option. We now expect the command to be
|
||||
displayed but not to be executed. In this case we need only
|
||||
to check the output since an error message would be displayed
|
||||
if it actually tried to run the delete command again and the
|
||||
file didn't exist. Lastly, we run the first test again with
|
||||
the -s option and check that make did not echo the echo
|
||||
command before printing the message.\n";
|
||||
|
||||
$example = "EXAMPLE_FILE";
|
||||
|
||||
touch($example);
|
||||
|
||||
# TEST #1
|
||||
# -------
|
||||
|
||||
run_make_test("
|
||||
all:
|
||||
\techo This makefile did not clean the dir... good
|
||||
clean:
|
||||
\t\@$CMD_rmfile $example\n",
|
||||
'', 'echo This makefile did not clean the dir... good
|
||||
This makefile did not clean the dir... good');
|
||||
|
||||
# TEST #2
|
||||
# -------
|
||||
|
||||
run_make_test(undef, 'clean', '');
|
||||
if (-f $example) {
|
||||
$test_passed = 0;
|
||||
unlink($example);
|
||||
}
|
||||
|
||||
# TEST #3
|
||||
# -------
|
||||
|
||||
run_make_test(undef, '-n clean', "$CMD_rmfile $example\n");
|
||||
|
||||
|
||||
# TEST #4
|
||||
# -------
|
||||
|
||||
run_make_test(undef, '-s', "This makefile did not clean the dir... good\n");
|
||||
|
||||
|
||||
1;
|
||||
105
third_party/make/tests/scripts/features/errors
vendored
Normal file
105
third_party/make/tests/scripts/features/errors
vendored
Normal file
|
|
@ -0,0 +1,105 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test ignored failures in recipe command lines";
|
||||
|
||||
run_make_test(qq!
|
||||
one:
|
||||
\t-exit 1
|
||||
\texit 0
|
||||
two:
|
||||
\texit 1
|
||||
\texit 0
|
||||
!,
|
||||
"one", "exit 1\n#MAKE#: [#MAKEFILE#:3: one] Error 1 (ignored)\nexit 0\n");
|
||||
|
||||
# TEST #1
|
||||
# -------
|
||||
|
||||
run_make_test(undef, " -i two",
|
||||
"exit 1\n#MAKE#: [#MAKEFILE#:6: two] Error 1 (ignored)\nexit 0\n");
|
||||
|
||||
# TEST #2
|
||||
# -------
|
||||
|
||||
# Test that error line offset works
|
||||
|
||||
run_make_test(qq!
|
||||
all:
|
||||
\t\@echo hi
|
||||
\t\@echo there
|
||||
\t\@exit 1
|
||||
!,
|
||||
'', "hi\nthere\n#MAKE#: *** [#MAKEFILE#:5: all] Error 1", 512);
|
||||
|
||||
# TEST #3
|
||||
# -------
|
||||
|
||||
# Try failing due to unknown command
|
||||
my $unk = './foobarbazbozblat';
|
||||
unlink($unk);
|
||||
|
||||
my $err = $ERR_no_such_file;
|
||||
|
||||
run_make_test(qq!
|
||||
one: ; -$unk xx yy
|
||||
!,
|
||||
'one', "$unk xx yy\n#MAKE#: $unk: $err\n#MAKE#: [#MAKEFILE#:2: one] Error 127 (ignored)\n");
|
||||
|
||||
# TEST #4
|
||||
# -------
|
||||
|
||||
run_make_test(qq!
|
||||
two: ; $unk aa bb
|
||||
!, 'two -i',
|
||||
"$unk aa bb\n#MAKE#: $unk: $err\n#MAKE#: [#MAKEFILE#:2: two] Error 127 (ignored)\n");
|
||||
|
||||
# TEST #5
|
||||
# -------
|
||||
|
||||
run_make_test(undef, 'two',
|
||||
"$unk aa bb\n#MAKE#: $unk: $err\n#MAKE#: *** [#MAKEFILE#:2: two] Error 127\n", 512);
|
||||
|
||||
# SV #56918 : Test the unknown command as the second recipe line
|
||||
|
||||
run_make_test(qq!
|
||||
three:
|
||||
\t\@echo one
|
||||
\t$unk qq rr
|
||||
!, 'three',
|
||||
"one\n$unk qq rr\n#MAKE#: $unk: $err\n#MAKE#: *** [#MAKEFILE#:4: three] Error 127\n", 512);
|
||||
|
||||
# Try failing due to non-executable file
|
||||
|
||||
if ($ERR_nonexe_file) {
|
||||
my $noexe = './barfooblatboz';
|
||||
touch($noexe);
|
||||
|
||||
run_make_test(qq!
|
||||
one: ; -$noexe xx yy
|
||||
two: ; $noexe aa bb
|
||||
!,
|
||||
'one', "$noexe xx yy\n#MAKE#: $noexe: $ERR_nonexe_file\n#MAKE#: [#MAKEFILE#:2: one] Error 127 (ignored)\n");
|
||||
|
||||
unlink($noexe);
|
||||
}
|
||||
|
||||
# Try failing by "running" a directory
|
||||
|
||||
if ($ERR_exe_dir) {
|
||||
mkdir('sd', 0775);
|
||||
|
||||
run_make_test(q!
|
||||
PATH := .
|
||||
all: ; sd
|
||||
!,
|
||||
'', "sd\n#MAKE#: sd: $ERR_exe_dir\n#MAKE#: *** [#MAKEFILE#:3: all] Error 127", 512);
|
||||
|
||||
run_make_test(q!
|
||||
all: ; ./sd
|
||||
!,
|
||||
'', "./sd\n#MAKE#: ./sd: $ERR_exe_dir\n#MAKE#: *** [#MAKEFILE#:2: all] Error 127", 512);
|
||||
|
||||
rmdir('sd');
|
||||
}
|
||||
|
||||
1;
|
||||
103
third_party/make/tests/scripts/features/escape
vendored
Normal file
103
third_party/make/tests/scripts/features/escape
vendored
Normal file
|
|
@ -0,0 +1,103 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test various types of escaping in makefiles.";
|
||||
|
||||
$details = "\
|
||||
Make sure that escaping of ':' works in target names.
|
||||
Make sure escaping of whitespace works in target names.
|
||||
Make sure that escaping of '#' works.
|
||||
Make sure that backslash before non-special characters are kept.";
|
||||
|
||||
|
||||
# TEST 1
|
||||
|
||||
run_make_test(q!
|
||||
ifdef NOESC
|
||||
path = pre:
|
||||
endif
|
||||
ifdef ONEESC
|
||||
path = pre\:
|
||||
endif
|
||||
ifdef TWOESC
|
||||
path = pre\\\\:
|
||||
endif
|
||||
|
||||
$(path)foo : ; @echo "touch ($@)"
|
||||
|
||||
foo\ bar: ; @echo "touch ($@)"
|
||||
|
||||
sharp: foo\#bar.ext
|
||||
foo\#bar.ext: ; @echo "foo#bar.ext = ($@)"
|
||||
!,
|
||||
'',
|
||||
'touch (foo)');
|
||||
|
||||
# TEST 2: This one should fail, since the ":" is unquoted.
|
||||
|
||||
run_make_test(undef,
|
||||
'NOESC=1',
|
||||
"#MAKEFILE#:12: *** target pattern contains no '%'. Stop.",
|
||||
512);
|
||||
|
||||
# TEST 3: This one should work, since we escape the ":".
|
||||
|
||||
run_make_test(undef,
|
||||
'ONEESC=1',
|
||||
'touch (pre:foo)');
|
||||
|
||||
# TEST 4: This one should fail, since the escape char is escaped.
|
||||
|
||||
run_make_test(undef,
|
||||
'TWOESC=1',
|
||||
"#MAKEFILE#:12: *** target pattern contains no '%'. Stop.",
|
||||
512);
|
||||
|
||||
# TEST 5: This one should work
|
||||
|
||||
run_make_test(undef,
|
||||
['foo bar'],
|
||||
'touch (foo bar)');
|
||||
|
||||
# TEST 6: Test escaped comments
|
||||
|
||||
run_make_test(undef,
|
||||
'sharp',
|
||||
'foo#bar.ext = (foo#bar.ext)');
|
||||
|
||||
# Test escaped colons in prerequisites
|
||||
# Quoting of backslashes in q!! is kind of messy.
|
||||
# Solaris sh does not properly handle backslashes even in '' so just
|
||||
# check the output make prints, not what the shell interprets.
|
||||
run_make_test(q!
|
||||
foo: foo\\:bar foo\\\\\\:bar foo\\\\\\\\\\:bar
|
||||
foo foo\\:bar foo\\\\\\:bar foo\\\\\\\\\\:bar: ; : '$@'
|
||||
!,
|
||||
'', ": 'foo:bar'\n: 'foo\\:bar'\n: 'foo\\\\:bar'\n: 'foo'\n");
|
||||
|
||||
# Test backslash before non-special chars: should be kept as-is
|
||||
|
||||
run_make_test(q!
|
||||
all: ..\foo
|
||||
.DEFAULT: ; : '$@'
|
||||
!,
|
||||
'', ": '..\\foo'\n");
|
||||
|
||||
# Test escaped comments in variable assignments
|
||||
run_make_test(q!
|
||||
self = $1
|
||||
foo := $(call self,#foo#)#foo
|
||||
bar := $(call self,\#bar\#)#bar
|
||||
all:;@echo '$(foo) $(bar)'
|
||||
!,
|
||||
'',"#foo# \\#bar\\#");
|
||||
|
||||
# Test escaped comments in variable assignments in a variable
|
||||
run_make_test(q!
|
||||
C = \#
|
||||
self = $1
|
||||
foo := $(call self,$Cfoo$C)#foo
|
||||
all:;@echo '$(foo)'
|
||||
!,
|
||||
'',"#foo#");
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
63
third_party/make/tests/scripts/features/exec
vendored
Normal file
63
third_party/make/tests/scripts/features/exec
vendored
Normal file
|
|
@ -0,0 +1,63 @@
|
|||
# -*-perl-*-
|
||||
|
||||
use warnings;
|
||||
|
||||
my $description = "Test that make can execute binaries as well as scripts with"
|
||||
." various shabangs and without a shebang";
|
||||
my $details = "The various shells that this test uses are the default"
|
||||
." /bin/sh, \$SHELL and the perl interpreter that is"
|
||||
." executing this test program. The shells are used for the value"
|
||||
." of SHELL inside the test makefile and also as a shebang in the"
|
||||
." executed script. There is also a test which executes a script"
|
||||
." that has no shebang.";
|
||||
|
||||
# Only bother with this on UNIX systems
|
||||
$port_type eq 'UNIX' or return -1;
|
||||
|
||||
my $usersh = $origENV{SHELL};
|
||||
my $answer = 'hello, world';
|
||||
|
||||
my @shebangs = ('', '#!/bin/sh', "#!$usersh", "#!$perl_name");
|
||||
my @shells = ('', 'SHELL=/bin/sh', "SHELL=$usersh");
|
||||
|
||||
# tests [0-11]
|
||||
# Have a makefile with various SHELL= exec a shell program with varios
|
||||
# shebangs or without a shebang at all.
|
||||
my $stem = './exec.cmd';
|
||||
my $k = 0;
|
||||
for my $shebang (@shebangs) {
|
||||
for my $shell (@shells) {
|
||||
my $cmd = $k ? "$stem.$k" : $stem;
|
||||
++$k;
|
||||
unlink $cmd;
|
||||
open(CMD,"> $cmd");
|
||||
print CMD "$shebang\n";
|
||||
print CMD "printf \"$answer\\n\";\n";
|
||||
close(CMD);
|
||||
chmod 0700, $cmd;
|
||||
|
||||
run_make_test(q!
|
||||
all:; @$(CMD)
|
||||
!, "$shell CMD=$cmd", "$answer\n");
|
||||
|
||||
rmfiles($cmd);
|
||||
}
|
||||
}
|
||||
|
||||
# tests [12-14]
|
||||
# Exec a binary from a makefile that has SHELL=.
|
||||
for my $shell (@shells) {
|
||||
run_make_test(q!
|
||||
all:; @#PERL# -e 'printf "$(ANSWER)\n"';
|
||||
!, "$shell ANSWER='$answer'", "$answer\n");
|
||||
}
|
||||
|
||||
# test 15
|
||||
# Use perl as a shell.
|
||||
run_make_test(q!
|
||||
SHELL = #PERL#
|
||||
.SHELLFLAGS = -e
|
||||
all:; @printf "$(ANSWER)\n";
|
||||
!, "ANSWER='$answer'", "$answer\n");
|
||||
|
||||
1;
|
||||
186
third_party/make/tests/scripts/features/export
vendored
Normal file
186
third_party/make/tests/scripts/features/export
vendored
Normal file
|
|
@ -0,0 +1,186 @@
|
|||
# -*-perl-*-
|
||||
$description = "Check GNU make export/unexport commands.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# The test driver cleans out our environment for us so we don't have to worry
|
||||
# about that here.
|
||||
|
||||
&run_make_test('
|
||||
FOO = foo
|
||||
BAR = bar
|
||||
BOZ = boz
|
||||
|
||||
export BAZ = baz
|
||||
export BOZ
|
||||
|
||||
BITZ = bitz
|
||||
BOTZ = botz
|
||||
|
||||
export BITZ BOTZ
|
||||
unexport BOTZ
|
||||
|
||||
ifdef EXPORT_ALL
|
||||
export
|
||||
endif
|
||||
|
||||
ifdef UNEXPORT_ALL
|
||||
unexport
|
||||
endif
|
||||
|
||||
ifdef EXPORT_ALL_PSEUDO
|
||||
.EXPORT_ALL_VARIABLES:
|
||||
endif
|
||||
|
||||
all:
|
||||
@echo "FOO=$(FOO) BAR=$(BAR) BAZ=$(BAZ) BOZ=$(BOZ) BITZ=$(BITZ) BOTZ=$(BOTZ)"
|
||||
@echo "FOO=$$FOO BAR=$$BAR BAZ=$$BAZ BOZ=$$BOZ BITZ=$$BITZ BOTZ=$$BOTZ"
|
||||
',
|
||||
'', "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 1: make sure vars inherited from the parent are exported
|
||||
|
||||
$extraENV{FOO} = 1;
|
||||
|
||||
&run_make_test(undef, '', "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO=foo BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 2: global export. Explicit unexport takes precedence.
|
||||
|
||||
run_make_test(undef, "EXPORT_ALL=1" ,
|
||||
"FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 3: global unexport. Explicit export takes precedence.
|
||||
|
||||
&run_make_test(undef, "UNEXPORT_ALL=1",
|
||||
"FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 4: both: in the above makefile the unexport comes last so that rules.
|
||||
|
||||
&run_make_test(undef, "EXPORT_ALL=1 UNEXPORT_ALL=1",
|
||||
"FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 5: test the pseudo target.
|
||||
|
||||
&run_make_test(undef, "EXPORT_ALL_PSEUDO=1",
|
||||
"FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
|
||||
FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
|
||||
|
||||
# TEST 6: Test the expansion of variables inside export
|
||||
|
||||
&run_make_test('
|
||||
foo = f-ok
|
||||
bar = b-ok
|
||||
|
||||
FOO = foo
|
||||
F = f
|
||||
|
||||
BAR = bar
|
||||
B = b
|
||||
|
||||
export $(FOO)
|
||||
export $(B)ar
|
||||
|
||||
all:
|
||||
@echo foo=$(foo) bar=$(bar)
|
||||
@echo foo=$$foo bar=$$bar
|
||||
',
|
||||
"", "foo=f-ok bar=b-ok\nfoo=f-ok bar=b-ok\n");
|
||||
|
||||
# TEST 7: Test the expansion of variables inside unexport
|
||||
|
||||
&run_make_test('
|
||||
foo = f-ok
|
||||
bar = b-ok
|
||||
|
||||
FOO = foo
|
||||
F = f
|
||||
|
||||
BAR = bar
|
||||
B = b
|
||||
|
||||
export foo bar
|
||||
|
||||
unexport $(FOO)
|
||||
unexport $(B)ar
|
||||
|
||||
all:
|
||||
@echo foo=$(foo) bar=$(bar)
|
||||
@echo foo=$$foo bar=$$bar
|
||||
',
|
||||
'', "foo=f-ok bar=b-ok\nfoo= bar=\n");
|
||||
|
||||
# TEST 7: Test exporting multiple variables on the same line
|
||||
|
||||
&run_make_test('
|
||||
A = a
|
||||
B = b
|
||||
C = c
|
||||
D = d
|
||||
E = e
|
||||
F = f
|
||||
G = g
|
||||
H = h
|
||||
I = i
|
||||
J = j
|
||||
|
||||
SOME = A B C
|
||||
|
||||
export F G H I J
|
||||
|
||||
export D E $(SOME)
|
||||
|
||||
all: ; @echo A=$$A B=$$B C=$$C D=$$D E=$$E F=$$F G=$$G H=$$H I=$$I J=$$J
|
||||
',
|
||||
'', "A=a B=b C=c D=d E=e F=f G=g H=h I=i J=j\n");
|
||||
|
||||
# TEST 8: Test unexporting multiple variables on the same line
|
||||
|
||||
@extraENV{qw(A B C D E F G H I J)} = qw(1 2 3 4 5 6 7 8 9 10);
|
||||
|
||||
&run_make_test('
|
||||
A = a
|
||||
B = b
|
||||
C = c
|
||||
D = d
|
||||
E = e
|
||||
F = f
|
||||
G = g
|
||||
H = h
|
||||
I = i
|
||||
J = j
|
||||
|
||||
SOME = A B C
|
||||
|
||||
unexport F G H I J
|
||||
|
||||
unexport D E $(SOME)
|
||||
|
||||
all: ; @echo A=$$A B=$$B C=$$C D=$$D E=$$E F=$$F G=$$G H=$$H I=$$I J=$$J
|
||||
',
|
||||
'', "A= B= C= D= E= F= G= H= I= J=\n");
|
||||
|
||||
# TEST 9: Check setting a variable named "export"
|
||||
|
||||
&run_make_test('
|
||||
export = 123
|
||||
export export
|
||||
export export = 456
|
||||
a: ; @echo "\$$(export)=$(export) / \$$export=$$export"
|
||||
',
|
||||
'', "\$(export)=456 / \$export=456\n");
|
||||
|
||||
# TEST 9: Check "export" as a target
|
||||
|
||||
&run_make_test('
|
||||
a: export
|
||||
export: ; @echo "$@"
|
||||
',
|
||||
'', "export\n");
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
133
third_party/make/tests/scripts/features/grouped_targets
vendored
Normal file
133
third_party/make/tests/scripts/features/grouped_targets
vendored
Normal file
|
|
@ -0,0 +1,133 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "This test is about grouped multiple targets indicated by &:";
|
||||
$details = "Here we test for requirements like\n"
|
||||
."- if multiple such targets are updated, the recipe is run once\n"
|
||||
."- parsing issues related to the &: syntax itself\n";
|
||||
|
||||
# Parsing: &: allowed without any targets.
|
||||
run_make_test(q{
|
||||
.PHONY: all
|
||||
&:;
|
||||
all: ;@printf ''
|
||||
},
|
||||
'', "");
|
||||
|
||||
# Parsing: &: works not preceded by whitespace.
|
||||
run_make_test(q{
|
||||
foo&:;@echo foo
|
||||
},
|
||||
'foo', "foo");
|
||||
|
||||
# Ordinary rule runs recipe four times for t1 t2 t3 t4.
|
||||
# Grouped target rule runs recipe once; others are considered updated.
|
||||
run_make_test(q{
|
||||
.PHONY: t1 t2 t3 t4 g1 g2 g3 g4
|
||||
t1 t2 t3 t4: ; @echo $@
|
||||
g1 g2 g3 g4 &: ; @echo $@
|
||||
},
|
||||
't1 t2 t3 t4 g1 g2 g3 g4',
|
||||
"t1\n"
|
||||
."t2\n"
|
||||
."t3\n"
|
||||
."t4\n"
|
||||
."g1\n"
|
||||
."#MAKE#: Nothing to be done for 'g2'.\n"
|
||||
."#MAKE#: Nothing to be done for 'g3'.\n"
|
||||
."#MAKE#: Nothing to be done for 'g4'.");
|
||||
|
||||
# Similar to previous test, but targets come from m1 phony
|
||||
# rather than from the command line. We don't see "Nothing to
|
||||
# be done for" messages. Also, note reversed order g4 g3 ...
|
||||
# Thus the auto variable $@ is "g4" when that rule fires.
|
||||
run_make_test(q{
|
||||
.PHONY: m1 t1 t2 t3 t4 g1 g2 g3 g4
|
||||
m1: t1 t2 t3 t4 g4 g3 g2 g1
|
||||
t1 t2 t3 t4: ; @echo $@
|
||||
g1 g2 g3 g4&: ; @echo $@
|
||||
},
|
||||
'',
|
||||
"t1\nt2\nt3\nt4\ng4");
|
||||
|
||||
# Set a grouped target recipe for existing targets
|
||||
run_make_test(q{
|
||||
.PHONY: M a b
|
||||
M: a b
|
||||
a:
|
||||
a b&: ; @echo Y
|
||||
b:
|
||||
},
|
||||
'',
|
||||
"Y");
|
||||
|
||||
# grouped targets require a recipe
|
||||
run_make_test(q{
|
||||
.PHONY: M a b
|
||||
M: a b
|
||||
a b&:
|
||||
},
|
||||
'',
|
||||
"#MAKEFILE#:4: *** grouped targets must provide a recipe. Stop.", 512);
|
||||
|
||||
# Pattern rules use grouped targets anyway so it's a no-op
|
||||
run_make_test(q{
|
||||
.PHONY: M
|
||||
M: a.q b.q
|
||||
a.% b.%&: ; @echo Y
|
||||
},
|
||||
'',
|
||||
"Y");
|
||||
|
||||
# Double-colon grouped target rules.
|
||||
run_make_test(q{
|
||||
.PHONY: M a b c d e f g h
|
||||
M: a b
|
||||
a b c&:: ; @echo X
|
||||
c d e&:: ; @echo Y
|
||||
f g h&:: ; @echo Z
|
||||
},
|
||||
'',
|
||||
"X");
|
||||
|
||||
run_make_test(q{
|
||||
.PHONY: M a b c d e f g h
|
||||
M: c
|
||||
a b c&:: ; @echo X
|
||||
c d e&:: ; @echo Y
|
||||
f g h&:: ; @echo Z
|
||||
},
|
||||
'',
|
||||
"X\nY");
|
||||
|
||||
run_make_test(q{
|
||||
.PHONY: M a b c d e f g h
|
||||
M: a b c d e
|
||||
a b c&:: ; @echo X
|
||||
c d e&:: ; @echo Y
|
||||
f g h&:: ; @echo Z
|
||||
},
|
||||
'',
|
||||
"X\nY");
|
||||
|
||||
run_make_test(q{
|
||||
.PHONY: M a b c d e f g h
|
||||
M: d e
|
||||
a b c&:: ; @echo X
|
||||
c d e&:: ; @echo Y
|
||||
f g h&:: ; @echo Z
|
||||
},
|
||||
'',
|
||||
"Y");
|
||||
|
||||
run_make_test(q{
|
||||
.PHONY: M a b c d e f g h
|
||||
M: f g h
|
||||
a b c&:: ; @echo X
|
||||
c d e&:: ; @echo Y
|
||||
f g h&:: ; @echo Z
|
||||
},
|
||||
'',
|
||||
"Z");
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
263
third_party/make/tests/scripts/features/include
vendored
Normal file
263
third_party/make/tests/scripts/features/include
vendored
Normal file
|
|
@ -0,0 +1,263 @@
|
|||
# -*-mode: perl; rm-trailing-spaces: nil-*-
|
||||
|
||||
$description = "Test various forms of the GNU make 'include' command.";
|
||||
|
||||
$details = "\
|
||||
Test include, -include, sinclude and various regressions involving them.
|
||||
Test extra whitespace at the end of the include, multiple -includes and
|
||||
sincludes (should not give an error) and make sure that errors are reported
|
||||
for targets that were also -included.";
|
||||
|
||||
$makefile2 = &get_tmpfile;
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The contents of the Makefile ...
|
||||
|
||||
print MAKEFILE <<EOF;
|
||||
\#Extra space at the end of the following file name
|
||||
include $makefile2
|
||||
all: ; \@echo There should be no errors for this makefile.
|
||||
|
||||
-include nonexistent.mk
|
||||
-include nonexistent.mk
|
||||
sinclude nonexistent.mk
|
||||
sinclude nonexistent-2.mk
|
||||
-include makeit.mk
|
||||
sinclude makeit.mk
|
||||
|
||||
error: makeit.mk
|
||||
EOF
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
|
||||
open(MAKEFILE,"> $makefile2");
|
||||
|
||||
print MAKEFILE "ANOTHER: ; \@echo This is another included makefile\n";
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
&run_make_with_options($makefile, "all", &get_logfile);
|
||||
$answer = "There should be no errors for this makefile.\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
&run_make_with_options($makefile, "ANOTHER", &get_logfile);
|
||||
$answer = "This is another included makefile\n";
|
||||
&compare_output($answer, &get_logfile(1));
|
||||
|
||||
$makefile = undef;
|
||||
|
||||
# Try to build the "error" target; this will fail since we don't know
|
||||
# how to create makeit.mk, but we should also get a message (even though
|
||||
# the -include suppressed it during the makefile read phase, we should
|
||||
# see one during the makefile run phase).
|
||||
|
||||
run_make_test
|
||||
('
|
||||
-include foo.mk
|
||||
error: foo.mk ; @echo $@
|
||||
',
|
||||
'',
|
||||
"#MAKE#: *** No rule to make target 'foo.mk', needed by 'error'. Stop.\n",
|
||||
512
|
||||
);
|
||||
|
||||
# Make sure that target-specific variables don't impact things. This could
|
||||
# happen because a file record is created when a target-specific variable is
|
||||
# set.
|
||||
|
||||
run_make_test
|
||||
('
|
||||
bar.mk: foo := baz
|
||||
-include bar.mk
|
||||
hello: ; @echo hello
|
||||
',
|
||||
'',
|
||||
"hello\n"
|
||||
);
|
||||
|
||||
|
||||
# Test inheritance of dontcare flag when rebuilding makefiles.
|
||||
#
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all: ; @:
|
||||
|
||||
-include foo
|
||||
|
||||
foo: bar; @:
|
||||
', '', '');
|
||||
|
||||
|
||||
# Make sure that we don't die when the command fails but we dontcare.
|
||||
# (Savannah bug #13216).
|
||||
#
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all:; @:
|
||||
|
||||
-include foo
|
||||
|
||||
foo: bar; @:
|
||||
|
||||
bar:; @exit 1
|
||||
', '', '');
|
||||
|
||||
# Check include, sinclude, -include with no filenames.
|
||||
# (Savannah bug #1761).
|
||||
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all:; @:
|
||||
include
|
||||
-include
|
||||
sinclude', '', '');
|
||||
|
||||
|
||||
# Test that the diagnostics is issued even if the target has been
|
||||
# tried before with the dontcare flag (direct dependency case).
|
||||
#
|
||||
run_make_test('
|
||||
-include foo
|
||||
|
||||
all: bar
|
||||
|
||||
foo: baz
|
||||
bar: baz
|
||||
',
|
||||
'',
|
||||
"#MAKE#: *** No rule to make target 'baz', needed by 'bar'. Stop.\n",
|
||||
512);
|
||||
|
||||
# Test that the diagnostics is issued even if the target has been
|
||||
# tried before with the dontcare flag (indirect dependency case).
|
||||
#
|
||||
run_make_test('
|
||||
-include foo
|
||||
|
||||
all: bar
|
||||
|
||||
foo: baz
|
||||
bar: baz
|
||||
baz: end
|
||||
',
|
||||
'',
|
||||
"#MAKE#: *** No rule to make target 'end', needed by 'baz'. Stop.\n",
|
||||
512);
|
||||
|
||||
# Test include of make-able file doesn't show an error (Savannah #102)
|
||||
run_make_test(q!
|
||||
.PHONY: default
|
||||
default:; @echo DONE
|
||||
|
||||
inc1:; echo > $@
|
||||
include inc1
|
||||
include inc2
|
||||
inc2:; echo > $@
|
||||
!,
|
||||
'', "echo > inc2\necho > inc1\nDONE\n");
|
||||
|
||||
rmfiles('inc1', 'inc2');
|
||||
|
||||
# No target gets correct error
|
||||
run_make_test('', '', '#MAKE#: *** No targets. Stop.', 512);
|
||||
|
||||
# No target in included file either, still gets correct error.
|
||||
touch('inc1.mk');
|
||||
run_make_test('include inc1.mk', '', '#MAKE#: *** No targets. Stop.', 512);
|
||||
rmfiles('inc1.mk');
|
||||
|
||||
# Include same file multiple times
|
||||
|
||||
run_make_test(q!
|
||||
default:; @echo DEFAULT
|
||||
include inc1
|
||||
inc1:; echo > $@
|
||||
include inc1
|
||||
!,
|
||||
'', "echo > inc1\nDEFAULT\n");
|
||||
|
||||
rmfiles('inc1');
|
||||
|
||||
if (defined $ERR_no_such_file) {
|
||||
|
||||
# Test that the diagnostics is issued even if the target has been
|
||||
# tried before with the dontcare flag (include/-include case).
|
||||
#
|
||||
run_make_test('
|
||||
include bar
|
||||
-include foo
|
||||
|
||||
all:
|
||||
|
||||
foo: baz
|
||||
bar: baz
|
||||
baz: end
|
||||
',
|
||||
'',
|
||||
"#MAKEFILE#:2: bar: $ERR_no_such_file\n#MAKE#: *** No rule to make target 'end', needed by 'baz'. Stop.\n",
|
||||
512);
|
||||
|
||||
# Test include of non-make-able file does show an error (Savannah #102)
|
||||
run_make_test(q!
|
||||
.PHONY: default
|
||||
default:; @echo DONE
|
||||
|
||||
inc1:; echo > $@
|
||||
include inc1
|
||||
include inc2
|
||||
!,
|
||||
'', "#MAKEFILE#:7: inc2: $ERR_no_such_file\n#MAKE#: *** No rule to make target 'inc2'. Stop.\n", 512);
|
||||
|
||||
rmfiles('inc1');
|
||||
|
||||
# Included file has a prerequisite that fails to build
|
||||
|
||||
run_make_test(q!
|
||||
default:; @echo DEFAULT
|
||||
include inc1
|
||||
inc1: foo; echo > $@
|
||||
foo:; exit 1
|
||||
!,
|
||||
'', "exit 1\n#MAKEFILE#:3: inc1: $ERR_no_such_file\n#MAKE#: *** [#MAKEFILE#:5: foo] Error 1\n", 512);
|
||||
|
||||
rmfiles('inc1');
|
||||
|
||||
# Included file has a prerequisite we don't know how to build
|
||||
|
||||
run_make_test(q!
|
||||
default:; @echo DEFAULT
|
||||
include inc1
|
||||
inc1: foo; echo > $@
|
||||
!,
|
||||
'', "#MAKEFILE#:3: inc1: $ERR_no_such_file\n#MAKE#: *** No rule to make target 'foo', needed by 'inc1'. Stop.\n", 512);
|
||||
|
||||
rmfiles('inc1');
|
||||
}
|
||||
|
||||
# Including files that can't be read should show an error
|
||||
if (defined $ERR_unreadable_file) {
|
||||
create_file('inc1', 'FOO := foo');
|
||||
chmod 0000, 'inc1';
|
||||
|
||||
run_make_test(q!
|
||||
include inc1
|
||||
all:;@echo $(FOO)
|
||||
!,
|
||||
'', "#MAKEFILE#:2: inc1: $ERR_unreadable_file\n#MAKE#: *** No rule to make target 'inc1'. Stop.", 512);
|
||||
|
||||
# Unreadable files that we know how to successfully recreate should work
|
||||
|
||||
run_make_test(sprintf(q!
|
||||
all:;@echo $(FOO)
|
||||
include inc1
|
||||
inc1:; @%s $@ && echo FOO := bar > $@
|
||||
!, $CMD_rmfile),
|
||||
'', "bar");
|
||||
|
||||
rmfiles('inc1');
|
||||
}
|
||||
|
||||
1;
|
||||
109
third_party/make/tests/scripts/features/jobserver
vendored
Normal file
109
third_party/make/tests/scripts/features/jobserver
vendored
Normal file
|
|
@ -0,0 +1,109 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test jobserver.";
|
||||
|
||||
$details = "These tests are ones that specifically are different when the
|
||||
jobserver feature is available. Most -j tests are the same whether or not
|
||||
jobserver is available, and those appear in the 'parallelism' test suite.";
|
||||
|
||||
exists $FEATURES{'jobserver'} or return -1;
|
||||
|
||||
if (!$parallel_jobs) {
|
||||
return -1;
|
||||
}
|
||||
|
||||
# Shorthand
|
||||
my $np = '--no-print-directory';
|
||||
|
||||
# Simple test of MAKEFLAGS settings
|
||||
run_make_test(q!
|
||||
SHOW = $(patsubst --jobserver-auth=%,--jobserver-auth=<auth>,$(MAKEFLAGS))
|
||||
recurse: ; @echo $@: "/$(SHOW)/"; $(MAKE) -f #MAKEFILE# all
|
||||
all:;@echo $@: "/$(SHOW)/"
|
||||
!,
|
||||
"-j2 $np", "recurse: /-j2 --jobserver-auth=<auth> $np/\nall: /-j2 --jobserver-auth=<auth> $np/\n");
|
||||
|
||||
# Setting parallelism with the environment
|
||||
# Command line should take precedence over the environment
|
||||
$extraENV{MAKEFLAGS} = "-j2 $np";
|
||||
run_make_test(q!
|
||||
SHOW = $(patsubst --jobserver-auth=%,--jobserver-auth=<auth>,$(MAKEFLAGS))
|
||||
recurse: ; @echo $@: "/$(SHOW)/"; $(MAKE) -f #MAKEFILE# all
|
||||
all:;@echo $@: "/$(SHOW)/"
|
||||
!,
|
||||
'', "recurse: /-j2 --jobserver-auth=<auth> $np/\nall: /-j2 --jobserver-auth=<auth> $np/\n");
|
||||
delete $extraENV{MAKEFLAGS};
|
||||
|
||||
# Test override of -jN
|
||||
$extraENV{MAKEFLAGS} = "-j9 $np";
|
||||
run_make_test(q!
|
||||
SHOW = $(patsubst --jobserver-auth=%,--jobserver-auth=<auth>,$(MAKEFLAGS))
|
||||
recurse: ; @echo $@: "/$(SHOW)/"; $(MAKE) -j3 -f #MAKEFILE# recurse2
|
||||
recurse2: ; @echo $@: "/$(SHOW)/"; $(MAKE) -f #MAKEFILE# all
|
||||
all:;@echo $@: "/$(SHOW)/"
|
||||
!,
|
||||
"-j2 $np", "recurse: /-j2 --jobserver-auth=<auth> $np/\n#MAKE#[1]: warning: -j3 forced in submake: resetting jobserver mode.\nrecurse2: /-j3 --jobserver-auth=<auth> $np/\nall: /-j3 --jobserver-auth=<auth> $np/\n");
|
||||
delete $extraENV{MAKEFLAGS};
|
||||
|
||||
# Test override of -jN with -j
|
||||
run_make_test(q!
|
||||
SHOW = $(patsubst --jobserver-auth=%,--jobserver-auth=<auth>,$(MAKEFLAGS))
|
||||
recurse: ; @echo $@: "/$(SHOW)/"; $(MAKE) -j -f #MAKEFILE# recurse2
|
||||
recurse2: ; @echo $@: "/$(SHOW)/"; $(MAKE) -f #MAKEFILE# all
|
||||
all:;@echo $@: "/$(SHOW)/"
|
||||
!,
|
||||
"-j2 $np", "recurse: /-j2 --jobserver-auth=<auth> $np/\n#MAKE#[1]: warning: -j0 forced in submake: resetting jobserver mode.\nrecurse2: /-j $np/\nall: /-j $np/\n");
|
||||
|
||||
# Don't put --jobserver-auth into a re-exec'd MAKEFLAGS.
|
||||
# We can't test this directly because there's no way a makefile can
|
||||
# show the value of MAKEFLAGS we were re-exec'd with. We can intuit it
|
||||
# by looking for "disabling jobserver mode" warnings; we should only
|
||||
# get one from the original invocation and none from the re-exec.
|
||||
# See Savannah bug #18124
|
||||
|
||||
unlink('inc.mk');
|
||||
|
||||
run_make_test(q!
|
||||
-include inc.mk
|
||||
recur:
|
||||
# @echo 'MAKEFLAGS = $(MAKEFLAGS)'
|
||||
@rm -f inc.mk
|
||||
@$(MAKE) -j2 -f #MAKEFILE# all
|
||||
all:
|
||||
# @echo 'MAKEFLAGS = $(MAKEFLAGS)'
|
||||
@echo $@
|
||||
inc.mk:
|
||||
# @echo 'MAKEFLAGS = $(MAKEFLAGS)'
|
||||
@echo 'FOO = bar' > $@
|
||||
!,
|
||||
"$np -j2", "#MAKE#[1]: warning: -j2 forced in submake: resetting jobserver mode.\nall\n");
|
||||
|
||||
unlink('inc.mk');
|
||||
|
||||
# Test recursion which is hidden from make.
|
||||
# See Savannah bug #39934
|
||||
# Or Red Hat bug https://bugzilla.redhat.com/show_bug.cgi?id=885474
|
||||
# Windows doesn't use a pipe, and doesn't close access, so this won't happen.
|
||||
if ($port_type ne 'W32') {
|
||||
open(MAKEFILE,"> Makefile2");
|
||||
print MAKEFILE '
|
||||
vpath %.c ../
|
||||
foo:
|
||||
';
|
||||
close(MAKEFILE);
|
||||
|
||||
run_make_test(q!
|
||||
default: ; @ #MAKEPATH# -f Makefile2
|
||||
!,
|
||||
"-j2 $np",
|
||||
"#MAKE#[1]: warning: jobserver unavailable: using -j1. Add '+' to parent make rule.
|
||||
#MAKE#[1]: Nothing to be done for 'foo'.");
|
||||
|
||||
rmfiles('Makefile2');
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
118
third_party/make/tests/scripts/features/load
vendored
Normal file
118
third_party/make/tests/scripts/features/load
vendored
Normal file
|
|
@ -0,0 +1,118 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test the load operator.";
|
||||
|
||||
$details = "Test dynamic loading of modules.";
|
||||
|
||||
# Don't do anything if this system doesn't support "load"
|
||||
exists $FEATURES{load} or return -1;
|
||||
|
||||
my $cc = get_config('CC');
|
||||
if (! $cc) {
|
||||
$verbose and print "Skipping load test: no CC defined\n";
|
||||
return -1;
|
||||
}
|
||||
|
||||
# First build a shared object
|
||||
# Provide both a default and non-default load symbol
|
||||
|
||||
unlink(qw(testload.c testload.so));
|
||||
|
||||
open(my $F, '> testload.c') or die "open: testload.c: $!\n";
|
||||
print $F <<'EOF' ;
|
||||
#include <string.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "gnumake.h"
|
||||
|
||||
int plugin_is_GPL_compatible;
|
||||
|
||||
int
|
||||
testload_gmk_setup (gmk_floc *pos)
|
||||
{
|
||||
(void)pos;
|
||||
gmk_eval ("TESTLOAD = implicit", 0);
|
||||
return 1;
|
||||
}
|
||||
|
||||
int
|
||||
explicit_setup (gmk_floc *pos)
|
||||
{
|
||||
(void)pos;
|
||||
gmk_eval ("TESTLOAD = explicit", 0);
|
||||
return 1;
|
||||
}
|
||||
EOF
|
||||
close($F) or die "close: testload.c: $!\n";
|
||||
|
||||
# Make sure we can compile
|
||||
|
||||
my $cflags = get_config('CFLAGS');
|
||||
my $cppflags = get_config('CPPFLAGS');
|
||||
my $ldflags = get_config('LDFLAGS');
|
||||
my $sobuild = "$cc ".($srcdir? "-I$srcdir/src":'')." $cppflags $cflags -shared -fPIC $ldflags -o testload.so testload.c";
|
||||
|
||||
my $clog = `$sobuild 2>&1`;
|
||||
if ($? != 0) {
|
||||
$verbose and print "Failed to build testload.so:\n$sobuild\n$_";
|
||||
return -1;
|
||||
}
|
||||
|
||||
# TEST 1
|
||||
run_make_test(q!
|
||||
PRE := $(.LOADED)
|
||||
load testload.so
|
||||
POST := $(.LOADED)
|
||||
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
||||
!,
|
||||
'--warn-undefined-variables', "pre= post=testload.so implicit\n");
|
||||
|
||||
# TEST 2
|
||||
# Load using an explicit function
|
||||
run_make_test(q!
|
||||
PRE := $(.LOADED)
|
||||
load ./testload.so(explicit_setup)
|
||||
POST := $(.LOADED)
|
||||
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
||||
!,
|
||||
'', "pre= post=testload.so explicit\n");
|
||||
|
||||
# TEST 4
|
||||
# Check multiple loads
|
||||
run_make_test(q!
|
||||
PRE := $(.LOADED)
|
||||
load ./testload.so
|
||||
load testload.so(explicit_setup)
|
||||
POST := $(.LOADED)
|
||||
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
||||
!,
|
||||
'', "pre= post=testload.so implicit\n");
|
||||
|
||||
# TEST 5
|
||||
# Check auto-rebuild of loaded file that's out of date
|
||||
utouch(-10, 'testload.so');
|
||||
touch('testload.c');
|
||||
|
||||
run_make_test(q!
|
||||
PRE := $(.LOADED)
|
||||
load ./testload.so
|
||||
POST := $(.LOADED)
|
||||
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
||||
testload.so: testload.c ; @echo "rebuilding $@"; !.$sobuild,
|
||||
'', "rebuilding testload.so\npre= post=testload.so implicit\n");
|
||||
|
||||
# TEST 5
|
||||
# Check auto-rebuild of loaded file when it doesn't exist
|
||||
unlink('testload.so');
|
||||
|
||||
run_make_test(q!
|
||||
PRE := $(.LOADED)
|
||||
-load ./testload.so(explicit_setup)
|
||||
POST := $(.LOADED)
|
||||
all: ; @echo pre=$(PRE) post=$(POST) $(TESTLOAD)
|
||||
%.so: %.c ; @echo "rebuilding $@"; !.$sobuild,
|
||||
'', "rebuilding testload.so\npre= post=testload.so explicit\n");
|
||||
|
||||
unlink(qw(testload.c testload.so)) unless $keep;
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
127
third_party/make/tests/scripts/features/loadapi
vendored
Normal file
127
third_party/make/tests/scripts/features/loadapi
vendored
Normal file
|
|
@ -0,0 +1,127 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test the shared object load API.";
|
||||
|
||||
$details = "Verify the different aspects of the shared object API.";
|
||||
|
||||
# Don't do anything if this system doesn't support "load"
|
||||
exists $FEATURES{load} or return -1;
|
||||
|
||||
my $cc = get_config('CC');
|
||||
if (! $cc) {
|
||||
$verbose and print "Skipping load test: no CC defined\n";
|
||||
return -1;
|
||||
}
|
||||
|
||||
# First build a shared object
|
||||
# Provide both a default and non-default load symbol
|
||||
|
||||
unlink(qw(testapi.c testapi.so));
|
||||
|
||||
open(my $F, '> testapi.c') or die "open: testapi.c: $!\n";
|
||||
print $F <<'EOF' ;
|
||||
#include <string.h>
|
||||
#include <stdio.h>
|
||||
|
||||
#include "gnumake.h"
|
||||
|
||||
int plugin_is_GPL_compatible;
|
||||
|
||||
static char *
|
||||
test_eval (const char *buf)
|
||||
{
|
||||
gmk_eval (buf, 0);
|
||||
return NULL;
|
||||
}
|
||||
|
||||
static char *
|
||||
test_expand (const char *val)
|
||||
{
|
||||
return gmk_expand (val);
|
||||
}
|
||||
|
||||
static char *
|
||||
test_noexpand (const char *val)
|
||||
{
|
||||
char *str = gmk_alloc (strlen (val) + 1);
|
||||
strcpy (str, val);
|
||||
return str;
|
||||
}
|
||||
|
||||
static char *
|
||||
func_test (const char *funcname, unsigned int argc, char **argv)
|
||||
{
|
||||
char *mem;
|
||||
|
||||
if (strcmp (funcname, "test-expand") == 0)
|
||||
return test_expand (argv[0]);
|
||||
|
||||
if (strcmp (funcname, "test-eval") == 0)
|
||||
return test_eval (argv[0]);
|
||||
|
||||
if (strcmp (funcname, "test-noexpand") == 0)
|
||||
return test_noexpand (argv[0]);
|
||||
|
||||
mem = gmk_alloc (sizeof ("unknown"));
|
||||
strcpy (mem, "unknown");
|
||||
return mem;
|
||||
}
|
||||
|
||||
int
|
||||
testapi_gmk_setup ()
|
||||
{
|
||||
gmk_add_function ("test-expand", func_test, 1, 1, GMK_FUNC_DEFAULT);
|
||||
gmk_add_function ("test-noexpand", func_test, 1, 1, GMK_FUNC_NOEXPAND);
|
||||
gmk_add_function ("test-eval", func_test, 1, 1, GMK_FUNC_DEFAULT);
|
||||
gmk_add_function ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.", func_test, 0, 0, 0);
|
||||
return 1;
|
||||
}
|
||||
EOF
|
||||
close($F) or die "close: testapi.c: $!\n";
|
||||
|
||||
# Make sure we can compile
|
||||
|
||||
my $cflags = get_config('CFLAGS');
|
||||
my $cppflags = get_config('CPPFLAGS');
|
||||
my $ldflags = get_config('LDFLAGS');
|
||||
my $sobuild = "$cc ".($srcdir? "-I$srcdir/src":'')." $cppflags $cflags -shared -fPIC $ldflags -o testapi.so testapi.c";
|
||||
|
||||
my $clog = `$sobuild 2>&1`;
|
||||
if ($? != 0) {
|
||||
$verbose and print "Failed to build testapi.so:\n$sobuild\n$_";
|
||||
return -1;
|
||||
}
|
||||
|
||||
# TEST 1
|
||||
# Check the gmk_expand() function
|
||||
run_make_test(q!
|
||||
EXPAND = expansion
|
||||
all: ; @echo $(test-expand $$(EXPAND))
|
||||
load testapi.so
|
||||
!,
|
||||
'', "expansion\n");
|
||||
|
||||
# TEST 2
|
||||
# Check the eval operation. Prove that the argument is expanded only once
|
||||
run_make_test(q!
|
||||
load testapi.so
|
||||
TEST = bye
|
||||
ASSIGN = VAR = $(TEST) $(shell echo there)
|
||||
$(test-eval $(value ASSIGN))
|
||||
TEST = hi
|
||||
all:;@echo '$(VAR)'
|
||||
!,
|
||||
'', "hi there\n");
|
||||
|
||||
# TEST 2
|
||||
# Check the no-expand capability
|
||||
run_make_test(q!
|
||||
load testapi.so
|
||||
TEST = hi
|
||||
all:;@echo '$(test-noexpand $(TEST))'
|
||||
!,
|
||||
'', "\$(TEST)\n");
|
||||
|
||||
unlink(qw(testapi.c testapi.so)) unless $keep;
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
78
third_party/make/tests/scripts/features/mult_rules
vendored
Normal file
78
third_party/make/tests/scripts/features/mult_rules
vendored
Normal file
|
|
@ -0,0 +1,78 @@
|
|||
$description = "\
|
||||
The following test creates a makefile to test the presence
|
||||
of multiple rules for one target. One file can be the
|
||||
target of several rules if at most one rule has commands;
|
||||
the other rules can only have dependencies.";
|
||||
|
||||
$details = "\
|
||||
The makefile created in this test contains two hardcoded rules
|
||||
for foo.o and bar.o. It then gives another multiple target rule
|
||||
with the same names as above but adding more dependencies.
|
||||
Additionally, another variable extradeps is listed as a
|
||||
dependency but is defined to be null. It can however be defined
|
||||
on the make command line as extradeps=extra.h which adds yet
|
||||
another dependency to the targets.";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE <<EOF;
|
||||
objects = foo.o bar.o
|
||||
foo.o : defs.h
|
||||
bar.o : defs.h test.h
|
||||
extradeps =
|
||||
\$(objects) : config.h \$(extradeps)
|
||||
\t\@echo EXTRA EXTRA
|
||||
EOF
|
||||
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
&touch("defs.h","test.h","config.h");
|
||||
|
||||
if ($vos)
|
||||
{
|
||||
$error_code = 3307;
|
||||
}
|
||||
else
|
||||
{
|
||||
$error_code = 512;
|
||||
}
|
||||
|
||||
&run_make_with_options($makefile,
|
||||
"extradeps=extra.h",
|
||||
&get_logfile,
|
||||
$error_code);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "$make_name: *** No rule to make target 'extra.h', needed by 'foo.o'. Stop.\n";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
|
||||
# TEST #2
|
||||
# -------
|
||||
|
||||
&touch("extra.h");
|
||||
|
||||
&run_make_with_options($makefile,
|
||||
"extradeps=extra.h",
|
||||
&get_logfile,
|
||||
0);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "EXTRA EXTRA\n";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
unlink("defs.h","test.h","config.h","extra.h");
|
||||
|
||||
1;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
46
third_party/make/tests/scripts/features/mult_targets
vendored
Normal file
46
third_party/make/tests/scripts/features/mult_targets
vendored
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
$description = "The following test creates a makefile to test that a \n "
|
||||
."rule with multiple targets is equivalent to writing \n"
|
||||
."many rules, each with one target, and all identical aside\n"
|
||||
."from that.";
|
||||
|
||||
$details = "A makefile is created with one rule and two targets. Make \n"
|
||||
."is called twice, once for each target, and the output which \n"
|
||||
."contains the target name with \$@ is looked at for the changes.\n"
|
||||
."This test also tests the substitute function by replacing \n"
|
||||
."the word output with nothing in the target name giving either\n"
|
||||
."an output of \"I am little\" or \"I am big\"";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE "bigoutput littleoutput: test.h\n";
|
||||
print MAKEFILE "\t\@echo I am \$(subst output,,\$@)\n";
|
||||
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
&touch("test.h");
|
||||
|
||||
&run_make_with_options($makefile,"bigoutput",&get_logfile);
|
||||
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "I am big\n";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
&run_make_with_options($makefile,"littleoutput",&get_logfile);
|
||||
$answer = "I am little\n";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
unlink "test.h";
|
||||
|
||||
1;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
118
third_party/make/tests/scripts/features/order_only
vendored
Normal file
118
third_party/make/tests/scripts/features/order_only
vendored
Normal file
|
|
@ -0,0 +1,118 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test order-only prerequisites.";
|
||||
|
||||
$details = "\
|
||||
Create makefiles with various combinations of normal and order-only
|
||||
prerequisites and ensure they behave properly. Test the \$| variable.";
|
||||
|
||||
# TEST #0 -- Basics
|
||||
|
||||
run_make_test('
|
||||
%r: | baz ; @echo $< $^ $|
|
||||
bar: foo
|
||||
foo:;@:
|
||||
baz:;@:',
|
||||
'', "foo foo baz\n");
|
||||
|
||||
# TEST #1 -- First try: the order-only prereqs need to be built.
|
||||
|
||||
run_make_test(q!
|
||||
foo: bar | baz
|
||||
@echo '$$^ = $^'
|
||||
@echo '$$| = $|'
|
||||
touch $@
|
||||
|
||||
.PHONY: baz
|
||||
|
||||
bar baz:
|
||||
touch $@!,
|
||||
'', "touch bar\ntouch baz\n\$^ = bar\n\$| = baz\ntouch foo\n");
|
||||
|
||||
|
||||
# TEST #2 -- now we do it again: baz is PHONY but foo should _NOT_ be updated
|
||||
|
||||
run_make_test(undef, '', "touch baz\n");
|
||||
|
||||
unlink(qw(foo bar baz));
|
||||
|
||||
# TEST #3 -- Make sure the order-only prereq was promoted to normal.
|
||||
|
||||
run_make_test(q!
|
||||
foo: bar | baz
|
||||
@echo '$$^ = $^'
|
||||
@echo '$$| = $|'
|
||||
touch $@
|
||||
|
||||
foo: baz
|
||||
|
||||
.PHONY: baz
|
||||
|
||||
bar baz:
|
||||
touch $@!,
|
||||
'', "touch bar\ntouch baz\n\$^ = bar baz\n\$| = \ntouch foo\n");
|
||||
|
||||
|
||||
# TEST #4 -- now we do it again
|
||||
|
||||
run_make_test(undef, '', "touch baz\n\$^ = bar baz\n\$| = \ntouch foo\n");
|
||||
|
||||
unlink(qw(foo bar baz));
|
||||
|
||||
# Test empty normal prereqs
|
||||
|
||||
# TEST #5 -- make sure the parser was correct.
|
||||
|
||||
run_make_test(q!
|
||||
foo:| baz
|
||||
@echo '$$^ = $^'
|
||||
@echo '$$| = $|'
|
||||
touch $@
|
||||
|
||||
.PHONY: baz
|
||||
|
||||
baz:
|
||||
touch $@!,
|
||||
'', "touch baz\n\$^ = \n\$| = baz\ntouch foo\n");
|
||||
|
||||
# TEST #6 -- now we do it again: this time foo won't be built
|
||||
|
||||
run_make_test(undef, '', "touch baz\n");
|
||||
|
||||
unlink(qw(foo baz));
|
||||
|
||||
# Test order-only in pattern rules
|
||||
|
||||
# TEST #7 -- make sure the parser was correct.
|
||||
|
||||
run_make_test(q!
|
||||
%.w : %.x | baz
|
||||
@echo '$$^ = $^'
|
||||
@echo '$$| = $|'
|
||||
touch $@
|
||||
|
||||
all: foo.w
|
||||
|
||||
.PHONY: baz
|
||||
foo.x baz:
|
||||
touch $@!,
|
||||
'',
|
||||
"touch foo.x\ntouch baz\n\$^ = foo.x\n\$| = baz\ntouch foo.w\n");
|
||||
|
||||
# TEST #8 -- now we do it again: this time foo.w won't be built
|
||||
|
||||
run_make_test(undef, '', "touch baz\n");
|
||||
|
||||
unlink(qw(foo.w foo.x baz));
|
||||
|
||||
# TEST #9 -- make sure that $< is set correctly in the face of order-only
|
||||
# prerequisites in pattern rules.
|
||||
|
||||
run_make_test('
|
||||
%r: | baz ; @echo $< $^ $|
|
||||
bar: foo
|
||||
foo:;@:
|
||||
baz:;@:',
|
||||
'', "foo foo baz\n");
|
||||
|
||||
|
||||
1;
|
||||
342
third_party/make/tests/scripts/features/output-sync
vendored
Normal file
342
third_party/make/tests/scripts/features/output-sync
vendored
Normal file
|
|
@ -0,0 +1,342 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test --output-sync (-O) option.";
|
||||
|
||||
$details = "Test the synchronization of output from parallel jobs.";
|
||||
|
||||
# If we don't have output sync support, never mind.
|
||||
exists $FEATURES{'output-sync'} or return -1;
|
||||
|
||||
# Output sync can't be tested without parallelization
|
||||
$parallel_jobs or return -1;
|
||||
|
||||
|
||||
# The following subdirectories with Makefiles are used in several
|
||||
# of the following tests. The model is:
|
||||
# foo/Makefile - has a "foo" target that waits for the bar target
|
||||
# bar/Makefile - has a "bar" target that runs immediately
|
||||
# - has a "baz" target that waits for the foo target
|
||||
#
|
||||
# So, you start the two sub-makes in parallel and first the "bar" target is
|
||||
# built, followed by "foo", followed by "baz". The trick is that first each
|
||||
# target prints a "start" statement, then waits (if appropriate), then prints
|
||||
# an end statement. Thus we can tell if the -O flag is working, since
|
||||
# otherwise these statements would be mixed together.
|
||||
|
||||
@syncfiles = ();
|
||||
|
||||
sub output_sync_clean {
|
||||
rmfiles('foo/Makefile', 'bar/Makefile', @syncfiles);
|
||||
rmdir('foo');
|
||||
rmdir('bar');
|
||||
}
|
||||
|
||||
# We synchronize the different jobs by having them wait for a sentinel file to
|
||||
# be created, instead of relying on a certain amount of time passing.
|
||||
# Unfortunately in this test we have to sleep after we see the sync file,
|
||||
# since we also want to make the obtaining of the write synchronization lock
|
||||
# reliable. If things are too fast, then sometimes a different job will steal
|
||||
# the output sync lock and the output is mis-ordered from what we expect.
|
||||
sub output_sync_wait {
|
||||
return subst_make_string("#HELPER# -q wait ../mksync.$_[0] sleep 1");
|
||||
}
|
||||
sub output_sync_set {
|
||||
return subst_make_string("#HELPER# -q file ../mksync.$_[0]");
|
||||
}
|
||||
|
||||
@syncfiles = qw(mksync.foo mksync.foo_start mksync.bar mksync.bar_start);
|
||||
|
||||
$tmout = 30;
|
||||
|
||||
output_sync_clean();
|
||||
mkdir('foo', 0777);
|
||||
mkdir('bar', 0777);
|
||||
|
||||
$set_foo = output_sync_set('foo');
|
||||
$set_bar = output_sync_set('bar');
|
||||
$set_foo_start = output_sync_set('foo_start');
|
||||
$set_bar_start = output_sync_set('bar_start');
|
||||
|
||||
$wait_foo = output_sync_wait('foo');
|
||||
$wait_bar = output_sync_wait('bar');
|
||||
$wait_foo_start = output_sync_set('foo_start');
|
||||
$wait_bar_start = output_sync_set('bar_start');
|
||||
|
||||
open(MAKEFILE,"> foo/Makefile");
|
||||
print MAKEFILE <<EOF;
|
||||
all: foo
|
||||
|
||||
foo: foo-base ; \@$set_foo
|
||||
|
||||
foo-base:
|
||||
\t\@echo foo: start
|
||||
\t\@$wait_bar
|
||||
\t\@echo foo: end
|
||||
|
||||
foo-job: foo-job-base ; \@$set_foo
|
||||
|
||||
foo-job-base:
|
||||
\t\@$wait_bar_start
|
||||
\t\@echo foo: start
|
||||
\t\@$set_foo_start
|
||||
\t\@$wait_bar
|
||||
\t\@echo foo: end
|
||||
|
||||
foo-fail:
|
||||
\t\@echo foo-fail: start
|
||||
\t\@$wait_bar
|
||||
\t\@echo foo-fail: end
|
||||
\t\@exit 1
|
||||
EOF
|
||||
close(MAKEFILE);
|
||||
|
||||
open(MAKEFILE,"> bar/Makefile");
|
||||
print MAKEFILE <<EOF;
|
||||
all: bar baz
|
||||
|
||||
bar: bar-base ; \@$set_bar
|
||||
bar-base:
|
||||
\t\@echo bar: start
|
||||
\t\@echo bar: end
|
||||
|
||||
bar-job: bar-job-base ; \@$set_bar
|
||||
|
||||
bar-job-base:
|
||||
\t\@echo bar: start
|
||||
\t\@$set_bar_start
|
||||
\t\@$wait_foo_start
|
||||
\t\@echo bar: end
|
||||
|
||||
baz: baz-base
|
||||
baz-base:
|
||||
\t\@echo baz: start
|
||||
\t\@$wait_foo
|
||||
\t\@echo baz: end
|
||||
EOF
|
||||
close(MAKEFILE);
|
||||
|
||||
# Test per-make synchronization.
|
||||
unlink(@syncfiles);
|
||||
run_make_test(qq!
|
||||
all: make-foo make-bar
|
||||
|
||||
make-foo: ; \$(MAKE) -C foo
|
||||
|
||||
make-bar: ; \$(MAKE) -C bar!,
|
||||
'-j -Orecurse',
|
||||
"#MAKEPATH# -C foo
|
||||
#MAKE#[1]: Entering directory '#PWD#/foo'
|
||||
foo: start
|
||||
foo: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/foo'
|
||||
#MAKEPATH# -C bar
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
bar: start
|
||||
bar: end
|
||||
baz: start
|
||||
baz: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'\n", 0, $tmout);
|
||||
|
||||
# Test per-target synchronization.
|
||||
# Note we have to sleep again here after starting the foo makefile before
|
||||
# starting the bar makefile, otherwise the "entering/leaving" messages for the
|
||||
# submakes might be ordered differently than we expect.
|
||||
|
||||
unlink(@syncfiles);
|
||||
run_make_test(qq!
|
||||
x=1
|
||||
\$xMAKEFLAGS += --no-print-directory
|
||||
|
||||
all: make-foo make-bar
|
||||
|
||||
make-foo: ; \$(MAKE) -C foo
|
||||
|
||||
make-bar: ; #HELPER# -q sleep 1 ; \$(MAKE) -C bar!,
|
||||
'-j --output-sync=target',
|
||||
"#MAKEPATH# -C foo
|
||||
#HELPER# -q sleep 1 ; #MAKEPATH# -C bar
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
bar: start
|
||||
bar: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'
|
||||
#MAKE#[1]: Entering directory '#PWD#/foo'
|
||||
foo: start
|
||||
foo: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/foo'
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
baz: start
|
||||
baz: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'\n", 0, $tmout);
|
||||
|
||||
# Rerun but this time suppress the directory tracking
|
||||
unlink(@syncfiles);
|
||||
run_make_test(undef, '-j --output-sync=target x=',
|
||||
"#MAKEPATH# -C foo
|
||||
#HELPER# -q sleep 1 ; #MAKEPATH# -C bar
|
||||
bar: start
|
||||
bar: end
|
||||
foo: start
|
||||
foo: end
|
||||
baz: start
|
||||
baz: end\n", 0, $tmout);
|
||||
|
||||
# Test that messages from make itself are enclosed with
|
||||
# "Entering/Leaving directory" messages.
|
||||
unlink(@syncfiles);
|
||||
run_make_test(qq!
|
||||
all: make-foo-fail make-bar-bar
|
||||
|
||||
make-foo-fail: ; \$(MAKE) -C foo foo-fail
|
||||
|
||||
make-bar-bar: ; #HELPER# -q sleep 1 ; \$(MAKE) -C bar bar!,
|
||||
'-j -O',
|
||||
"#MAKEPATH# -C foo foo-fail
|
||||
#HELPER# -q sleep 1 ; #MAKEPATH# -C bar bar
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
bar: start
|
||||
bar: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'
|
||||
#MAKE#[1]: Entering directory '#PWD#/foo'
|
||||
foo-fail: start
|
||||
foo-fail: end
|
||||
#MAKE#[1]: *** [Makefile:23: foo-fail] Error 1
|
||||
#MAKE#[1]: Leaving directory '#PWD#/foo'
|
||||
#MAKE#: *** [#MAKEFILE#:4: make-foo-fail] Error 2\n",
|
||||
512);
|
||||
|
||||
# Test the per-job synchronization.
|
||||
# For this we'll have bar-job:
|
||||
# print start, invoke bar-start, wait for foo-start, print end, print-bar-end
|
||||
# And foo-job:
|
||||
# wait for bar-start, print foo-start, wait for bar-end, print end
|
||||
|
||||
unlink(@syncfiles);
|
||||
run_make_test(qq!
|
||||
all: make-foo make-bar
|
||||
|
||||
make-foo: ; \$(MAKE) -C foo foo-job
|
||||
|
||||
make-bar: ; #HELPER# -q sleep 1 ; \$(MAKE) -C bar bar-job!,
|
||||
'-j --output-sync=line',
|
||||
"#MAKEPATH# -C foo foo-job
|
||||
#HELPER# -q sleep 1 ; #MAKEPATH# -C bar bar-job
|
||||
#MAKE#[1]: Entering directory '#PWD#/foo'
|
||||
foo: start
|
||||
#MAKE#[1]: Leaving directory '#PWD#/foo'
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
bar: start
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'
|
||||
#MAKE#[1]: Entering directory '#PWD#/bar'
|
||||
bar: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/bar'
|
||||
#MAKE#[1]: Entering directory '#PWD#/foo'
|
||||
foo: end
|
||||
#MAKE#[1]: Leaving directory '#PWD#/foo'\n", 0, $tmout);
|
||||
|
||||
# Remove temporary directories and contents.
|
||||
output_sync_clean();
|
||||
|
||||
# Ensure recursion doesn't mis-order or double-print output
|
||||
run_make_test(qq!
|
||||
all:
|
||||
\t\@echo foo
|
||||
\t\@+echo bar
|
||||
!,
|
||||
'-j -Oline', "foo\nbar\n");
|
||||
|
||||
run_make_test(undef, '-j -Otarget', "foo\nbar\n");
|
||||
|
||||
# Ensure when make writes out command it's not misordered
|
||||
run_make_test(qq!
|
||||
all:
|
||||
\t\@echo foobar
|
||||
\ttrue
|
||||
!,
|
||||
'-j -Oline', "foobar\ntrue\n");
|
||||
|
||||
run_make_test(undef, '-j -Otarget', "foobar\ntrue\n");
|
||||
|
||||
# Ensure that shell functions inside recipes write stderr to the sync file
|
||||
run_make_test(q!
|
||||
all: ; @: $(shell echo foo 1>&2)
|
||||
!,
|
||||
'-w -Oline', "#MAKE#: Entering directory '#PWD#'\nfoo\n#MAKE#: Leaving directory '#PWD#'\n");
|
||||
|
||||
# Ensure that output generated while parsing makefiles is synced
|
||||
# when appropriate.
|
||||
run_make_test(q!
|
||||
$(shell echo foo 1>&2)
|
||||
all: ; echo bar
|
||||
!,
|
||||
'-s -w -Otarget', "#MAKE#: Entering directory '#PWD#'\nfoo\n#MAKE#: Leaving directory '#PWD#'\n#MAKE#: Entering directory '#PWD#'\nbar\n#MAKE#: Leaving directory '#PWD#'\n");
|
||||
|
||||
# Test recursion
|
||||
$m1 = get_tmpfile();
|
||||
$m2 = get_tmpfile();
|
||||
|
||||
open(M1, "> $m1");
|
||||
print M1 <<'EOF';
|
||||
$(shell echo d1 stderr 1>&2)
|
||||
$(info d1 stdout)
|
||||
all:; @:
|
||||
EOF
|
||||
close(M1);
|
||||
|
||||
open(M2, "> $m2");
|
||||
print M2 <<'EOF';
|
||||
$(shell echo d2 stderr 1>&2)
|
||||
$(info d2 stdout)
|
||||
all:; @:
|
||||
# Force an ordering on the output
|
||||
$(shell sleep 1)
|
||||
EOF
|
||||
close(M2);
|
||||
|
||||
run_make_test(qq!
|
||||
all: t1 t2
|
||||
t1: ; \@\$(MAKE) -f $m1
|
||||
t2: ; \@\$(MAKE) -f $m2
|
||||
!,
|
||||
"-j -Oline", "#MAKE#[1]: Entering directory '#PWD#'\nd1 stderr\nd1 stdout\n#MAKE#[1]: Leaving directory '#PWD#'\n#MAKE#[1]: Entering directory '#PWD#'\nd2 stderr\nd2 stdout\n#MAKE#[1]: Leaving directory '#PWD#'\n");
|
||||
|
||||
rmfiles($m1, $m2);
|
||||
|
||||
# Ensure that output generated while parsing makefiles is synced
|
||||
# when appropriate.
|
||||
$m1 = get_tmpfile();
|
||||
|
||||
open(M1, "> $m1");
|
||||
print M1 <<'EOF';
|
||||
$(shell echo d1 stderr 1>&2)
|
||||
$(info d1 stdout)
|
||||
$(error d1 failed)
|
||||
all:; @:
|
||||
EOF
|
||||
close(M1);
|
||||
|
||||
run_make_test(qq!
|
||||
all: t1
|
||||
t1: ; -\@\$(MAKE) -f $m1
|
||||
!,
|
||||
"-j -Oline", "#MAKE#[1]: Entering directory '#PWD#'\nd1 stderr\nd1 stdout\n$m1:3: *** d1 failed. Stop.\n#MAKE#[1]: Leaving directory '#PWD#'\n#MAKE#: [#MAKEFILE#:3: t1] Error 2 (ignored)\n");
|
||||
|
||||
rmfiles($m1);
|
||||
|
||||
# Test $(error ...) functions in recipes
|
||||
|
||||
run_make_test(q!
|
||||
foo: $(OBJS) ; echo $(or $(filter %.o,$^),$(error fail))
|
||||
!,
|
||||
'-O', "#MAKEFILE#:2: *** fail. Stop.\n", 512);
|
||||
|
||||
# SV 47365: Make sure exec failure error messages are shown
|
||||
# Needs to be ported to Windows
|
||||
if ($port_type ne 'W32') {
|
||||
run_make_test(q!
|
||||
all:: ; @./foo bar baz
|
||||
!,
|
||||
'-O', "#MAKE#: ./foo: $ERR_no_such_file\n#MAKE#: *** [#MAKEFILE#:2: all] Error 127\n", 512);
|
||||
}
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
45
third_party/make/tests/scripts/features/override
vendored
Normal file
45
third_party/make/tests/scripts/features/override
vendored
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test the override directive on variable assignments.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# TEST 0: Basic override
|
||||
|
||||
run_make_test('
|
||||
X = start
|
||||
override recur = $(X)
|
||||
override simple := $(X)
|
||||
X = end
|
||||
all: ; @echo "$(recur) $(simple)"
|
||||
',
|
||||
'recur=I simple=J', "end start\n");
|
||||
|
||||
# TEST 1: Override with append
|
||||
|
||||
run_make_test('
|
||||
X += X1
|
||||
override X += X2
|
||||
override Y += Y1
|
||||
Y += Y2
|
||||
all: ; @echo "$(X) $(Y)"
|
||||
',
|
||||
'', "X1 X2 Y1\n");
|
||||
|
||||
# TEST 2: Override with append to the command line
|
||||
|
||||
run_make_test(undef, 'X=C Y=C', "C X2 C Y1\n");
|
||||
|
||||
# Test override of define/endef
|
||||
|
||||
run_make_test('
|
||||
override define foo
|
||||
@echo First comes the definition.
|
||||
@echo Then comes the override.
|
||||
endef
|
||||
all: ; $(foo)
|
||||
',
|
||||
'foo=Hello', "First comes the definition.\nThen comes the override.\n");
|
||||
|
||||
|
||||
1;
|
||||
253
third_party/make/tests/scripts/features/parallelism
vendored
Normal file
253
third_party/make/tests/scripts/features/parallelism
vendored
Normal file
|
|
@ -0,0 +1,253 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test parallelism (-j) option.";
|
||||
$details = "";
|
||||
|
||||
if (!$parallel_jobs) {
|
||||
return -1;
|
||||
}
|
||||
|
||||
run_make_test("
|
||||
all : def_1 def_2 def_3
|
||||
def_1 : ; \@#HELPER# file ONE wait THREE out TWO
|
||||
def_2 : ; \@#HELPER# wait FOUR file THREE
|
||||
def_3 : ; \@#HELPER# wait ONE file FOUR",
|
||||
'-j4', "file ONE\nwait ONE\nfile FOUR\nwait FOUR\nfile THREE\nwait THREE\nTWO");
|
||||
rmfiles(qw(ONE TWO THREE FOUR));
|
||||
|
||||
# Verify -j added to MAKEFLAGS in the makefile
|
||||
run_make_test("
|
||||
MAKEFLAGS += -j4
|
||||
all : def_1 def_2 def_3
|
||||
def_1 : ; \@#HELPER# file ONE wait THREE out TWO
|
||||
def_2 : ; \@#HELPER# wait FOUR file THREE
|
||||
def_3 : ; \@#HELPER# wait ONE file FOUR",
|
||||
'', "file ONE\nwait ONE\nfile FOUR\nwait FOUR\nfile THREE\nwait THREE\nTWO");
|
||||
rmfiles(qw(ONE TWO THREE FOUR));
|
||||
|
||||
# Command line should take precedence
|
||||
run_make_test("
|
||||
MAKEFLAGS += -j2
|
||||
all : def_1 def_2 def_3
|
||||
def_1 : ; \@#HELPER# file ONE wait THREE out TWO
|
||||
def_2 : ; \@#HELPER# wait FOUR file THREE
|
||||
def_3 : ; \@#HELPER# wait ONE file FOUR",
|
||||
'-j4', "file ONE\nwait ONE\nfile FOUR\nwait FOUR\nfile THREE\nwait THREE\nTWO");
|
||||
rmfiles(qw(ONE TWO THREE FOUR));
|
||||
|
||||
# Test parallelism with included files. Here we sleep/echo while
|
||||
# building the included files, to test that they are being built in
|
||||
# parallel.
|
||||
run_make_test("
|
||||
all: 1 2; \@#HELPER# out success
|
||||
-include 1.inc 2.inc
|
||||
1.inc:
|
||||
\t\@#HELPER# file ONE.inc wait THREE.inc file TWO.inc
|
||||
\t\@echo '1: ; \@#HELPER# file ONE wait THREE file TWO' > \$\@
|
||||
2.inc:
|
||||
\t\@#HELPER# wait ONE.inc file THREE.inc
|
||||
\t\@echo '2: ; \@#HELPER# wait ONE file THREE' > \$\@",
|
||||
"-j4",
|
||||
"file ONE.inc\nwait ONE.inc\nfile THREE.inc\nwait THREE.inc\nfile TWO.inc\nfile ONE\nwait ONE\nfile THREE\nwait THREE\nfile TWO\nsuccess\n", 0, 7);
|
||||
rmfiles(qw(ONE.inc TWO.inc THREE.inc ONE TWO THREE 1.inc 2.inc));
|
||||
|
||||
|
||||
# Test parallelism with included files--this time recurse first and make
|
||||
# sure the jobserver works.
|
||||
run_make_test("
|
||||
recurse: ; \@\$(MAKE) --no-print-directory -f #MAKEFILE# INC=yes all
|
||||
all: 1 2; \@#HELPER# out success
|
||||
|
||||
INC = no
|
||||
ifeq (\$(INC),yes)
|
||||
-include 1.inc 2.inc
|
||||
endif
|
||||
|
||||
1.inc: ; \@#HELPER# file ONE.inc wait THREE.inc file TWO.inc; echo '1: ; \@#HELPER# file ONE wait THREE file TWO' > \$\@
|
||||
2.inc: ; \@#HELPER# wait ONE.inc file THREE.inc; echo '2: ; \@#HELPER# wait ONE file THREE' > \$\@",
|
||||
"-j4",
|
||||
"file ONE.inc\nwait ONE.inc\nfile THREE.inc\nwait THREE.inc\nfile TWO.inc\nfile ONE\nwait ONE\nfile THREE\nwait THREE\nfile TWO\nsuccess\n", 0, 7);
|
||||
rmfiles(qw(ONE.inc TWO.inc THREE.inc ONE TWO THREE 1.inc 2.inc));
|
||||
|
||||
# Grant Taylor reports a problem where tokens can be lost (not written back
|
||||
# to the pipe when they should be): this happened when there is a $(shell ...)
|
||||
# function in an exported recursive variable. I added some code to check
|
||||
# for this situation and print a message if it occurred. This test used
|
||||
# to trigger this code when I added it but no longer does after the fix.
|
||||
# We have to increase the timeout from the default (5s) on this test.
|
||||
|
||||
run_make_test("
|
||||
export HI = \$(shell \$(\$\@.CMD))
|
||||
first.CMD = #HELPER# out hi
|
||||
second.CMD = #HELPER# sleep 4
|
||||
|
||||
.PHONY: all first second
|
||||
all: first second
|
||||
|
||||
first second: ; \@#HELPER# out \$\@ sleep 1 out \$\@",
|
||||
'-j2', "first\nsleep 1\nfirst\nsecond\nsleep 1\nsecond", 0, 7);
|
||||
|
||||
# Michael Matz <matz@suse.de> reported a bug where if make is running in
|
||||
# parallel without -k and two jobs die in a row, but not too close to each
|
||||
# other, then make will quit without waiting for the rest of the jobs to die.
|
||||
|
||||
run_make_test("
|
||||
.PHONY: all fail.1 fail.2 fail.3 ok
|
||||
all: fail.1 ok fail.2 fail.3
|
||||
|
||||
.RECIPEPREFIX := >
|
||||
|
||||
fail.1 fail.2 fail.3:
|
||||
> \@#HELPER# sleep \$(patsubst fail.%,%,\$\@)
|
||||
> \@#HELPER# out Fail
|
||||
> \@#HELPER# fail 1
|
||||
|
||||
ok:
|
||||
> \@#HELPER# sleep 4
|
||||
> \@#HELPER# out OK",
|
||||
'-rR -j5', "sleep 1\nFail\nfail 1
|
||||
#MAKE#: *** [#MAKEFILE#:10: fail.1] Error 1
|
||||
#MAKE#: *** Waiting for unfinished jobs....
|
||||
sleep 2\nFail\nfail 1
|
||||
#MAKE#: *** [#MAKEFILE#:10: fail.2] Error 1
|
||||
sleep 3\nFail\nfail 1
|
||||
#MAKE#: *** [#MAKEFILE#:10: fail.3] Error 1
|
||||
sleep 4\nOK",
|
||||
512);
|
||||
|
||||
|
||||
# Test for Savannah bug #15641.
|
||||
#
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all:; @:
|
||||
|
||||
-include foo.d
|
||||
|
||||
foo.d: comp ; @#HELPER# out $@
|
||||
|
||||
comp: mod_a.o mod_b.o; @:
|
||||
|
||||
mod_a.o mod_b.o: ; @#HELPER# fail 1
|
||||
', '-j2', "fail 1\nfail 1\n");
|
||||
|
||||
|
||||
# TEST #9 -- Savannah bugs 3330 and 15919
|
||||
# In earlier versions of make this will either give the wrong answer, or hang.
|
||||
|
||||
utouch(-10, 'target');
|
||||
run_make_test('target: intermed ; #HELPER# file $@
|
||||
|
||||
.INTERMEDIATE: intermed
|
||||
intermed: | phony ; #HELPER# file $@
|
||||
|
||||
.PHONY: phony
|
||||
phony: ; : phony', '-rR -j', ': phony');
|
||||
rmfiles('target');
|
||||
|
||||
# TEST #11: Make sure -jN from MAKEFLAGS is processed even when we re-exec
|
||||
# See Savannah bug #33873
|
||||
|
||||
$extraENV{MAKEFLAGS} = '-j4';
|
||||
|
||||
run_make_test(q!
|
||||
things = thing1 thing2
|
||||
all: $(things)
|
||||
thing1:; @#HELPER# wait thing2start file $@start wait thing2end out $@end
|
||||
thing2:; @#HELPER# file $@start wait thing1start file $@end
|
||||
-include inc.mk
|
||||
inc.mk: ; @touch $@
|
||||
!,
|
||||
'', "file thing2start\nwait thing2start\nfile thing1start\nwait thing1start\nfile thing2end\nwait thing2end\nthing1end\n");
|
||||
|
||||
delete $extraENV{MAKEFLAGS};
|
||||
rmfiles(qw(inc.mk thing1start thing1end thing2start thing2end));
|
||||
|
||||
# Ensure intermediate/secondary files are not pruned incorrectly.
|
||||
# See Savannah bug #30653
|
||||
|
||||
utouch(-15, 'file2');
|
||||
utouch(-10, 'file4');
|
||||
utouch(-5, 'file1');
|
||||
|
||||
run_make_test(q!
|
||||
.INTERMEDIATE: file3
|
||||
file4: file3 ; @mv -f $< $@
|
||||
file3: file2 ; touch $@
|
||||
file2: file1 ; @touch $@
|
||||
!,
|
||||
'--no-print-directory -j2', "touch file3");
|
||||
|
||||
rmfiles('file1', 'file2', 'file3', 'file4');
|
||||
|
||||
# Ensure that the jobserver is preserved across make re-exec.
|
||||
|
||||
run_make_test(q!
|
||||
all: one two
|
||||
one: ;@ #HELPER# wait TWO file ONE
|
||||
two: ;@ #HELPER# file TWO
|
||||
include fff1.mk
|
||||
fff1.mk: ; touch $@
|
||||
!,
|
||||
'-j2', "touch fff1.mk\nfile TWO\nwait TWO\nfile ONE\n");
|
||||
|
||||
unlink('fff1.mk', 'ONE', 'TWO');
|
||||
|
||||
# Test if a sub-make needs to re-exec and the makefile is built via
|
||||
# sub-make. Reported by Masahiro Yamada <yamada.masahiro@socionext.com>
|
||||
|
||||
run_make_test(q!
|
||||
all: ; @$(MAKE) -f #MAKEFILE# recurse
|
||||
|
||||
recurse: one two ; @#HELPER# out $@
|
||||
one: ;@ #HELPER# wait TWO file ONE
|
||||
two: ;@ #HELPER# file TWO
|
||||
|
||||
mkinclude: ; touch fff1.mk
|
||||
|
||||
ifeq ($(MAKECMDGOALS),recurse)
|
||||
include fff1.mk
|
||||
fff1.mk: ; @$(MAKE) -f #MAKEFILE# mkinclude
|
||||
endif
|
||||
!,
|
||||
'--no-print-directory -j2', "touch fff1.mk\nfile TWO\nwait TWO\nfile ONE\nrecurse\n");
|
||||
|
||||
unlink('fff1.mk', 'ONE', 'TWO');
|
||||
|
||||
|
||||
# Make sure that all jobserver FDs are closed if we need to re-exec the
|
||||
# master copy.
|
||||
#
|
||||
# First, find the "default" file descriptors we normally use
|
||||
# Then make sure they're still used.
|
||||
#
|
||||
# Right now we don't have a way to run a makefile and capture the output
|
||||
# without checking it, so we can't really write this test.
|
||||
|
||||
# run_make_test('
|
||||
# submake: ; @$(MAKE) --no-print-directory -f #MAKEFILE# fdprint 5>output
|
||||
|
||||
# dependfile: ; @echo FOO=bar > $@
|
||||
|
||||
# INCL := true
|
||||
|
||||
# FOO=foo
|
||||
# ifeq ($(INCL),true)
|
||||
# -include dependfile
|
||||
# endif
|
||||
|
||||
# fdprint: ; @echo $(filter --jobserver%,$(MAKEFLAGS))
|
||||
|
||||
# recurse: ; @$(MAKE) --no-print-directory -f #MAKEFILE# submake INCL=true',
|
||||
# '-j2 INCL=false fdprint',
|
||||
# 'bar');
|
||||
|
||||
# rmfiles(qw(dependfile output));
|
||||
|
||||
|
||||
# # Do it again, this time where the include is done by the non-master make.
|
||||
# run_make_test(undef, '-j2 recurse INCL=false', 'bar');
|
||||
|
||||
# rmfiles(qw(dependfile output));
|
||||
|
||||
1;
|
||||
148
third_party/make/tests/scripts/features/patspecific_vars
vendored
Normal file
148
third_party/make/tests/scripts/features/patspecific_vars
vendored
Normal file
|
|
@ -0,0 +1,148 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test pattern-specific variable settings.";
|
||||
|
||||
$details = "\
|
||||
Create a makefile containing various flavors of pattern-specific variable
|
||||
settings, override and non-override, and using various variable expansion
|
||||
rules, semicolon interference, etc.";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
print MAKEFILE <<'EOF';
|
||||
all: one.x two.x three.x
|
||||
FOO = foo
|
||||
BAR = bar
|
||||
BAZ = baz
|
||||
one.x: override FOO = one
|
||||
%.x: BAR = two
|
||||
t%.x: BAR = four
|
||||
thr% : override BAZ = three
|
||||
one.x two.x three.x: ; @echo $@: $(FOO) $(BAR) $(BAZ)
|
||||
four.x: baz ; @echo $@: $(FOO) $(BAR) $(BAZ)
|
||||
baz: ; @echo $@: $(FOO) $(BAR) $(BAZ)
|
||||
|
||||
# test matching multiple patterns
|
||||
a%: AAA = aaa
|
||||
%b: BBB = ccc
|
||||
a%: BBB += ddd
|
||||
%b: AAA ?= xxx
|
||||
%b: AAA += bbb
|
||||
.PHONY: ab
|
||||
ab: ; @echo $(AAA); echo $(BBB)
|
||||
EOF
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
|
||||
# TEST #1 -- basics
|
||||
|
||||
&run_make_with_options($makefile, "", &get_logfile);
|
||||
$answer = "one.x: one two baz\ntwo.x: foo four baz\nthree.x: foo four three\n";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
|
||||
# TEST #2 -- try the override feature
|
||||
|
||||
&run_make_with_options($makefile, "BAZ=five", &get_logfile);
|
||||
$answer = "one.x: one two five\ntwo.x: foo four five\nthree.x: foo four three\n";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
|
||||
# TEST #3 -- make sure patterns are inherited properly
|
||||
|
||||
&run_make_with_options($makefile, "four.x", &get_logfile);
|
||||
$answer = "baz: foo two baz\nfour.x: foo two baz\n";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
|
||||
# TEST #4 -- test multiple patterns matching the same target
|
||||
|
||||
&run_make_with_options($makefile, "ab", &get_logfile);
|
||||
$answer = "aaa bbb\nccc ddd\n";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
# TEST #5 -- test pattern-specific exported variables
|
||||
#
|
||||
run_make_test('
|
||||
/%: export foo := foo
|
||||
|
||||
/bar:
|
||||
@echo $(foo) $$foo
|
||||
', '', 'foo foo');
|
||||
|
||||
|
||||
# TEST #6 -- test expansion of pattern-specific simple variables
|
||||
#
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
|
||||
all: inherit := good $$t
|
||||
all: bar baz
|
||||
|
||||
b%: pattern := good $$t
|
||||
|
||||
global := original $$t
|
||||
|
||||
|
||||
# normal target
|
||||
#
|
||||
ifdef rec
|
||||
bar: a = global: $(global) pattern: $(pattern) inherit: $(inherit)
|
||||
else
|
||||
bar: a := global: $(global) pattern: $(pattern) inherit: $(inherit)
|
||||
endif
|
||||
|
||||
bar: ; @echo \'normal: $a;\'
|
||||
|
||||
|
||||
# pattern target
|
||||
#
|
||||
ifdef rec
|
||||
%z: a = global: $(global) pattern: $(pattern) inherit: $(inherit)
|
||||
else
|
||||
%z: a := global: $(global) pattern: $(pattern) inherit: $(inherit)
|
||||
endif
|
||||
|
||||
%z: ; @echo \'pattern: $a;\'
|
||||
|
||||
|
||||
global := new $$t
|
||||
',
|
||||
'',
|
||||
'normal: global: original $t pattern: inherit: ;
|
||||
pattern: global: original $t pattern: inherit: ;');
|
||||
|
||||
|
||||
# TEST #7 -- test expansion of pattern-specific recursive variables
|
||||
#
|
||||
run_make_test(undef, # reuse previous makefile
|
||||
'rec=1',
|
||||
'normal: global: new $t pattern: good $t inherit: good $t;
|
||||
pattern: global: new $t pattern: good $t inherit: good $t;');
|
||||
|
||||
# TEST #8: override in pattern-specific variables
|
||||
|
||||
run_make_test('
|
||||
a%: override FOO += f1
|
||||
a%: FOO += f2
|
||||
ab: ; @echo "$(FOO)"
|
||||
',
|
||||
'', "f1\n");
|
||||
|
||||
run_make_test(undef, 'FOO=C', "C f1\n");
|
||||
|
||||
# TEST #9: Test shortest stem selection in pattern-specific variables.
|
||||
|
||||
run_make_test('
|
||||
%-mt.x: x := two
|
||||
%.x: x := one
|
||||
|
||||
all: foo.x foo-mt.x
|
||||
|
||||
foo.x: ;@echo $x
|
||||
foo-mt.x: ;@echo $x
|
||||
',
|
||||
'',
|
||||
"one\ntwo");
|
||||
|
||||
1;
|
||||
252
third_party/make/tests/scripts/features/patternrules
vendored
Normal file
252
third_party/make/tests/scripts/features/patternrules
vendored
Normal file
|
|
@ -0,0 +1,252 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test pattern rules.";
|
||||
|
||||
$details = "";
|
||||
|
||||
use Cwd;
|
||||
|
||||
$dir = cwd;
|
||||
$dir =~ s,.*/([^/]+)$,../$1,;
|
||||
|
||||
|
||||
# TEST #0: Make sure that multiple patterns where the same target
|
||||
# can be built are searched even if the first one fails
|
||||
# to match properly.
|
||||
#
|
||||
|
||||
run_make_test(q!
|
||||
.PHONY: all
|
||||
|
||||
all: case.1 case.2 case.3
|
||||
|
||||
# We can't have this, due to "Implicit Rule Search Algorithm" step 5c
|
||||
#xxx: void
|
||||
|
||||
# 1 - existing file
|
||||
%.1: void
|
||||
@exit 1
|
||||
%.1: #MAKEFILE#
|
||||
@exit 0
|
||||
|
||||
# 2 - phony
|
||||
%.2: void
|
||||
@exit 1
|
||||
%.2: 2.phony
|
||||
@exit 0
|
||||
.PHONY: 2.phony
|
||||
|
||||
# 3 - implicit-phony
|
||||
%.3: void
|
||||
@exit 1
|
||||
%.3: 3.implicit-phony
|
||||
@exit 0
|
||||
|
||||
3.implicit-phony:
|
||||
!, '', '');
|
||||
|
||||
# TEST #1: make sure files that are built via implicit rules are marked
|
||||
# as targets (Savannah bug #12202).
|
||||
#
|
||||
run_make_test('
|
||||
TARGETS := foo foo.out
|
||||
|
||||
.PHONY: all foo.in
|
||||
|
||||
all: $(TARGETS)
|
||||
|
||||
%: %.in
|
||||
@echo $@
|
||||
|
||||
%.out: %
|
||||
@echo $@
|
||||
|
||||
foo.in: ; @:
|
||||
|
||||
',
|
||||
'',
|
||||
'foo
|
||||
foo.out');
|
||||
|
||||
|
||||
# TEST #2: make sure intermediate files that also happened to be
|
||||
# prerequisites are not removed (Savannah bug #12267).
|
||||
#
|
||||
run_make_test('
|
||||
$(dir)/foo.o:
|
||||
|
||||
$(dir)/foo.y:
|
||||
@echo $@
|
||||
|
||||
%.c: %.y
|
||||
touch $@
|
||||
|
||||
%.o: %.c
|
||||
@echo $@
|
||||
|
||||
.PHONY: install
|
||||
install: $(dir)/foo.c
|
||||
|
||||
',
|
||||
"dir=$dir",
|
||||
"$dir/foo.y
|
||||
touch $dir/foo.c
|
||||
$dir/foo.o");
|
||||
|
||||
unlink("$dir/foo.c");
|
||||
|
||||
|
||||
# TEST #3: make sure precious flag is set properly for targets
|
||||
# that are built via implicit rules (Savannah bug #13218).
|
||||
#
|
||||
run_make_test('
|
||||
.DELETE_ON_ERROR:
|
||||
|
||||
.PRECIOUS: %.bar
|
||||
|
||||
%.bar:; @touch $@ && exit 1
|
||||
|
||||
$(dir)/foo.bar:
|
||||
|
||||
',
|
||||
"dir=$dir",
|
||||
"#MAKE#: *** [#MAKEFILE#:6: $dir/foo.bar] Error 1",
|
||||
512);
|
||||
|
||||
unlink("$dir/foo.bar");
|
||||
|
||||
|
||||
# TEST #4: make sure targets of a matched implicit pattern rule are
|
||||
# never considered intermediate (Savannah bug #13022).
|
||||
#
|
||||
run_make_test('
|
||||
.PHONY: all
|
||||
all: foo.c foo.o
|
||||
|
||||
%.h %.c: %.in
|
||||
touch $*.h
|
||||
touch $*.c
|
||||
|
||||
%.o: %.c %.h
|
||||
echo $+ >$@
|
||||
|
||||
%.o: %.c
|
||||
@echo wrong rule
|
||||
|
||||
foo.in:
|
||||
touch $@
|
||||
|
||||
',
|
||||
'',
|
||||
'touch foo.in
|
||||
touch foo.h
|
||||
touch foo.c
|
||||
echo foo.c foo.h >foo.o');
|
||||
|
||||
unlink('foo.in', 'foo.h', 'foo.c', 'foo.o');
|
||||
|
||||
# TEST #5: make sure both prefix and suffix patterns work with multiple
|
||||
# target patterns (Savannah bug #26593).
|
||||
#
|
||||
run_make_test('
|
||||
all: foo.s1 foo.s2 p1.foo p2.foo
|
||||
|
||||
p1.% p2.%: %.orig
|
||||
@echo $@
|
||||
%.s1 %.s2: %.orig
|
||||
@echo $@
|
||||
|
||||
.PHONY: foo.orig
|
||||
',
|
||||
'', "foo.s1\np1.foo\n");
|
||||
|
||||
# TEST 6: Make sure that non-target files are still eligible to be created
|
||||
# as part of implicit rule chaining. Savannah bug #17752.
|
||||
|
||||
run_make_test(sprintf(q!
|
||||
BIN = xyz
|
||||
COPY = $(BIN).cp
|
||||
SRC = $(BIN).c
|
||||
allbroken: $(COPY) $(BIN) ; @echo ok
|
||||
$(SRC): ; @echo 'main(){}' > $@
|
||||
%%.cp: %% ; @cp $< $@
|
||||
%% : %%.c ; @cp $< $@
|
||||
clean: ; @%s $(SRC) $(COPY) $(BIN)
|
||||
!, $CMD_rmfile),
|
||||
'', "ok\n");
|
||||
|
||||
unlink(qw(xyz xyz.cp xyz.c));
|
||||
|
||||
# TEST 7: Make sure that all prereqs of all "also_make" targets get created
|
||||
# before any of the things that depend on any of them. Savannah bug #19108.
|
||||
|
||||
run_make_test(q!
|
||||
final: x ; @echo $@
|
||||
x: x.t1 x.t2 ; @echo $@
|
||||
x.t2: dep
|
||||
dep: ; @echo $@
|
||||
%.t1 %.t2: ; @echo $*.t1 ; echo $*.t2
|
||||
!,
|
||||
'', "dep\nx.t1\nx.t2\nx\nfinal\n");
|
||||
|
||||
|
||||
# TEST 8: Verify we can remove pattern rules. Savannah bug #18622.
|
||||
|
||||
my @f = (qw(foo.w foo.ch));
|
||||
touch(@f);
|
||||
|
||||
run_make_test(q!
|
||||
CWEAVE := :
|
||||
|
||||
# Disable builtin rules
|
||||
%.tex : %.w
|
||||
%.tex : %.w %.ch
|
||||
!,
|
||||
'foo.tex',
|
||||
"#MAKE#: *** No rule to make target 'foo.tex'. Stop.", 512);
|
||||
|
||||
unlink(@f);
|
||||
|
||||
# TEST #9: Test shortest stem selection in pattern rules.
|
||||
|
||||
run_make_test('
|
||||
%.x: ;@echo one
|
||||
%-mt.x: ;@echo two
|
||||
|
||||
all: foo.x foo-mt.x
|
||||
',
|
||||
'',
|
||||
"one\ntwo");
|
||||
|
||||
1;
|
||||
|
||||
# Test pattern rules building the same targets
|
||||
# See SV 54233. Rely on our standard test timeout to break the loop
|
||||
|
||||
touch('a.c');
|
||||
|
||||
run_make_test(q!
|
||||
all: a.elf a.dbg
|
||||
|
||||
%.elf %.lnk: %.c ; : $*.elf $*.lnk
|
||||
|
||||
%.elf %.dbg: %.lnk ; : $*.elf $*.dbg
|
||||
!,
|
||||
'-j2', ": a.elf a.lnk\n: a.elf a.dbg\n");
|
||||
|
||||
unlink('a.c');
|
||||
|
||||
# SV 56655: Test patterns matching files containing whitespace
|
||||
touch('some file.yy');
|
||||
run_make_test(q!
|
||||
%.xx : %.yy ; @echo matched
|
||||
!, '"some file.xx"', "matched\n");
|
||||
|
||||
unlink('some file.xx', 'some file.yy');
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
31
third_party/make/tests/scripts/features/quoting
vendored
Normal file
31
third_party/make/tests/scripts/features/quoting
vendored
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "The following test creates a makefile to test using \n" .
|
||||
"quotes within makefiles.";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE <<'EOM';
|
||||
TEXFONTS = NICEFONT
|
||||
DEFINES = -DDEFAULT_TFM_PATH=\".:$(TEXFONTS)\"
|
||||
test: ; @"echo" 'DEFINES = $(DEFINES)'
|
||||
EOM
|
||||
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
|
||||
&run_make_with_options($makefile,"",&get_logfile);
|
||||
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = 'DEFINES = -DDEFAULT_TFM_PATH=\".:NICEFONT\"' . "\n";
|
||||
|
||||
# COMPARE RESULTS
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
1;
|
||||
67
third_party/make/tests/scripts/features/recursion
vendored
Normal file
67
third_party/make/tests/scripts/features/recursion
vendored
Normal file
|
|
@ -0,0 +1,67 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test recursion.";
|
||||
|
||||
$details = "DETAILS";
|
||||
|
||||
# Test some basic recursion.
|
||||
run_make_test('
|
||||
.RECIPEPREFIX := |
|
||||
all:
|
||||
| $(MAKE) -f #MAKEFILE# foo
|
||||
foo:
|
||||
| @echo $(MAKE)
|
||||
| @echo MAKELEVEL = $(MAKELEVEL)
|
||||
| $(MAKE) -f #MAKEFILE# last
|
||||
last:
|
||||
| @echo $(MAKE)
|
||||
| @echo MAKELEVEL = $(MAKELEVEL)
|
||||
| @echo THE END
|
||||
',
|
||||
('CFLAGS=-O -w' . ($parallel_jobs ? ' -j 2' : '')),
|
||||
($vos
|
||||
? "#MAKE#: Entering directory '#PWD#'
|
||||
make 'CFLAGS=-O' -f #MAKEFILE# foo
|
||||
make CFLAGS=-O
|
||||
MAKELEVEL = 0
|
||||
make 'CFLAGS=-O' -f #MAKEFILE# last
|
||||
make CFLAGS=-O
|
||||
MAKELEVEL = 0
|
||||
THE END
|
||||
#MAKE#: Leaving directory '#PWD#'"
|
||||
: "#MAKE#: Entering directory '#PWD#'
|
||||
#MAKEPATH# -f #MAKEFILE# foo
|
||||
#MAKE#[1]: Entering directory '#PWD#'
|
||||
#MAKEPATH#
|
||||
MAKELEVEL = 1
|
||||
#MAKEPATH# -f #MAKEFILE# last
|
||||
#MAKE#[2]: Entering directory '#PWD#'
|
||||
#MAKEPATH#
|
||||
MAKELEVEL = 2
|
||||
THE END
|
||||
#MAKE#[2]: Leaving directory '#PWD#'
|
||||
#MAKE#[1]: Leaving directory '#PWD#'
|
||||
#MAKE#: Leaving directory '#PWD#'"));
|
||||
|
||||
|
||||
# Test command line overrides.
|
||||
run_make_test('
|
||||
recur: all ; @$(MAKE) --no-print-directory -f #MAKEFILE# a=AA all
|
||||
all: ; @echo "MAKEOVERRIDES = $(MAKEOVERRIDES)"
|
||||
',
|
||||
'a=ZZ',
|
||||
'MAKEOVERRIDES = a=ZZ
|
||||
MAKEOVERRIDES = a=AA
|
||||
');
|
||||
|
||||
# SV 46013: Ensure that MAKEOVERRIDES is passed even if set in the makefile
|
||||
run_make_test(q!
|
||||
ifeq ($(MAKELEVEL),0)
|
||||
MAKEOVERRIDES += FOO+=bar
|
||||
endif
|
||||
.PHONY: M R
|
||||
M: ; @$(MAKE) --no-print-directory -f #MAKEFILE# R
|
||||
R: ; @echo '$(FOO)'
|
||||
!,
|
||||
'', 'bar');
|
||||
|
||||
1;
|
||||
82
third_party/make/tests/scripts/features/reinvoke
vendored
Normal file
82
third_party/make/tests/scripts/features/reinvoke
vendored
Normal file
|
|
@ -0,0 +1,82 @@
|
|||
# -*-mode: perl-*-
|
||||
|
||||
$description = "Test GNU make's auto-reinvocation feature.";
|
||||
|
||||
$details = "\
|
||||
If the makefile or one it includes can be rebuilt then it is, and make
|
||||
is reinvoked. We create a rule to rebuild the makefile from a temp
|
||||
file, then touch the temp file to make it newer than the makefile.";
|
||||
|
||||
$omkfile = $makefile;
|
||||
|
||||
&utouch(-600, 'incl.mk');
|
||||
# For some reason if we don't do this then the test fails for systems
|
||||
# with sub-second timestamps, maybe + NFS? Not sure.
|
||||
&utouch(-1, 'incl-1.mk');
|
||||
|
||||
run_make_test('
|
||||
all: ; @echo running rules.
|
||||
|
||||
#MAKEFILE# incl.mk: incl-1.mk
|
||||
@echo rebuilding $@
|
||||
@echo >> $@
|
||||
|
||||
include incl.mk',
|
||||
'', "rebuilding incl.mk\nrunning rules.\n");
|
||||
|
||||
# Make sure updating the makefile itself also works
|
||||
|
||||
&utouch(-600, $omkfile);
|
||||
|
||||
run_make_test(undef, '', "rebuilding #MAKEFILE#\nrunning rules.\n");
|
||||
|
||||
&rmfiles('incl.mk', 'incl-1.mk');
|
||||
|
||||
|
||||
# In this test we create an included file that's out-of-date, but then
|
||||
# the rule doesn't update it. Make shouldn't re-exec.
|
||||
|
||||
&utouch(-600, 'b','a');
|
||||
#&utouch(-10, 'a');
|
||||
&touch('c');
|
||||
|
||||
run_make_test('
|
||||
all: ; @echo hello
|
||||
|
||||
a : b ; echo >> $@
|
||||
|
||||
b : c ; [ -f $@ ] || echo >> $@
|
||||
|
||||
c: ; echo >> $@
|
||||
|
||||
include $(F)',
|
||||
'F=a', "[ -f b ] || echo >> b\nhello\n");
|
||||
|
||||
# Now try with the file we're not updating being the actual file we're
|
||||
# including: this and the previous one test different parts of the code.
|
||||
|
||||
run_make_test(undef, 'F=b', "[ -f b ] || echo >> b\nhello\n");
|
||||
|
||||
&rmfiles('a','b','c');
|
||||
|
||||
# Ensure command line variables are preserved properly across re-exec
|
||||
# Tests for Savannah bug #30723
|
||||
|
||||
run_make_test('
|
||||
ifdef RECURSE
|
||||
-include foo30723
|
||||
endif
|
||||
recurse: ; @$(MAKE) -f $(MAKEFILE_LIST) RECURSE=1 test
|
||||
test: ; @echo F.O=$(F.O)
|
||||
foo30723: ; @touch $@
|
||||
',
|
||||
'--no-print-directory F.O=bar', "F.O=bar\n");
|
||||
|
||||
unlink('foo30723');
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
37
third_party/make/tests/scripts/features/rule_glob
vendored
Normal file
37
third_party/make/tests/scripts/features/rule_glob
vendored
Normal file
|
|
@ -0,0 +1,37 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test globbing in targets and prerequisites.";
|
||||
|
||||
$details = "";
|
||||
|
||||
touch(qw(a.one a.two a.three));
|
||||
|
||||
# Test wildcards in regular targets and prerequisites
|
||||
run_make_test(q{
|
||||
.PHONY: all a.one a.two a.three
|
||||
all: a.one* a.t[a-z0-9]o a.th[!q]ee
|
||||
a.o[Nn][Ee] a.t*: ; @echo $@
|
||||
},
|
||||
'', "a.one\na.two\na.three");
|
||||
|
||||
# Test wildcards in pattern targets and prerequisites
|
||||
run_make_test(q{
|
||||
.PHONY: all
|
||||
all: a.four
|
||||
%.four : %.t* ; @echo $@: $(sort $^)
|
||||
},
|
||||
'', "a.four: a.three a.two");
|
||||
|
||||
# Test wildcards in second expansion targets and prerequisites
|
||||
run_make_test(q{
|
||||
.PHONY: all
|
||||
all: a.four
|
||||
.SECONDEXPANSION:
|
||||
%.four : $$(sort %.t*) ; @echo $@: $(sort $^)
|
||||
},
|
||||
'', "a.four: a.three a.two");
|
||||
|
||||
unlink(qw(a.one a.two a.three));
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
203
third_party/make/tests/scripts/features/se_explicit
vendored
Normal file
203
third_party/make/tests/scripts/features/se_explicit
vendored
Normal file
|
|
@ -0,0 +1,203 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test second expansion in ordinary rules.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# TEST #0: Test handing of '$' in prerequisites with and without second
|
||||
# expansion.
|
||||
|
||||
# If we don't support archives then the prerequisite is different
|
||||
my $prereq = exists $FEATURES{'archives'} ? '$' : '$(PRE)';
|
||||
|
||||
run_make_test(q!
|
||||
ifdef SE
|
||||
.SECONDEXPANSION:
|
||||
endif
|
||||
foo$$bar: bar$$baz bar$$biz ; @echo '$@ : $^'
|
||||
PRE = one two
|
||||
bar$$baz: $$(PRE)
|
||||
baraz: $$(PRE)
|
||||
PRE = three four
|
||||
.DEFAULT: ; @echo '$@'
|
||||
!,
|
||||
'',
|
||||
"$prereq\nbar\$biz\nfoo\$bar : bar\$baz bar\$biz");
|
||||
|
||||
run_make_test(undef, 'SE=1', "three\nfour\nbariz\nfoo\$bar : baraz bariz");
|
||||
|
||||
# TEST #1: automatic variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
foo: bar baz
|
||||
|
||||
foo: biz | buz
|
||||
|
||||
foo: $$@.1 \
|
||||
$$<.2 \
|
||||
$$(addsuffix .3,$$^) \
|
||||
$$(addsuffix .4,$$+) \
|
||||
$$|.5 \
|
||||
$$*.6
|
||||
|
||||
!,
|
||||
'',
|
||||
'bar
|
||||
baz
|
||||
biz
|
||||
buz
|
||||
foo.1
|
||||
bar.2
|
||||
bar.3
|
||||
baz.3
|
||||
biz.3
|
||||
bar.4
|
||||
baz.4
|
||||
biz.4
|
||||
buz.5
|
||||
.6
|
||||
');
|
||||
|
||||
|
||||
# Test #2: target/pattern -specific variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
foo.x: $$a $$b
|
||||
|
||||
foo.x: a := bar
|
||||
|
||||
%.x: b := baz
|
||||
!,
|
||||
'',
|
||||
'bar
|
||||
baz
|
||||
');
|
||||
|
||||
|
||||
# Test #3: order of prerequisites.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
all: foo bar baz
|
||||
|
||||
# Subtest #1
|
||||
foo: foo.1; @:
|
||||
foo: foo.2
|
||||
foo: foo.3
|
||||
|
||||
# Subtest #2
|
||||
bar: bar.2
|
||||
bar: bar.1; @:
|
||||
bar: bar.3
|
||||
|
||||
# Subtest #3
|
||||
baz: baz.1
|
||||
baz: baz.2
|
||||
baz: ; @:
|
||||
!,
|
||||
'',
|
||||
'foo.1
|
||||
foo.2
|
||||
foo.3
|
||||
bar.1
|
||||
bar.2
|
||||
bar.3
|
||||
baz.1
|
||||
baz.2
|
||||
');
|
||||
|
||||
# TEST #4: eval in a context where there is no reading_file
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
all : $$(eval $$(info test))
|
||||
!,
|
||||
'', "test\n#MAKE#: Nothing to be done for 'all'.\n");
|
||||
|
||||
# TEST #5: (NEGATIVE) catch eval in a prereq list trying to create new
|
||||
# target/prereq relationships.
|
||||
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
proj1.exe : proj1.o $$(eval $$(test))
|
||||
define test
|
||||
proj1.o : proj1.c
|
||||
proj1.c: proj1.h
|
||||
endef
|
||||
!,
|
||||
'', "#MAKE#: *** prerequisites cannot be defined in recipes. Stop.\n", 512);
|
||||
|
||||
|
||||
# Automatic $$+ variable expansion issue. Savannah bug #25780
|
||||
run_make_test(q!
|
||||
all : foo foo
|
||||
.SECONDEXPANSION:
|
||||
all : $$+ ; @echo '$+'
|
||||
foo : ;
|
||||
!,
|
||||
'', "foo foo foo foo\n");
|
||||
|
||||
|
||||
# Automatic $$+ variable expansion issue. Savannah bug #25780
|
||||
run_make_test(q!
|
||||
all : bar bar
|
||||
bar : ;
|
||||
q%x : ;
|
||||
.SECONDEXPANSION:
|
||||
a%l: q1x $$+ q2x ; @echo '$+'
|
||||
!,
|
||||
'', "q1x bar bar q2x bar bar\n");
|
||||
|
||||
|
||||
# Allow patsubst shorthand in second expansion context.
|
||||
# Requires the colon to be quoted. Savannah bug #16545
|
||||
run_make_test(q!
|
||||
.PHONY: foo.bar
|
||||
.SECONDEXPANSION:
|
||||
foo: $$(@\\:%=%.bar); @echo '$^'
|
||||
!,
|
||||
'', "foo.bar\n");
|
||||
|
||||
# SV 54549 : Ensure we don't free used variable_sets
|
||||
run_make_test(q!
|
||||
foo: -lcat
|
||||
|
||||
# Removing second expansion prevents segfault
|
||||
.SECONDEXPANSION:
|
||||
foo: $$@.o ;
|
||||
|
||||
# Having an empty command here prevents segfault unless,
|
||||
# the environment is empty. `env -i make foo`
|
||||
# MFLAGS=-w or MAKEFLAGS=-w `env MFLAGS=-w make foo`
|
||||
# libcat.a target calls an extra command, `@true \n @touch $@`
|
||||
# odd.
|
||||
%.o: ; @true
|
||||
|
||||
# Having an empty command prevents segfault.
|
||||
-l%: lib%.a ; @true
|
||||
|
||||
# Not creating libcat.a here prevents segfault,
|
||||
libcat.a: ; @touch $@
|
||||
!,
|
||||
'', q!#MAKEFILE#:16: Recipe was specified for file '-lcat' at #MAKEFILE#:19,
|
||||
#MAKEFILE#:16: but '-lcat' is now considered the same file as 'libcat.a'.
|
||||
#MAKEFILE#:16: Recipe for 'libcat.a' will be ignored in favor of the one for '-lcat'.!);
|
||||
unlink('libcat.a');
|
||||
|
||||
# SV 28456 : Don't reset $$< for default recipes
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
|
||||
.PHONY: biz baz
|
||||
biz: baz ;
|
||||
biz: $$(info $$<)
|
||||
!,
|
||||
'', "baz\n#MAKE#: Nothing to be done for 'biz'.\n");
|
||||
|
||||
1;
|
||||
266
third_party/make/tests/scripts/features/se_implicit
vendored
Normal file
266
third_party/make/tests/scripts/features/se_implicit
vendored
Normal file
|
|
@ -0,0 +1,266 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test second expansion in implicit rules.";
|
||||
|
||||
$details = "";
|
||||
|
||||
use Cwd;
|
||||
|
||||
$dir = cwd;
|
||||
$dir =~ s,.*/([^/]+)$,../$1,;
|
||||
|
||||
|
||||
# Test #1: automatic variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
foo.a: bar baz
|
||||
|
||||
foo.a: biz | buz
|
||||
|
||||
foo.%: 1.$$@ \
|
||||
2.$$< \
|
||||
$$(addprefix 3.,$$^) \
|
||||
$$(addprefix 4.,$$+) \
|
||||
5.$$| \
|
||||
6.$$* ; @:
|
||||
|
||||
1.foo.a \
|
||||
2.bar \
|
||||
3.bar \
|
||||
3.baz \
|
||||
3.biz \
|
||||
4.bar \
|
||||
4.baz \
|
||||
4.biz \
|
||||
5.buz \
|
||||
6.a: ; @echo '$@'
|
||||
|
||||
!,
|
||||
'',
|
||||
'1.foo.a
|
||||
2.bar
|
||||
3.bar
|
||||
3.baz
|
||||
3.biz
|
||||
4.bar
|
||||
4.baz
|
||||
4.biz
|
||||
5.buz
|
||||
6.a
|
||||
bar
|
||||
baz
|
||||
biz
|
||||
buz
|
||||
');
|
||||
|
||||
|
||||
# Test #2: target/pattern -specific variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
foo.x:
|
||||
|
||||
foo.%: $$(%_a) $$(%_b) bar ; @:
|
||||
|
||||
foo.x: x_a := bar
|
||||
|
||||
%.x: x_b := baz
|
||||
|
||||
bar baz: ; @echo '$@'
|
||||
!,
|
||||
'', "bar\nbaz\n");
|
||||
|
||||
|
||||
# Test #3: order of prerequisites.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
all: foo bar baz
|
||||
|
||||
|
||||
# Subtest #1
|
||||
#
|
||||
%oo: %oo.1; @:
|
||||
|
||||
foo: foo.2
|
||||
|
||||
foo: foo.3
|
||||
|
||||
foo.1: ; @echo '$@'
|
||||
|
||||
|
||||
# Subtest #2
|
||||
#
|
||||
bar: bar.2
|
||||
|
||||
%ar: %ar.1; @:
|
||||
|
||||
bar: bar.3
|
||||
|
||||
bar.1: ; @echo '$@'
|
||||
|
||||
|
||||
# Subtest #3
|
||||
#
|
||||
baz: baz.1
|
||||
|
||||
baz: baz.2
|
||||
|
||||
%az: ; @:
|
||||
!,
|
||||
'',
|
||||
'foo.1
|
||||
foo.2
|
||||
foo.3
|
||||
bar.1
|
||||
bar.2
|
||||
bar.3
|
||||
baz.1
|
||||
baz.2
|
||||
');
|
||||
|
||||
|
||||
# Test #4: stem splitting logic.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
$(dir)/tmp/bar.o:
|
||||
|
||||
$(dir)/tmp/foo/bar.c: ; @echo '$@'
|
||||
$(dir)/tmp/bar/bar.c: ; @echo '$@'
|
||||
foo.h: ; @echo '$@'
|
||||
|
||||
%.o: $$(addsuffix /%.c,foo bar) foo.h ; @echo '$@: {$<} $^'
|
||||
!,
|
||||
"dir=$dir", "$dir/tmp/foo/bar.c
|
||||
$dir/tmp/bar/bar.c
|
||||
foo.h
|
||||
$dir/tmp/bar.o: {$dir/tmp/foo/bar.c} $dir/tmp/foo/bar.c $dir/tmp/bar/bar.c foo.h
|
||||
");
|
||||
|
||||
|
||||
# Test #5: stem splitting logic and order-only prerequisites.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
$(dir)/tmp/foo.o: $(dir)/tmp/foo.c
|
||||
$(dir)/tmp/foo.c: ; @echo '$@'
|
||||
bar.h: ; @echo '$@'
|
||||
|
||||
%.o: %.c|bar.h ; @echo '$@: {$<} {$|} $^'
|
||||
|
||||
!,
|
||||
"dir=$dir", "$dir/tmp/foo.c
|
||||
bar.h
|
||||
$dir/tmp/foo.o: {$dir/tmp/foo.c} {bar.h} $dir/tmp/foo.c
|
||||
");
|
||||
|
||||
|
||||
# Test #6: lack of implicit prerequisites.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
foo.o: foo.c
|
||||
foo.c: ; @echo '$@'
|
||||
|
||||
%.o: ; @echo '$@: {$<} $^'
|
||||
!,
|
||||
'', "foo.c\nfoo.o: {foo.c} foo.c\n");
|
||||
|
||||
|
||||
# Test #7: Test stem from the middle of the name.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
foobarbaz:
|
||||
|
||||
foo%baz: % $$*.1 ; @echo '$*'
|
||||
|
||||
bar bar.1: ; @echo '$@'
|
||||
!,
|
||||
'', "bar\nbar.1\nbar\n");
|
||||
|
||||
|
||||
# Test #8: Make sure stem triple-expansion does not happen.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
foo$$bar:
|
||||
|
||||
f%r: % $$*.1 ; @echo '$*'
|
||||
|
||||
oo$$ba oo$$ba.1: ; @echo '$@'
|
||||
!,
|
||||
'', 'oo$ba
|
||||
oo$ba.1
|
||||
oo$ba
|
||||
');
|
||||
|
||||
# Test #9: Check the value of $^
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
|
||||
%.so: | $$(extra) ; @echo $^
|
||||
|
||||
foo.so: extra := foo.o
|
||||
foo.so:
|
||||
foo.o:
|
||||
!,
|
||||
'', "\n");
|
||||
|
||||
# Test #10: Test second expansion with second expansion prerequisites
|
||||
# Ensures pattern_search() recurses with SE prereqs.
|
||||
touch('a');
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
sim_base_rgg := just_a_name
|
||||
sim_base_src := a
|
||||
sim_base_f := a a a
|
||||
sim_%.f: $${sim_$$*_f} ; echo $@
|
||||
sim_%.src: $${sim_$$*_src} ; echo $@
|
||||
sim_%: \
|
||||
$$(if $$(sim_$$*_src),sim_%.src) \
|
||||
$$(if $$(sim_$$*_f),sim_%.f) \
|
||||
$$(if $$(sim_$$*_rgg),$$(sim_$$*_rgg).s) ; echo $@
|
||||
!,
|
||||
'-s sim_base', "#MAKE#: *** No rule to make target 'sim_base'. Stop.", 512);
|
||||
|
||||
unlink('a');
|
||||
|
||||
# Ensure that order-only tokens embedded in second expansions are parsed
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
PREREQS=p1|p2
|
||||
P2=p2
|
||||
all : foo bar
|
||||
f%o: $$(PREREQS) ; @echo '$@' from '$^' and '$|'
|
||||
b%r: p1|$$(P2) ; @echo '$@' from '$^' and '$|'
|
||||
p% : ; : $@
|
||||
!,
|
||||
"", ": p1\n: p2\nfoo from p1 and p2\nbar from p1 and p2\n");
|
||||
|
||||
# SV 28456 : Don't reset $$< for default recipes
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
|
||||
.PHONY: foo bar
|
||||
foo: bar
|
||||
foo: $$(info $$<)
|
||||
%oo: ;
|
||||
!,
|
||||
'', "bar\n#MAKE#: Nothing to be done for 'foo'.\n");
|
||||
|
||||
# SV 54161: Expand $$* properly when it contains a path
|
||||
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
%x: $$(info $$*); @echo '$*'
|
||||
!,
|
||||
'q/ux', "q/u\nq/u\n");
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
107
third_party/make/tests/scripts/features/se_statpat
vendored
Normal file
107
third_party/make/tests/scripts/features/se_statpat
vendored
Normal file
|
|
@ -0,0 +1,107 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test second expansion in static pattern rules.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# Test #1: automatic variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
foo.a foo.b: foo.%: bar.% baz.%
|
||||
foo.a foo.b: foo.%: biz.% | buz.%
|
||||
|
||||
foo.a foo.b: foo.%: $$@.1 \
|
||||
$$<.2 \
|
||||
$$(addsuffix .3,$$^) \
|
||||
$$(addsuffix .4,$$+) \
|
||||
$$|.5 \
|
||||
$$*.6
|
||||
!,
|
||||
'', 'bar.a
|
||||
baz.a
|
||||
biz.a
|
||||
buz.a
|
||||
foo.a.1
|
||||
bar.a.2
|
||||
bar.a.3
|
||||
baz.a.3
|
||||
biz.a.3
|
||||
bar.a.4
|
||||
baz.a.4
|
||||
biz.a.4
|
||||
buz.a.5
|
||||
a.6
|
||||
');
|
||||
|
||||
|
||||
# Test #2: target/pattern -specific variables.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
foo.x foo.y: foo.%: $$(%_a) $$($$*_b)
|
||||
|
||||
foo.x: x_a := bar
|
||||
|
||||
%.x: x_b := baz
|
||||
!,
|
||||
'', "bar\nbaz\n");
|
||||
|
||||
|
||||
# Test #3: order of prerequisites.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
.DEFAULT: ; @echo '$@'
|
||||
|
||||
all: foo.a bar.a baz.a
|
||||
|
||||
# Subtest #1
|
||||
foo.a foo.b: foo.%: foo.%.1; @:
|
||||
foo.a foo.b: foo.%: foo.%.2
|
||||
foo.a foo.b: foo.%: foo.%.3
|
||||
|
||||
|
||||
# Subtest #2
|
||||
bar.a bar.b: bar.%: bar.%.2
|
||||
bar.a bar.b: bar.%: bar.%.1; @:
|
||||
bar.a bar.b: bar.%: bar.%.3
|
||||
|
||||
|
||||
# Subtest #3
|
||||
baz.a baz.b: baz.%: baz.%.1
|
||||
baz.a baz.b: baz.%: baz.%.2
|
||||
baz.a baz.b: ; @:
|
||||
!,
|
||||
'', 'foo.a.1
|
||||
foo.a.2
|
||||
foo.a.3
|
||||
bar.a.1
|
||||
bar.a.2
|
||||
bar.a.3
|
||||
baz.a.1
|
||||
baz.a.2
|
||||
');
|
||||
|
||||
|
||||
# Test #4: Make sure stem triple-expansion does not happen.
|
||||
#
|
||||
run_make_test(q!
|
||||
.SECONDEXPANSION:
|
||||
foo$$bar: f%r: % $$*.1
|
||||
@echo '$*'
|
||||
|
||||
oo$$ba oo$$ba.1:
|
||||
@echo '$@'
|
||||
!,
|
||||
'', 'oo$ba
|
||||
oo$ba.1
|
||||
oo$ba
|
||||
');
|
||||
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
65
third_party/make/tests/scripts/features/shell_assignment
vendored
Normal file
65
third_party/make/tests/scripts/features/shell_assignment
vendored
Normal file
|
|
@ -0,0 +1,65 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test BSD-style shell assignments (VAR != VAL) for variables.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# TEST 0: Basic shell assignment (!=).
|
||||
|
||||
run_make_test('
|
||||
.POSIX:
|
||||
|
||||
demo1!=printf \' 1 2 3\n4\n\n5 \n \n 6\n\n\n\n\'
|
||||
demo2 != printf \'7 8\n \'
|
||||
demo3 != printf \'$$(demo2)\'
|
||||
demo4 != printf \' 2 3 \n\'
|
||||
demo5 != printf \' 2 3 \n\n\'
|
||||
all: ; @echo "<$(demo1)> <$(demo2)> <$(demo3)> <$(demo4)> <${demo5}>"
|
||||
',
|
||||
'', "< 1 2 3 4 5 6 > <7 8 > <7 8 > < 2 3 > < 2 3 >\n");
|
||||
|
||||
# TEST 1: Handle '#' the same way as BSD make
|
||||
|
||||
run_make_test('
|
||||
foo1!=echo bar#baz
|
||||
hash != printf \'\043\'
|
||||
foo2!= echo "bar$(hash)baz"
|
||||
|
||||
all: ; @echo "<$(foo1)> <$(hash)> <$(foo2)>"
|
||||
',
|
||||
'', "<bar> <#> <bar#baz>\n");
|
||||
|
||||
# TEST 2: shell assignment variables (from !=) should be recursive.
|
||||
# Note that variables are re-evaluated later, so the shell can output
|
||||
# a value like $(XYZZY) as part of !=. The $(XYZZY) will be EVALUATED
|
||||
# when the value containing it is evaluated. On the negative side, this
|
||||
# means if you don't want this, you need to escape dollar signs as $$.
|
||||
# On the positive side, it means that shell programs can output macros
|
||||
# that are then evaluated as they are traditionally evaluated.. and that
|
||||
# you can use traditional macro evaluation semantics to implement !=.
|
||||
|
||||
run_make_test('
|
||||
XYZZY = fiddle-dee-dee
|
||||
dollar = $$
|
||||
VAR3 != printf \'%s\' \'$(dollar)(XYZZY)\'
|
||||
|
||||
all: ; @echo "<$(VAR3)>"
|
||||
',
|
||||
'', "<fiddle-dee-dee>\n");
|
||||
|
||||
|
||||
# TEST 3: Overrides invoke shell anyway; they just don't store the result
|
||||
# in a way that is visible.
|
||||
|
||||
run_make_test('
|
||||
|
||||
override != echo abc > ,abc ; cat ,abc
|
||||
|
||||
all: ; @echo "<$(override)>" ; cat ,abc
|
||||
',
|
||||
'override=xyz', "<xyz>\nabc\n");
|
||||
|
||||
unlink(',abc');
|
||||
|
||||
|
||||
1;
|
||||
111
third_party/make/tests/scripts/features/statipattrules
vendored
Normal file
111
third_party/make/tests/scripts/features/statipattrules
vendored
Normal file
|
|
@ -0,0 +1,111 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test handling of static pattern rules.";
|
||||
|
||||
$details = "\
|
||||
The makefile created in this test has three targets. The
|
||||
filter command is used to get those target names ending in
|
||||
.o and statically creates a compile command with the target
|
||||
name and the target name with .c. It also does the same thing
|
||||
for another target filtered with .elc and creates a command
|
||||
to emacs a .el file";
|
||||
|
||||
&touch('bar.c', 'lose.c');
|
||||
|
||||
# TEST #0
|
||||
# -------
|
||||
|
||||
run_make_test('
|
||||
files = foo.elc bar.o lose.o
|
||||
|
||||
$(filter %.o,$(files)): %.o: %.c ; @echo CC -c $(CFLAGS) $< -o $@
|
||||
|
||||
$(filter %.elc,$(files)): %.elc: %.el ; @echo emacs $<
|
||||
',
|
||||
'',
|
||||
'CC -c bar.c -o bar.o');
|
||||
|
||||
# TEST #1
|
||||
# -------
|
||||
|
||||
run_make_test(undef, 'lose.o', 'CC -c lose.c -o lose.o');
|
||||
|
||||
|
||||
# TEST #2
|
||||
# -------
|
||||
&touch("foo.el");
|
||||
|
||||
run_make_test(undef, 'foo.elc', 'emacs foo.el');
|
||||
|
||||
# Clean up after the first tests.
|
||||
unlink('foo.el', 'bar.c', 'lose.c');
|
||||
|
||||
|
||||
# TEST #3 -- PR/1670: don't core dump on invalid static pattern rules
|
||||
# -------
|
||||
|
||||
run_make_test('
|
||||
.DEFAULT: ; @echo $@
|
||||
foo: foo%: % %.x % % % y.% % ; @echo $@
|
||||
',
|
||||
'', ".x\ny.\nfoo");
|
||||
|
||||
|
||||
# TEST #4 -- bug #12180: core dump on a stat pattern rule with an empty
|
||||
# prerequisite list.
|
||||
run_make_test('
|
||||
foo.x bar.x: %.x : ; @echo $@
|
||||
|
||||
',
|
||||
'', 'foo.x');
|
||||
|
||||
|
||||
# TEST #5 -- bug #13881: double colon static pattern rule does not
|
||||
# substitute %.
|
||||
run_make_test('
|
||||
foo.bar:: %.bar: %.baz
|
||||
foo.baz: ;@:
|
||||
',
|
||||
'', '');
|
||||
|
||||
|
||||
# TEST #6: make sure the second stem does not overwrite the first
|
||||
# perprerequisite's stem (Savannah bug #16053).
|
||||
#
|
||||
run_make_test('
|
||||
all.foo.bar: %.foo.bar: %.one
|
||||
|
||||
all.foo.bar: %.bar: %.two
|
||||
|
||||
all.foo.bar:
|
||||
@echo $*
|
||||
@echo $^
|
||||
|
||||
.DEFAULT:;@:
|
||||
',
|
||||
'',
|
||||
'all.foo
|
||||
all.one all.foo.two');
|
||||
|
||||
|
||||
# TEST #7: make sure the second stem does not overwrite the first
|
||||
# perprerequisite's stem when second expansion is enabled
|
||||
# (Savannah bug #16053).
|
||||
#
|
||||
run_make_test('
|
||||
.SECONDEXPANSION:
|
||||
|
||||
all.foo.bar: %.foo.bar: %.one $$*-one
|
||||
|
||||
all.foo.bar: %.bar: %.two $$*-two
|
||||
|
||||
all.foo.bar:
|
||||
@echo $*
|
||||
@echo $^
|
||||
|
||||
.DEFAULT:;@:
|
||||
',
|
||||
'',
|
||||
'all.foo
|
||||
all.one all-one all.foo.two all.foo-two');
|
||||
|
||||
1;
|
||||
99
third_party/make/tests/scripts/features/suffixrules
vendored
Normal file
99
third_party/make/tests/scripts/features/suffixrules
vendored
Normal file
|
|
@ -0,0 +1,99 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test suffix rules.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# TEST #0: Clear all suffixes
|
||||
|
||||
touch('foo.c');
|
||||
|
||||
run_make_test(q!
|
||||
.SUFFIXES:
|
||||
all: foo.o ; @echo $@ $<
|
||||
!,
|
||||
'', "#MAKE#: *** No rule to make target 'foo.o', needed by 'all'. Stop.\n", 512);
|
||||
|
||||
unlink('foo.c');
|
||||
|
||||
# Test #1: Add a simple suffix rule
|
||||
|
||||
touch('foo.baz');
|
||||
|
||||
run_make_test(q!
|
||||
.SUFFIXES: .biz .baz
|
||||
|
||||
.baz.biz: ; @echo make $@
|
||||
!,
|
||||
'foo.biz', "make foo.biz\n");
|
||||
|
||||
unlink('foo.baz');
|
||||
|
||||
# Test #2: Make sure the defaults still work
|
||||
|
||||
touch('foo.c');
|
||||
|
||||
run_make_test(undef, 'foo.o COMPILE.c=@echo OUTPUT_OPTION=', "foo.c\n");
|
||||
|
||||
unlink('foo.c');
|
||||
|
||||
# Test #3: Replacing all suffixes
|
||||
|
||||
touch('foo.baz');
|
||||
|
||||
run_make_test(q!
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .biz .baz
|
||||
|
||||
.baz.biz: ; @echo make $@
|
||||
!,
|
||||
'foo.biz', "make foo.biz\n");
|
||||
|
||||
unlink('foo.baz');
|
||||
|
||||
# SV 40657: Test #4: "Suffix rules" with deps are normal rules
|
||||
|
||||
my $prewarn = 'warning: ignoring prerequisites on suffix rule definition';
|
||||
|
||||
touch('foo.bar');
|
||||
|
||||
run_make_test(q!
|
||||
.SUFFIXES:
|
||||
.SUFFIXES: .biz .baz
|
||||
|
||||
$X.POSIX:
|
||||
|
||||
.baz.biz: foo.bar ; @echo make $@ from $<
|
||||
!,
|
||||
'X=1 .baz.biz', "#MAKEFILE#:7: $prewarn\nmake .baz.biz from foo.bar\n");
|
||||
|
||||
# SV 40657: Test #5: In POSIX mode we don't get a warning
|
||||
|
||||
run_make_test(undef, 'X= .baz.biz', "make .baz.biz from foo.bar\n");
|
||||
|
||||
unlink('foo.bar');
|
||||
|
||||
# SV 40657: Test #6: In POSIX mode, no pattern rules should be created
|
||||
|
||||
utouch(-20, 'foo.baz');
|
||||
|
||||
run_make_test(undef,
|
||||
'X= foo.biz', "#MAKE#: *** No rule to make target 'foo.biz'. Stop.\n", 512);
|
||||
|
||||
# SV 40657: Test #7: In Non-POSIX mode, a pattern rule is created
|
||||
|
||||
run_make_test(undef,
|
||||
'X=1 foo.biz', "#MAKEFILE#:7: $prewarn\nmake foo.biz from foo.baz\n");
|
||||
|
||||
# SV 40657: Test #8: ... but any prerequisites are ignored
|
||||
|
||||
utouch(-10, 'foo.biz');
|
||||
touch('foo.bar');
|
||||
|
||||
run_make_test(undef,
|
||||
'X=1 foo.biz', "#MAKEFILE#:7: $prewarn\n#MAKE#: 'foo.biz' is up to date.\n");
|
||||
|
||||
unlink('foo.baz', 'foo.biz', 'foo.bar');
|
||||
|
||||
# Complete
|
||||
1;
|
||||
302
third_party/make/tests/scripts/features/targetvars
vendored
Normal file
302
third_party/make/tests/scripts/features/targetvars
vendored
Normal file
|
|
@ -0,0 +1,302 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test target-specific variable settings.";
|
||||
|
||||
$details = "\
|
||||
Create a makefile containing various flavors of target-specific variable
|
||||
values, override and non-override, and using various variable expansion
|
||||
rules, semicolon interference, etc.";
|
||||
|
||||
run_make_test('
|
||||
export FOO = foo
|
||||
export BAR = bar
|
||||
one: override FOO = one
|
||||
one two: ; @echo $(FOO) $(BAR)
|
||||
two: BAR = two
|
||||
three: ; BAR=1000
|
||||
@echo $(FOO) $(BAR)
|
||||
# Some things that shouldn not be target vars
|
||||
funk : override
|
||||
funk : override adelic
|
||||
adelic override : ; echo $@
|
||||
# Test per-target recursive variables
|
||||
four:FOO=x
|
||||
four:VAR$(FOO)=ok
|
||||
four: ; @echo "$(FOO) $(VAR$(FOO)) $(VAR) $(VARx)"
|
||||
five:FOO=x
|
||||
five six : VAR$(FOO)=good
|
||||
five six: ;@echo "$(FOO) $(VAR$(FOO)) $(VAR) $(VARx) $(VARfoo)"
|
||||
# Test per-target variable inheritance
|
||||
seven: eight
|
||||
seven eight: ; @echo $@: $(FOO) $(BAR)
|
||||
seven: BAR = seven
|
||||
seven: FOO = seven
|
||||
eight: BAR = eight
|
||||
# Test the export keyword with per-target variables
|
||||
nine: ; @echo $(FOO) $(BAR) $$FOO $$BAR
|
||||
nine: FOO = wallace
|
||||
nine-a: export BAZ = baz
|
||||
nine-a: ; @echo $$BAZ
|
||||
# Test = escaping
|
||||
EQ = =
|
||||
ten: one$(EQ)two
|
||||
ten: one $(EQ) two
|
||||
ten one$(EQ)two $(EQ):;@echo $@
|
||||
.PHONY: one two three four five six seven eight nine ten $(EQ) one$(EQ)two
|
||||
# Test target-specific vars with pattern/suffix rules
|
||||
QVAR = qvar
|
||||
RVAR = =
|
||||
%.q : ; @echo $(QVAR) $(RVAR)
|
||||
foo.q : RVAR += rvar
|
||||
# Target-specific vars with multiple LHS pattern rules
|
||||
%.r %.s %.t: ; @echo $(QVAR) $(RVAR) $(SVAR) $(TVAR)
|
||||
foo.r : RVAR += rvar
|
||||
foo.t : TVAR := $(QVAR)
|
||||
',
|
||||
"one two three", "one bar\nfoo two\nBAR=1000\nfoo bar\n");
|
||||
|
||||
# TEST #2
|
||||
|
||||
run_make_test(undef, "one two FOO=1 BAR=2", "one 2\n1 2\n");
|
||||
|
||||
# TEST #3
|
||||
|
||||
run_make_test(undef, "four", "x ok ok\n");
|
||||
|
||||
# TEST #4
|
||||
|
||||
run_make_test(undef, "seven", "eight: seven eight\nseven: seven seven\n");
|
||||
|
||||
# TEST #5
|
||||
|
||||
run_make_test(undef, "nine", "wallace bar wallace bar\n");
|
||||
|
||||
# TEST #5-a
|
||||
|
||||
run_make_test(undef, "nine-a", "baz\n");
|
||||
|
||||
# TEST #6
|
||||
|
||||
run_make_test(undef, "ten", "one=two\none bar\n=\nfoo two\nten\n");
|
||||
|
||||
# TEST #6
|
||||
|
||||
run_make_test(undef, "foo.q bar.q", "qvar = rvar\nqvar =\n");
|
||||
|
||||
# TEST #7
|
||||
|
||||
run_make_test(undef, "foo.t bar.s", "qvar = qvar\nqvar =\n");
|
||||
|
||||
|
||||
# TEST #8
|
||||
# For PR/1378: Target-specific vars don't inherit correctly
|
||||
|
||||
run_make_test('
|
||||
foo: FOO = foo
|
||||
bar: BAR = bar
|
||||
foo: bar
|
||||
bar: baz
|
||||
baz: ; @echo $(FOO) $(BAR)
|
||||
', "", "foo bar\n");
|
||||
|
||||
# TEST #9
|
||||
# For PR/1380: Using += assignment in target-specific variables sometimes fails
|
||||
# Also PR/1831
|
||||
|
||||
run_make_test('
|
||||
.PHONY: all one
|
||||
all: FOO += baz
|
||||
all: one; @echo $(FOO)
|
||||
|
||||
FOO = bar
|
||||
|
||||
one: FOO += biz
|
||||
one: FOO += boz
|
||||
one: ; @echo $(FOO)
|
||||
',
|
||||
'', "bar baz biz boz\nbar baz\n");
|
||||
|
||||
# Test #10
|
||||
|
||||
run_make_test(undef, 'one', "bar biz boz\n");
|
||||
|
||||
# Test #11
|
||||
# PR/1709: Test semicolons in target-specific variable values
|
||||
|
||||
run_make_test('
|
||||
foo : FOO = ; ok
|
||||
foo : ; @echo "$(FOO)"
|
||||
',
|
||||
'', "; ok\n");
|
||||
|
||||
# Test #12
|
||||
# PR/2020: More hassles with += target-specific vars. I _really_ think
|
||||
# I nailed it this time :-/.
|
||||
|
||||
run_make_test('
|
||||
.PHONY: a
|
||||
|
||||
BLAH := foo
|
||||
COMMAND = echo $(BLAH)
|
||||
|
||||
a: ; @$(COMMAND)
|
||||
|
||||
a: BLAH := bar
|
||||
a: COMMAND += snafu $(BLAH)
|
||||
',
|
||||
'', "bar snafu bar\n");
|
||||
|
||||
# Test #13
|
||||
# Test double-colon rules with target-specific variable values
|
||||
|
||||
run_make_test('
|
||||
W = bad
|
||||
X = bad
|
||||
foo: W = ok
|
||||
foo:: ; @echo $(W) $(X) $(Y) $(Z)
|
||||
foo:: ; @echo $(W) $(X) $(Y) $(Z)
|
||||
foo: X = ok
|
||||
|
||||
Y = foo
|
||||
bar: foo
|
||||
bar: Y = bar
|
||||
|
||||
Z = nopat
|
||||
ifdef PATTERN
|
||||
fo% : Z = pat
|
||||
endif
|
||||
',
|
||||
'foo', "ok ok foo nopat\nok ok foo nopat\n");
|
||||
|
||||
# Test #14
|
||||
# Test double-colon rules with target-specific variable values and
|
||||
# inheritance
|
||||
|
||||
run_make_test(undef, 'bar', "ok ok bar nopat\nok ok bar nopat\n");
|
||||
|
||||
# Test #15
|
||||
# Test double-colon rules with pattern-specific variable values
|
||||
|
||||
run_make_test(undef, 'foo PATTERN=yes', "ok ok foo pat\nok ok foo pat\n");
|
||||
|
||||
# Test #16
|
||||
# Test target-specific variables with very long command line
|
||||
# (> make default buffer length)
|
||||
|
||||
run_make_test('
|
||||
base_metals_fmd_reports.sun5 base_metals_fmd_reports CreateRealPositions CreateMarginFunds deals_changed_since : BUILD_OBJ=$(shell if [ -f "build_information.generate" ]; then echo "$(OBJ_DIR)/build_information.o"; else echo "no build information"; fi )
|
||||
|
||||
deals_changed_since: ; @echo $(BUILD_OBJ)
|
||||
',
|
||||
'', "no build information\n");
|
||||
|
||||
# TEST #17
|
||||
|
||||
# Test a merge of set_lists for files, where one list is much longer
|
||||
# than the other. See Savannah bug #15757.
|
||||
|
||||
mkdir('t1', 0777);
|
||||
touch('t1/rules.mk');
|
||||
|
||||
run_make_test('
|
||||
VPATH = t1
|
||||
include rules.mk
|
||||
.PHONY: all
|
||||
all: foo.x
|
||||
foo.x : rules.mk ; @echo MYVAR=$(MYVAR) FOOVAR=$(FOOVAR) ALLVAR=$(ALLVAR)
|
||||
all: ALLVAR = xxx
|
||||
foo.x: FOOVAR = bar
|
||||
rules.mk : MYVAR = foo
|
||||
.INTERMEDIATE: foo.x rules.mk
|
||||
',
|
||||
'-I t1', 'MYVAR= FOOVAR=bar ALLVAR=xxx');
|
||||
|
||||
rmfiles('t1/rules.mk');
|
||||
rmdir('t1');
|
||||
|
||||
# TEST #18
|
||||
|
||||
# Test appending to a simple variable containing a "$": avoid a
|
||||
# double-expansion. See Savannah bug #15913.
|
||||
|
||||
run_make_test('
|
||||
VAR := $$FOO
|
||||
foo: VAR += BAR
|
||||
foo: ; @echo '."'".'$(VAR)'."'".'
|
||||
',
|
||||
'', '$FOO BAR');
|
||||
|
||||
# TEST #19: Override with append variables
|
||||
|
||||
run_make_test('
|
||||
a: override FOO += f1
|
||||
a: FOO += f2
|
||||
a: ; @echo "$(FOO)"
|
||||
',
|
||||
'', "f1\n");
|
||||
|
||||
run_make_test(undef, 'FOO=C', "C f1\n");
|
||||
|
||||
# TEST #19: Conditional variables with command-line settings
|
||||
|
||||
run_make_test('
|
||||
a: FOO ?= f1
|
||||
a: ; @echo "$(FOO)"
|
||||
',
|
||||
'', "f1\n");
|
||||
|
||||
run_make_test(undef, 'FOO=C', "C\n");
|
||||
|
||||
# TEST #20: Check for continuation after semicolons
|
||||
|
||||
run_make_test(q!
|
||||
a: A = 'hello;\
|
||||
world'
|
||||
a: ; @echo $(A)
|
||||
!,
|
||||
'', "hello; world\n");
|
||||
|
||||
# TEST #21: SV-56834 Ensure setting PATH in a target var works properly
|
||||
my $sname = "foobar$scriptsuffix";
|
||||
|
||||
mkdir('sd', 0775);
|
||||
create_file("sd/$sname", "exit 0\n");
|
||||
chmod 0755, "sd/$sname";
|
||||
|
||||
run_make_test(qq!
|
||||
all: PATH := sd
|
||||
all: ; $sname >/dev/null
|
||||
!,
|
||||
'', "$sname >/dev/null\n");
|
||||
|
||||
# Don't use the general PATH if not found on the target path
|
||||
|
||||
$extraENV{PATH} = "$ENV{PATH}:sd";
|
||||
|
||||
run_make_test(qq!
|
||||
all: PATH := ..
|
||||
all: ; $sname
|
||||
!,
|
||||
'', "$sname\n#MAKE#: $sname: $ERR_no_such_file\n#MAKE#: *** [#MAKEFILE#:3: all] Error 127", 512);
|
||||
|
||||
unlink("sd/$sname");
|
||||
rmdir ('sd');
|
||||
|
||||
# TEST #19: Test define/endef variables as target-specific vars
|
||||
|
||||
# run_make_test('
|
||||
# define b
|
||||
# @echo global
|
||||
# endef
|
||||
# a: define b
|
||||
# @echo local
|
||||
# endef
|
||||
|
||||
# a: ; $(b)
|
||||
# ',
|
||||
# '', "local\n");
|
||||
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
11
third_party/make/tests/scripts/features/utf8
vendored
Normal file
11
third_party/make/tests/scripts/features/utf8
vendored
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test support for UTF-8.";
|
||||
|
||||
$details = "";
|
||||
|
||||
# Verify that the UTF-8 BOM is ignored.
|
||||
run_make_test("\xEF\xBB\xBFall: ; \@echo \$\@\n", '', "all");
|
||||
|
||||
# This tells the test driver that the perl test script executed properly.
|
||||
1;
|
||||
35
third_party/make/tests/scripts/features/varnesting
vendored
Normal file
35
third_party/make/tests/scripts/features/varnesting
vendored
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
# -*-perl-*-
|
||||
$description = "Test recursive variables";
|
||||
|
||||
$details = "";
|
||||
|
||||
run_make_test('
|
||||
x = variable1
|
||||
variable2 := Hello
|
||||
y = $(subst 1,2,$(x))
|
||||
z = y
|
||||
a := $($($(z)))
|
||||
all:
|
||||
@echo $(a)
|
||||
',
|
||||
'', "Hello\n");
|
||||
|
||||
# This tests resetting the value of a variable while expanding it.
|
||||
# You may only see problems with this if you're using valgrind or
|
||||
# some other memory checker that poisons freed memory.
|
||||
# See Savannah patch #7534
|
||||
|
||||
run_make_test('
|
||||
VARIABLE = $(eval VARIABLE := echo hi)$(VARIABLE)
|
||||
wololo:
|
||||
@$(VARIABLE)
|
||||
',
|
||||
'', "hi\n");
|
||||
|
||||
1;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
81
third_party/make/tests/scripts/features/vpath
vendored
Normal file
81
third_party/make/tests/scripts/features/vpath
vendored
Normal file
|
|
@ -0,0 +1,81 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "The following test creates a makefile to test the \n"
|
||||
."vpath directive which allows you to specify a search \n"
|
||||
."path for a particular class of filenames, those that\n"
|
||||
."match a particular pattern.";
|
||||
|
||||
$details = "This tests the vpath directive by specifying search directories\n"
|
||||
."for one class of filenames with the form: vpath pattern directories"
|
||||
."\nIn this test, we specify the working directory for all files\n"
|
||||
."that end in c or h. We also test the variables $@ (which gives\n"
|
||||
."target name) and $^ (which is a list of all dependencies \n"
|
||||
."including the directories in which they were found). It also\n"
|
||||
."uses the function firstword used to extract just the first\n"
|
||||
."dependency from the entire list.";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE "vpath %.c foo\n";
|
||||
print MAKEFILE "vpath %.c $workdir\n";
|
||||
print MAKEFILE "vpath %.h $workdir\n";
|
||||
print MAKEFILE "objects = main.o kbd.o commands.o display.o insert.o\n";
|
||||
print MAKEFILE "edit: \$(objects)\n";
|
||||
print MAKEFILE "\t\@echo cc -o \$@ \$^\n";
|
||||
print MAKEFILE "main.o : main.c defs.h\n";
|
||||
print MAKEFILE "\t\@echo cc -c \$(firstword \$^)\n";
|
||||
print MAKEFILE "kbd.o : kbd.c defs.h command.h\n";
|
||||
print MAKEFILE "\t\@echo cc -c kbd.c\n";
|
||||
print MAKEFILE "commands.o : command.c defs.h command.h\n";
|
||||
print MAKEFILE "\t\@echo cc -c commands.c\n";
|
||||
print MAKEFILE "display.o : display.c defs.h buffer.h\n";
|
||||
print MAKEFILE "\t\@echo cc -c display.c\n";
|
||||
print MAKEFILE "insert.o : insert.c defs.h buffer.h\n";
|
||||
print MAKEFILE "\t\@echo cc -c insert.c\n";
|
||||
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
|
||||
@files_to_touch = ("$workdir${pathsep}main.c","$workdir${pathsep}defs.h",
|
||||
"$workdir${pathsep}kbd.c","$workdir${pathsep}command.h",
|
||||
"$workdir${pathsep}commands.c","$workdir${pathsep}display.c",
|
||||
"$workdir${pathsep}buffer.h","$workdir${pathsep}insert.c",
|
||||
"$workdir${pathsep}command.c");
|
||||
|
||||
&touch(@files_to_touch);
|
||||
|
||||
&run_make_with_options($makefile,"",&get_logfile);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "cc -c $workdir${pathsep}main.c\ncc -c kbd.c\ncc -c commands.c\n"
|
||||
."cc -c display.c\n"
|
||||
."cc -c insert.c\ncc -o edit main.o kbd.o commands.o display.o "
|
||||
."insert.o\n";
|
||||
|
||||
if (&compare_output($answer,&get_logfile(1)))
|
||||
{
|
||||
unlink @files_to_touch;
|
||||
}
|
||||
|
||||
# TEST 2: after vpath lookup ensure we don't get incorrect circular dependency
|
||||
# warnings due to change of struct file ptr. Savannah bug #13529.
|
||||
|
||||
mkdir('vpath-d', 0777);
|
||||
|
||||
run_make_test(q!
|
||||
vpath %.te vpath-d/
|
||||
.SECONDARY:
|
||||
default: vpath-d/a vpath-d/b
|
||||
vpath-d/a: fail.te
|
||||
vpath-d/b : fail.te
|
||||
vpath-d/fail.te:
|
||||
!,
|
||||
'', "#MAKE#: Nothing to be done for 'default'.\n");
|
||||
|
||||
rmdir('vpath-d');
|
||||
|
||||
1;
|
||||
45
third_party/make/tests/scripts/features/vpath2
vendored
Normal file
45
third_party/make/tests/scripts/features/vpath2
vendored
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
$description = "This is part 2 in a series to test the vpath directive\n"
|
||||
."It tests the three forms of the directive:\n"
|
||||
." vpath pattern directive\n"
|
||||
." vpath pattern (clears path associated with pattern)\n"
|
||||
." vpath (clears all paths specified with vpath)\n";
|
||||
|
||||
$details = "This test simply adds many search paths using various vpath\n"
|
||||
."directive forms and clears them afterwards. It has a simple\n"
|
||||
."rule to print a message at the end to confirm that the makefile\n"
|
||||
."ran with no errors.\n";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE "VPATH = $workdir:$scriptdir\n";
|
||||
print MAKEFILE "vpath %.c foo\n";
|
||||
print MAKEFILE "vpath %.c $workdir\n";
|
||||
print MAKEFILE "vpath %.c $scriptdir\n";
|
||||
print MAKEFILE "vpath %.h $workdir\n";
|
||||
print MAKEFILE "vpath %.c\n";
|
||||
print MAKEFILE "vpath\n";
|
||||
print MAKEFILE "all:\n";
|
||||
print MAKEFILE "\t\@echo ALL IS WELL\n";
|
||||
# END of Contents of MAKEFILE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
&run_make_with_options($makefile,"",&get_logfile);
|
||||
|
||||
# Create the answer to what should be produced by this Makefile
|
||||
$answer = "ALL IS WELL\n";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
1;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
41
third_party/make/tests/scripts/features/vpath3
vendored
Normal file
41
third_party/make/tests/scripts/features/vpath3
vendored
Normal file
|
|
@ -0,0 +1,41 @@
|
|||
# -*-perl-*-
|
||||
|
||||
$description = "Test the interaction of the -lfoo feature and vpath";
|
||||
$details = "";
|
||||
|
||||
my @dirs_to_make = qw(a1 b1 a2 b2 b3);
|
||||
for my $d (@dirs_to_make) {
|
||||
mkdir($d, 0777);
|
||||
}
|
||||
|
||||
my @files_to_touch = ("a1${pathsep}lib1.a",
|
||||
"a1${pathsep}libc.a",
|
||||
"b1${pathsep}lib1.so",
|
||||
"a2${pathsep}lib2.a",
|
||||
"b2${pathsep}lib2.so",
|
||||
"lib3.a",
|
||||
"b3${pathsep}lib3.so");
|
||||
&touch(@files_to_touch);
|
||||
|
||||
my $answer = "a1${pathsep}lib1.a a1${pathsep}libc.a " .
|
||||
"a2${pathsep}lib2.a lib3.a\n";
|
||||
if ($port_type eq 'VMS-DCL') {
|
||||
$answer =~ s/ /,/g;
|
||||
}
|
||||
|
||||
run_make_test('
|
||||
vpath %.h b3
|
||||
vpath %.a a1
|
||||
vpath %.so b1
|
||||
vpath % a2 b2
|
||||
vpath % b3
|
||||
all: -l1 -lc -l2 -l3; @echo $^
|
||||
',
|
||||
'', $answer);
|
||||
|
||||
unlink(@files_to_touch);
|
||||
for my $d (@dirs_to_make) {
|
||||
rmdir($d);
|
||||
}
|
||||
|
||||
1;
|
||||
66
third_party/make/tests/scripts/features/vpathgpath
vendored
Normal file
66
third_party/make/tests/scripts/features/vpathgpath
vendored
Normal file
|
|
@ -0,0 +1,66 @@
|
|||
# -*-perl-*-
|
||||
$description = "Tests VPATH+/GPATH functionality.";
|
||||
|
||||
$details = "";
|
||||
|
||||
$VP = "$workdir$pathsep";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE "VPATH = $VP\n";
|
||||
|
||||
print MAKEFILE <<'EOMAKE';
|
||||
|
||||
GPATH = $(VPATH)
|
||||
|
||||
.SUFFIXES: .a .b .c .d
|
||||
.PHONY: general rename notarget intermediate
|
||||
|
||||
%.a:
|
||||
%.b:
|
||||
%.c:
|
||||
%.d:
|
||||
|
||||
%.a : %.b ; cat $^ > $@
|
||||
%.b : %.c ; cat $^ > $@
|
||||
%.c :: %.d ; cat $^ > $@
|
||||
|
||||
# General testing info:
|
||||
|
||||
general: foo.b
|
||||
foo.b: foo.c bar.c
|
||||
|
||||
EOMAKE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
@touchedfiles = ();
|
||||
|
||||
$off = -500;
|
||||
|
||||
sub touchfiles {
|
||||
foreach (@_) {
|
||||
($f = $_) =~ s,VP/,$VP,g;
|
||||
&utouch($off, $f);
|
||||
$off += 10;
|
||||
push(@touchedfiles, $f);
|
||||
}
|
||||
}
|
||||
|
||||
# Run the general-case test
|
||||
|
||||
&touchfiles("VP/foo.d", "VP/bar.d", "VP/foo.c", "VP/bar.c", "foo.b", "bar.d");
|
||||
|
||||
&run_make_with_options($makefile,"general",&get_logfile());
|
||||
|
||||
push(@touchedfiles, "bar.c");
|
||||
|
||||
$answer = "$make_name: Nothing to be done for 'general'.\n";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
unlink(@touchedfiles) unless $keep;
|
||||
|
||||
1;
|
||||
131
third_party/make/tests/scripts/features/vpathplus
vendored
Normal file
131
third_party/make/tests/scripts/features/vpathplus
vendored
Normal file
|
|
@ -0,0 +1,131 @@
|
|||
# -*-perl-*-
|
||||
$description = "Tests the new VPATH+ functionality added in 3.76.";
|
||||
|
||||
$details = "";
|
||||
|
||||
$VP = "$workdir$pathsep";
|
||||
|
||||
open(MAKEFILE,"> $makefile");
|
||||
|
||||
# The Contents of the MAKEFILE ...
|
||||
|
||||
print MAKEFILE "VPATH = $VP\n";
|
||||
|
||||
print MAKEFILE <<'EOMAKE';
|
||||
.SUFFIXES: .a .b .c .d
|
||||
.PHONY: general rename notarget intermediate
|
||||
|
||||
%.a:
|
||||
%.b:
|
||||
%.c:
|
||||
%.d:
|
||||
|
||||
%.a : %.b
|
||||
cat $^ > $@
|
||||
%.b : %.c
|
||||
cat $^ > $@ 2>/dev/null || exit 1
|
||||
%.c :: %.d
|
||||
cat $^ > $@
|
||||
|
||||
# General testing info:
|
||||
|
||||
general: foo.b
|
||||
foo.b: foo.c bar.c
|
||||
|
||||
# Rename testing info:
|
||||
|
||||
rename: $(VPATH)/foo.c foo.d
|
||||
|
||||
# Target not made testing info:
|
||||
|
||||
notarget: notarget.b
|
||||
notarget.c: notarget.d
|
||||
-@echo "not creating $@ from $^"
|
||||
|
||||
# Intermediate files:
|
||||
|
||||
intermediate: inter.a
|
||||
|
||||
EOMAKE
|
||||
|
||||
close(MAKEFILE);
|
||||
|
||||
@touchedfiles = ();
|
||||
|
||||
$off = -500;
|
||||
|
||||
sub touchfiles {
|
||||
foreach (@_) {
|
||||
&utouch($off, $_);
|
||||
$off += 10;
|
||||
push(@touchedfiles, $_);
|
||||
}
|
||||
}
|
||||
|
||||
# Run the general-case test
|
||||
|
||||
&touchfiles("$VP/foo.d", "$VP/bar.d", "$VP/foo.c", "$VP/bar.c", "foo.b", "bar.d");
|
||||
|
||||
&run_make_with_options($makefile,"general",&get_logfile);
|
||||
|
||||
push(@touchedfiles, "bar.c");
|
||||
|
||||
$answer = "cat bar.d > bar.c
|
||||
cat ${VP}foo.c bar.c > foo.b 2>/dev/null || exit 1
|
||||
";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
# Test rules that don't make the target correctly
|
||||
|
||||
&touchfiles("$VP/notarget.c", "notarget.b", "notarget.d");
|
||||
|
||||
&run_make_with_options($makefile,"notarget",&get_logfile,512);
|
||||
|
||||
$answer = "not creating notarget.c from notarget.d
|
||||
cat notarget.c > notarget.b 2>/dev/null || exit 1
|
||||
$make_name: *** [$makefile:13: notarget.b] Error 1
|
||||
";
|
||||
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
# Test intermediate file handling (part 1)
|
||||
|
||||
&touchfiles("$VP/inter.d");
|
||||
|
||||
&run_make_with_options($makefile,"intermediate",&get_logfile);
|
||||
|
||||
push(@touchedfiles, "inter.a", "inter.b");
|
||||
|
||||
my $be = pack("L", 1) eq pack("N", 1);
|
||||
my $intfiles = $be ? "inter.c inter.b" : "inter.b inter.c";
|
||||
$answer = "cat ${VP}inter.d > inter.c
|
||||
cat inter.c > inter.b 2>/dev/null || exit 1
|
||||
cat inter.b > inter.a
|
||||
rm $intfiles
|
||||
";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
# Test intermediate file handling (part 2)
|
||||
|
||||
&utouch(-20, "inter.a");
|
||||
&utouch(-10, "$VP/inter.b");
|
||||
&touch("$VP/inter.d");
|
||||
|
||||
push(@touchedfiles, "$VP/inter.b", "$VP/inter.d");
|
||||
|
||||
&run_make_with_options($makefile,"intermediate",&get_logfile);
|
||||
|
||||
$answer = "cat ${VP}inter.d > inter.c
|
||||
cat inter.c > inter.b 2>/dev/null || exit 1
|
||||
cat inter.b > inter.a
|
||||
rm inter.c
|
||||
";
|
||||
&compare_output($answer,&get_logfile(1));
|
||||
|
||||
unlink @touchedfiles unless $keep;
|
||||
|
||||
1;
|
||||
|
||||
### Local Variables:
|
||||
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
||||
### End:
|
||||
Loading…
Add table
Add a link
Reference in a new issue