mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-01-06 05:04:42 +00:00
1fa3db1468
Apply patch #1022: fix a memory corruption on very long target-specific variable definition lines.
270 lines
6.3 KiB
Perl
270 lines
6.3 KiB
Perl
# -*-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.";
|
|
|
|
open(MAKEFILE,"> $makefile");
|
|
|
|
print MAKEFILE <<'EOF';
|
|
SHELL = /bin/sh
|
|
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't 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\=two
|
|
ten: one \= 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)
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
# TEST #1
|
|
|
|
&run_make_with_options($makefile, "one two three", &get_logfile);
|
|
$answer = "one bar\nfoo two\nBAR=1000\nfoo bar\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #2
|
|
|
|
&run_make_with_options($makefile, "one two FOO=1 BAR=2", &get_logfile);
|
|
$answer = "one 2\n1 2\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #3
|
|
|
|
&run_make_with_options($makefile, "four", &get_logfile);
|
|
$answer = "x ok ok\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #4
|
|
|
|
&run_make_with_options($makefile, "seven", &get_logfile);
|
|
$answer = "eight: seven eight\nseven: seven seven\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #5
|
|
|
|
&run_make_with_options($makefile, "nine", &get_logfile);
|
|
$answer = "wallace bar wallace bar\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #5-a
|
|
|
|
&run_make_with_options($makefile, "nine-a", &get_logfile);
|
|
$answer = "baz\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #6
|
|
|
|
&run_make_with_options($makefile, "ten", &get_logfile);
|
|
$answer = "one=two\none bar\n=\nfoo two\nten\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #6
|
|
|
|
&run_make_with_options($makefile, "foo.q bar.q", &get_logfile);
|
|
$answer = "qvar = rvar\nqvar =\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST #7
|
|
|
|
&run_make_with_options($makefile, "foo.t bar.s", &get_logfile);
|
|
$answer = "qvar = qvar\nqvar =\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
|
|
# TEST #8
|
|
# For PR/1378: Target-specific vars don't inherit correctly
|
|
|
|
$makefile2 = &get_tmpfile;
|
|
|
|
open(MAKEFILE,"> $makefile2");
|
|
print MAKEFILE <<'EOF';
|
|
foo: FOO = foo
|
|
bar: BAR = bar
|
|
foo: bar
|
|
bar: baz
|
|
baz: ; @echo $(FOO) $(BAR)
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile2", "", &get_logfile);
|
|
$answer = "foo bar\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #9
|
|
# For PR/1380: Using += assignment in target-specific variables sometimes fails
|
|
# Also PR/1831
|
|
|
|
$makefile3 = &get_tmpfile;
|
|
|
|
open(MAKEFILE,"> $makefile3");
|
|
print MAKEFILE <<'EOF';
|
|
.PHONY: all one
|
|
all: FOO += baz
|
|
all: one; @echo $(FOO)
|
|
|
|
FOO = bar
|
|
|
|
one: FOO += biz
|
|
one: FOO += boz
|
|
one: ; @echo $(FOO)
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile3", "", &get_logfile);
|
|
$answer = "bar baz biz boz\nbar baz\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #10
|
|
|
|
&run_make_with_options("$makefile3", "one", &get_logfile);
|
|
$answer = "bar biz boz\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #11
|
|
# PR/1709: Test semicolons in target-specific variable values
|
|
|
|
$makefile4 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile4");
|
|
print MAKEFILE <<'EOF';
|
|
foo : FOO = ; ok
|
|
foo : ; @echo '$(FOO)'
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile4", "", &get_logfile);
|
|
$answer = "; ok\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #12
|
|
# PR/2020: More hassles with += target-specific vars. I _really_ think
|
|
# I nailed it this time :-/.
|
|
|
|
$makefile5 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile5");
|
|
print MAKEFILE <<'EOF';
|
|
.PHONY: a
|
|
|
|
BLAH := foo
|
|
COMMAND = echo $(BLAH)
|
|
|
|
a: ; @$(COMMAND)
|
|
|
|
a: BLAH := bar
|
|
a: COMMAND += snafu $(BLAH)
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile5", "", &get_logfile);
|
|
$answer = "bar snafu bar\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #13
|
|
# Test double-colon rules with target-specific variable values
|
|
|
|
$makefile6 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile6");
|
|
print MAKEFILE <<'EOF';
|
|
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
|
|
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile6", "foo", &get_logfile);
|
|
$answer = "ok ok foo nopat\nok ok foo nopat\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #14
|
|
# Test double-colon rules with target-specific variable values and
|
|
# inheritance
|
|
|
|
&run_make_with_options("$makefile6", "bar", &get_logfile);
|
|
$answer = "ok ok bar nopat\nok ok bar nopat\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# Test #15
|
|
# Test double-colon rules with pattern-specific variable values
|
|
|
|
&run_make_with_options("$makefile6", "foo PATTERN=yes", &get_logfile);
|
|
$answer = "ok ok foo pat\nok ok foo pat\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
|
|
# Test #16
|
|
# Test target-specific variables with very long command line
|
|
# (> make default buffer length)
|
|
|
|
$makefile7 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile7");
|
|
print MAKEFILE <<'EOF';
|
|
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)
|
|
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options("$makefile7", '', &get_logfile);
|
|
$answer = "no build information\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
1;
|