1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
# -*-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;
|
