| # -*-perl-*- |
| $description = "The following test creates a makefile to verify |
| the ability of make to strip white space from lists of object.\n"; |
| |
| |
| $details = "The make file is built with a list of objects that contain white space |
| These are then run through the strip command to remove it. This is then |
| verified by echoing the result.\n"; |
| |
| open(MAKEFILE,"> $makefile"); |
| |
| # The Contents of the MAKEFILE ... |
| |
| print MAKEFILE <<'EOMAKE'; |
| TEST1 := "Is this TERMINAL fun? What makes you believe is this terminal fun? JAPAN is a WONDERFUL planet -- I wonder if we will ever reach their level of COMPARATIVE SHOPPING..." |
| E := |
| TEST2 := $E try this and this $E |
| |
| define TEST3 |
| |
| and these test out |
| |
| |
| some |
| blank lines |
| |
| |
| |
| endef |
| |
| .PHONY: all |
| all: |
| @echo '$(strip $(TEST1) )' |
| @echo '$(strip $(TEST2) )' |
| @echo '$(strip $(TEST3) )' |
| |
| space: ; @echo '$(strip ) $(strip )' |
| |
| EOMAKE |
| |
| # END of Contents of MAKEFILE |
| |
| close(MAKEFILE); |
| |
| &run_make_with_options($makefile,"",&get_logfile); |
| $answer = "\"Is this TERMINAL fun? What makes you believe is this terminal fun? JAPAN is a WONDERFUL planet -- I wonder if we will ever reach their level of COMPARATIVE SHOPPING...\" |
| try this and this |
| and these test out some blank lines |
| "; |
| &compare_output($answer,&get_logfile(1)); |
| |
| |
| &run_make_with_options($makefile,"space",&get_logfile); |
| $answer = " \n"; |
| &compare_output($answer,&get_logfile(1)); |
| |
| 1; |