1 | # -*-perl-*-
|
---|
2 | $description = "The following test creates a makefile to verify
|
---|
3 | the ability of make to strip white space from lists of object.\n";
|
---|
4 |
|
---|
5 |
|
---|
6 | $details = "The make file is built with a list of objects that contain white space
|
---|
7 | These are then run through the strip command to remove it. This is then
|
---|
8 | verified by echoing the result.\n";
|
---|
9 |
|
---|
10 | open(MAKEFILE,"> $makefile");
|
---|
11 |
|
---|
12 | # The Contents of the MAKEFILE ...
|
---|
13 |
|
---|
14 | print MAKEFILE <<'EOMAKE';
|
---|
15 | 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..."
|
---|
16 | E :=
|
---|
17 | TEST2 := $E try this and this $E
|
---|
18 |
|
---|
19 | define TEST3
|
---|
20 |
|
---|
21 | and these test out
|
---|
22 |
|
---|
23 |
|
---|
24 | some
|
---|
25 | blank lines
|
---|
26 |
|
---|
27 |
|
---|
28 |
|
---|
29 | endef
|
---|
30 |
|
---|
31 | .PHONY: all
|
---|
32 | all:
|
---|
33 | @echo '$(strip $(TEST1) )'
|
---|
34 | @echo '$(strip $(TEST2) )'
|
---|
35 | @echo '$(strip $(TEST3) )'
|
---|
36 |
|
---|
37 | space: ; @echo '$(strip ) $(strip )'
|
---|
38 |
|
---|
39 | EOMAKE
|
---|
40 |
|
---|
41 | # END of Contents of MAKEFILE
|
---|
42 |
|
---|
43 | close(MAKEFILE);
|
---|
44 |
|
---|
45 | &run_make_with_options($makefile,"",&get_logfile);
|
---|
46 | $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...\"
|
---|
47 | try this and this
|
---|
48 | and these test out some blank lines
|
---|
49 | ";
|
---|
50 | &compare_output($answer,&get_logfile(1));
|
---|
51 |
|
---|
52 |
|
---|
53 | &run_make_with_options($makefile,"space",&get_logfile);
|
---|
54 | $answer = " \n";
|
---|
55 | &compare_output($answer,&get_logfile(1));
|
---|
56 |
|
---|
57 | 1;
|
---|