Line | |
---|
1 | # -*-perl-*-
|
---|
2 |
|
---|
3 | $description = "Test the behaviour of the .ONESHELL target.";
|
---|
4 |
|
---|
5 | $details = "";
|
---|
6 |
|
---|
7 | # Some shells (*shakes fist at Solaris*) cannot handle multiple flags in
|
---|
8 | # separate arguments.
|
---|
9 | my $t = `/bin/sh -e -c true 2>/dev/null`;
|
---|
10 | my $multi_ok = $? == 0;
|
---|
11 |
|
---|
12 | # Simple
|
---|
13 |
|
---|
14 | run_make_test(q!
|
---|
15 | .ONESHELL:
|
---|
16 | all:
|
---|
17 | a=$$$$
|
---|
18 | [ 0"$$a" -eq "$$$$" ] || echo fail
|
---|
19 | !,
|
---|
20 | '', 'a=$$
|
---|
21 | [ 0"$a" -eq "$$" ] || echo fail
|
---|
22 | ');
|
---|
23 |
|
---|
24 | # Simple but use multi-word SHELLFLAGS
|
---|
25 |
|
---|
26 | if ($multi_ok) {
|
---|
27 | run_make_test(q!
|
---|
28 | .ONESHELL:
|
---|
29 | .SHELLFLAGS = -e -c
|
---|
30 | all:
|
---|
31 | a=$$$$
|
---|
32 | [ 0"$$a" -eq "$$$$" ] || echo fail
|
---|
33 | !,
|
---|
34 | '', 'a=$$
|
---|
35 | [ 0"$a" -eq "$$" ] || echo fail
|
---|
36 | ');
|
---|
37 | }
|
---|
38 |
|
---|
39 | # Again, but this time with inner prefix chars
|
---|
40 |
|
---|
41 | run_make_test(q!
|
---|
42 | .ONESHELL:
|
---|
43 | all:
|
---|
44 | a=$$$$
|
---|
45 | @-+ [ 0"$$a" -eq "$$$$" ] || echo fail
|
---|
46 | !,
|
---|
47 | '', 'a=$$
|
---|
48 | [ 0"$a" -eq "$$" ] || echo fail
|
---|
49 | ');
|
---|
50 |
|
---|
51 | # This time with outer prefix chars
|
---|
52 |
|
---|
53 | run_make_test(q!
|
---|
54 | .ONESHELL:
|
---|
55 | all:
|
---|
56 | @a=$$$$
|
---|
57 | [ 0"$$a" -eq "$$$$" ] || echo fail
|
---|
58 | !,
|
---|
59 | '', '');
|
---|
60 |
|
---|
61 |
|
---|
62 | # This time with outer and inner prefix chars
|
---|
63 |
|
---|
64 | run_make_test(q!
|
---|
65 | .ONESHELL:
|
---|
66 | all:
|
---|
67 | @a=$$$$
|
---|
68 | -@ +[ 0"$$a" -eq "$$$$" ] || echo fail
|
---|
69 | !,
|
---|
70 | '', '');
|
---|
71 |
|
---|
72 |
|
---|
73 | # Now try using a different interpreter
|
---|
74 |
|
---|
75 | run_make_test(q!
|
---|
76 | .RECIPEPREFIX = >
|
---|
77 | .ONESHELL:
|
---|
78 | SHELL = #PERL#
|
---|
79 | .SHELLFLAGS = -e
|
---|
80 | all:
|
---|
81 | > @$$a=5
|
---|
82 | > +7;
|
---|
83 | > @y=qw(a b c);
|
---|
84 | >print "a = $$a, y = (@y)\n";
|
---|
85 | !,
|
---|
86 | '', "a = 12, y = (a b c)\n");
|
---|
87 |
|
---|
88 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.