| # -*-perl-*- | |
| $description = "Test the addsuffix function."; | |
| $details = ""; | |
| open(MAKEFILE,"> $makefile"); | |
| # The Contents of the MAKEFILE ... | |
| print MAKEFILE <<EOMAKE; | |
| string := \$(addsuffix .c,src${pathsep}a.b.z.foo hacks) | |
| one: ; \@echo \$(string) | |
| two: ; \@echo \$(addsuffix foo,) | |
| EOMAKE | |
| close(MAKEFILE); | |
| # TEST 0 | |
| &run_make_with_options($makefile, "", &get_logfile); | |
| $answer = "src${pathsep}a.b.z.foo.c hacks.c\n"; | |
| &compare_output($answer,&get_logfile(1)); | |
| # TEST 1 | |
| &run_make_with_options($makefile, "two", &get_logfile); | |
| $answer = "\n"; | |
| &compare_output($answer,&get_logfile(1)); | |
| # This tells the test driver that the perl test script executed properly. | |
| 1; |