mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-10-24 05:09:58 +00:00
45bf0e3a67
* tests/test_driver.pl: Save error strings for later comparison. * tests/run_make_tests.pl: Create portable commands for later use. * tests/*: Use these new variables.
32 lines
911 B
Perl
32 lines
911 B
Perl
# -*-perl-*-
|
|
|
|
$description = "The following test creates a makefile to delete a \n"
|
|
."file in the directory. It tests to see if make will \n"
|
|
."NOT execute the command unless the rule is given in \n"
|
|
."the make command line.";
|
|
|
|
$example = "EXAMPLE_FILE";
|
|
|
|
open(MAKEFILE,"> $makefile");
|
|
print MAKEFILE qq!
|
|
all: ; \@echo This makefile did not clean the dir... good
|
|
clean: ; $CMD_rmfile $example
|
|
!;
|
|
close(MAKEFILE);
|
|
|
|
touch($example);
|
|
run_make_with_options($makefile,"",&get_logfile,0);
|
|
|
|
$answer = "This makefile did not clean the dir... good\n";
|
|
compare_output($answer,&get_logfile(1)) || error("abort");
|
|
|
|
|
|
$answer = "$CMD_rmfile $example\n";
|
|
run_make_with_options($makefile,"clean",&get_logfile,0);
|
|
if (-f $example) {
|
|
$test_passed = 0;
|
|
}
|
|
compare_output($answer,&get_logfile(1)) || error("abort");
|
|
|
|
1;
|