1 | # -*-perl-*-
|
---|
2 | $description = "Test the addsuffix function.";
|
---|
3 |
|
---|
4 | $details = "";
|
---|
5 |
|
---|
6 |
|
---|
7 | open(MAKEFILE,"> $makefile");
|
---|
8 |
|
---|
9 | # The Contents of the MAKEFILE ...
|
---|
10 |
|
---|
11 | print MAKEFILE <<EOMAKE;
|
---|
12 | string := \$(addsuffix .c,src${pathsep}a.b.z.foo hacks)
|
---|
13 | one: ; \@echo \$(string)
|
---|
14 |
|
---|
15 | two: ; \@echo \$(addsuffix foo,)
|
---|
16 | EOMAKE
|
---|
17 |
|
---|
18 | close(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.
|
---|
36 | 1;
|
---|