| 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.