1#                                                                    -*-perl-*-
2$description = "Test the addsuffix function.";
3
4$details = "";
5
6
7open(MAKEFILE,"> $makefile");
8
9# The Contents of the MAKEFILE ...
10
11print MAKEFILE <<EOMAKE;
12string := \$(addsuffix .c,src${pathsep}a.b.z.foo hacks)
13one: ; \@echo \$(string)
14
15two: ; \@echo \$(addsuffix foo,)
16EOMAKE
17
18close(MAKEFILE);
19
20
21# TEST 0
22
23&run_make_with_options($makefile, "", &get_logfile);
24$answer = "src${pathsep}a.b.z.foo.c hacks.c\n";
25&compare_output($answer,&get_logfile(1));
26
27
28# TEST 1
29
30&run_make_with_options($makefile, "two", &get_logfile);
31$answer = "\n";
32&compare_output($answer,&get_logfile(1));
33
34
35# This tells the test driver that the perl test script executed properly.
361;
37