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