mirror of
https://github.com/mirror/make.git
synced 2025-01-05 01:40:30 +08:00
21cf8c6444
GNU make. Also he provides some other performance fixups after doing some profiling of make on large makefiles. Modify the test suite to allow the use of Valgrind to find memory problems.
111 lines
2.8 KiB
Perl
111 lines
2.8 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "Test the behaviour of the .INTERMEDIATE target.";
|
|
|
|
$details = "\
|
|
Test the behavior of the .INTERMEDIATE special target.
|
|
Create a makefile where a file would not normally be considered
|
|
intermediate, then specify it as .INTERMEDIATE. Build and ensure it's
|
|
deleted properly. 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 intermediate file and the ultimate target are both rebuilt, and
|
|
that the intermediate file is again deleted.
|
|
|
|
Try this with implicit rules and explicit rules: both should work.\n";
|
|
|
|
open(MAKEFILE,"> $makefile");
|
|
|
|
print MAKEFILE <<'EOF';
|
|
|
|
.INTERMEDIATE: foo.e bar.e
|
|
|
|
# Implicit rule test
|
|
%.d : %.e ; cp $< $@
|
|
%.e : %.f ; cp $< $@
|
|
|
|
foo.d: foo.e
|
|
|
|
# Explicit rule test
|
|
foo.c: foo.e bar.e; cat $^ > $@
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
# TEST #0
|
|
|
|
&touch('foo.f');
|
|
&touch('bar.f');
|
|
sleep($wtime);
|
|
|
|
&run_make_with_options($makefile,'foo.d',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp foo.e foo.d\nrm foo.e\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #1
|
|
|
|
&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 #2
|
|
|
|
sleep($wtime);
|
|
&touch('foo.f');
|
|
|
|
&run_make_with_options($makefile,'foo.d',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp foo.e foo.d\nrm foo.e\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #3
|
|
|
|
&run_make_with_options($makefile,'foo.c',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp bar.f bar.e\ncat foo.e bar.e > foo.c\nrm bar.e foo.e\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #4
|
|
|
|
&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 #5
|
|
|
|
sleep($wtime);
|
|
&touch('foo.f');
|
|
|
|
&run_make_with_options($makefile,'foo.c',&get_logfile);
|
|
$answer = "cp foo.f foo.e\ncp bar.f bar.e\ncat foo.e bar.e > foo.c\nrm bar.e foo.e\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #6 -- added for PR/1669: don't remove files mentioned on the cmd line.
|
|
|
|
&run_make_with_options($makefile,'foo.e',&get_logfile);
|
|
$answer = "cp foo.f foo.e\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
unlink('foo.f', 'foo.e', 'foo.d', 'foo.c', 'bar.f', 'bar.e', 'bar.d', 'bar.c');
|
|
|
|
# TEST #7 -- added for PR/1423
|
|
|
|
$makefile2 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile2");
|
|
|
|
print MAKEFILE <<'EOF';
|
|
all: foo
|
|
foo.a: ; touch $@
|
|
%: %.a ; touch $@
|
|
.INTERMEDIATE: foo.a
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options($makefile2, '-R', &get_logfile);
|
|
$answer = "touch foo.a\ntouch foo\nrm foo.a\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
unlink('foo');
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|