| # -*-perl-*- |
| |
| $description = "The following tests the use of a PHONY target. It makes\n" |
| ."sure that the rules under a target get executed even if\n" |
| ."a filename of the same name of the target exists in the\n" |
| ."directory.\n"; |
| |
| $details = "This makefile in this test declares the target clean to be a \n" |
| ."PHONY target. We then create a file named \"clean\" in the \n" |
| ."directory. Although this file exists, the rule under the target\n" |
| ."clean should still execute because of it's phony status."; |
| |
| $example = "EXAMPLE_FILE"; |
| |
| touch($example); |
| |
| # Create a file named "clean". This is the same name as the target clean |
| # and tricks the target into thinking that it is up to date. (Unless you |
| # use the .PHONY target. |
| touch('clean'); |
| |
| open(MAKEFILE, "> $makefile"); |
| print MAKEFILE qq! |
| .PHONY : clean |
| all: ; \@echo This makefile did not clean the dir ... good |
| clean: ; $CMD_rmfile $example clean |
| !; |
| close(MAKEFILE); |
| |
| $answer = "$CMD_rmfile $example clean\n"; |
| &run_make_with_options($makefile,"clean",&get_logfile); |
| |
| if (-f $example) { |
| $test_passed = 0; |
| } |
| |
| &compare_output($answer,&get_logfile(1)); |
| |
| # Just in case |
| unlink($example, 'clean'); |
| |
| 1; |