mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-28 15:57:48 +00:00
190 lines
3.8 KiB
Perl
190 lines
3.8 KiB
Perl
#! -*-perl-*-
|
|
|
|
$description = "Test the behaviour of the .SECONDARY target.";
|
|
|
|
$details = "\
|
|
Test the behavior of the .SECONDARY special target.
|
|
Create a makefile where a file would not normally be considered
|
|
intermediate, then specify it as .SECONDARY. Build and note that it's
|
|
not automatically deleted. Delete the file. Rebuild to ensure that
|
|
it's not created if it doesn't exist but doesn't need to be built.
|
|
Change the original and ensure that the secondary file and the ultimate
|
|
target are both rebuilt, and that the secondary file is not deleted.
|
|
|
|
Try this with implicit rules and explicit rules: both should work.\n";
|
|
|
|
open(MAKEFILE,"> $makefile");
|
|
|
|
print MAKEFILE <<'EOF';
|
|
|
|
.SECONDARY: foo.e
|
|
|
|
# Implicit rule test
|
|
%.d : %.e ; cp $< $@
|
|
%.e : %.f ; cp $< $@
|
|
|
|
foo.d: foo.e
|
|
|
|
# Explicit rule test
|
|
foo.c: foo.e ; cp $< $@
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
# TEST #1
|
|
|
|
&utouch(-20, 'foo.f');
|
|
|
|
&run_make_with_options($makefile,'foo.d',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp foo.e foo.d\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #2
|
|
|
|
unlink('foo.e');
|
|
|
|
&run_make_with_options($makefile,'foo.d',&get_logfile);
|
|
$answer = "$make_name: 'foo.d' is up to date.\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #3
|
|
|
|
&utouch(-10, 'foo.d');
|
|
&touch('foo.f');
|
|
|
|
&run_make_with_options($makefile,'foo.d',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp foo.e foo.d\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #4
|
|
|
|
&run_make_with_options($makefile,'foo.c',&get_logfile);
|
|
$answer = "cp foo.e foo.c\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #5
|
|
|
|
unlink('foo.e');
|
|
|
|
&run_make_with_options($makefile,'foo.c',&get_logfile);
|
|
$answer = "$make_name: 'foo.c' is up to date.\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #6
|
|
|
|
&utouch(-10, 'foo.c');
|
|
&touch('foo.f');
|
|
|
|
&run_make_with_options($makefile,'foo.c',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp foo.e foo.c\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
unlink('foo.f', 'foo.e', 'foo.d', 'foo.c');
|
|
|
|
# TEST #7 -- test the "global" .SECONDARY, with no targets.
|
|
|
|
$makefile2 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile2");
|
|
|
|
print MAKEFILE <<'EOF';
|
|
.SECONDARY:
|
|
|
|
final: intermediate
|
|
intermediate: source
|
|
|
|
final intermediate source:
|
|
echo $< > $@
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
&utouch(-10, 'source');
|
|
touch('final');
|
|
|
|
&run_make_with_options($makefile2, '', &get_logfile);
|
|
$answer = "$make_name: 'final' is up to date.\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
unlink('source', 'final', 'intermediate');
|
|
|
|
|
|
# TEST #8 -- test the "global" .SECONDARY, with .PHONY.
|
|
|
|
touch('version2');
|
|
run_make_test('
|
|
.PHONY: version
|
|
.SECONDARY:
|
|
version2: version ; @echo GOOD
|
|
all: version2',
|
|
'all', 'GOOD');
|
|
|
|
unlink('version2');
|
|
|
|
# TEST #9 -- Savannah bug #15919
|
|
# The original fix for this bug caused a new bug, shown here.
|
|
|
|
touch(qw(1.a 2.a));
|
|
|
|
run_make_test('
|
|
%.c : %.b ; cp $< $@
|
|
%.b : %.a ; cp $< $@
|
|
all : 1.c 2.c
|
|
2.a: 1.c', '-rR -j',
|
|
'cp 1.a 1.b
|
|
cp 1.b 1.c
|
|
cp 2.a 2.b
|
|
cp 2.b 2.c
|
|
rm 1.b 2.b');
|
|
|
|
unlink(qw(1.a 2.a 1.c 2.c));
|
|
|
|
# TEST #10 -- Savannah bug #15919
|
|
touch('test.0');
|
|
run_make_test('
|
|
.SECONDARY : test.1 test.2 test.3
|
|
|
|
test : test.4
|
|
|
|
%.4 : %.int %.3 ; touch $@
|
|
|
|
%.int : %.3 %.2 ; touch $@
|
|
|
|
%.3 : | %.2 ; touch $@
|
|
|
|
%.2 : %.1 ; touch $@
|
|
|
|
%.1 : %.0 ; touch $@', '-rR -j 2',
|
|
'touch test.1
|
|
touch test.2
|
|
touch test.3
|
|
touch test.int
|
|
touch test.4
|
|
rm test.int');
|
|
|
|
# After a touch of test.0 it should give the same output, except we don't need
|
|
# to rebuild test.3 (order-only)
|
|
sleep(1);
|
|
touch('test.0');
|
|
run_make_test(undef, '-rR -j 2',
|
|
'touch test.1
|
|
touch test.2
|
|
touch test.int
|
|
touch test.4
|
|
rm test.int');
|
|
|
|
# With both test.0 and test.3 updated it should still build everything except
|
|
# test.3
|
|
sleep(1);
|
|
touch('test.0', 'test.3');
|
|
run_make_test(undef, '-rR -j 2',
|
|
'touch test.1
|
|
touch test.2
|
|
touch test.int
|
|
touch test.4
|
|
rm test.int');
|
|
|
|
unlink(qw(test.0 test.1 test.2 test.3 test.4));
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|