| # -*-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; |