1# -*-perl-*- 2$description = "Check GNU make export/unexport commands."; 3 4$details = ""; 5 6# The test driver cleans out our environment for us so we don't have to worry 7# about that here. 8 9&run_make_test(' 10FOO = foo 11BAR = bar 12BOZ = boz 13 14export BAZ = baz 15export BOZ 16 17BITZ = bitz 18BOTZ = botz 19 20export BITZ BOTZ 21unexport BOTZ 22 23ifdef EXPORT_ALL 24export 25endif 26 27ifdef UNEXPORT_ALL 28unexport 29endif 30 31ifdef EXPORT_ALL_PSEUDO 32.EXPORT_ALL_VARIABLES: 33endif 34 35all: 36 @echo "FOO=$(FOO) BAR=$(BAR) BAZ=$(BAZ) BOZ=$(BOZ) BITZ=$(BITZ) BOTZ=$(BOTZ)" 37 @echo "FOO=$$FOO BAR=$$BAR BAZ=$$BAZ BOZ=$$BOZ BITZ=$$BITZ BOTZ=$$BOTZ" 38', 39 '', "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 40FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 41 42# TEST 1: make sure vars inherited from the parent are exported 43 44$extraENV{FOO} = 1; 45 46&run_make_test(undef, '', "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 47FOO=foo BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 48 49# TEST 2: global export. Explicit unexport takes precedence. 50 51run_make_test(undef, "EXPORT_ALL=1" , 52 "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 53FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 54 55# TEST 3: global unexport. Explicit export takes precedence. 56 57&run_make_test(undef, "UNEXPORT_ALL=1", 58 "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 59FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 60 61# TEST 4: both: in the above makefile the unexport comes last so that rules. 62 63&run_make_test(undef, "EXPORT_ALL=1 UNEXPORT_ALL=1", 64 "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 65FOO= BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 66 67# TEST 5: test the pseudo target. 68 69&run_make_test(undef, "EXPORT_ALL_PSEUDO=1", 70 "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz 71FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n"); 72 73# TEST 6: Test the expansion of variables inside export 74 75&run_make_test(' 76foo = f-ok 77bar = b-ok 78 79FOO = foo 80F = f 81 82BAR = bar 83B = b 84 85export $(FOO) 86export $(B)ar 87 88all: 89 @echo foo=$(foo) bar=$(bar) 90 @echo foo=$$foo bar=$$bar 91', 92 "", "foo=f-ok bar=b-ok\nfoo=f-ok bar=b-ok\n"); 93 94# TEST 7: Test the expansion of variables inside unexport 95 96&run_make_test(' 97foo = f-ok 98bar = b-ok 99 100FOO = foo 101F = f 102 103BAR = bar 104B = b 105 106export foo bar 107 108unexport $(FOO) 109unexport $(B)ar 110 111all: 112 @echo foo=$(foo) bar=$(bar) 113 @echo foo=$$foo bar=$$bar 114', 115 '', "foo=f-ok bar=b-ok\nfoo= bar=\n"); 116 117# TEST 7: Test exporting multiple variables on the same line 118 119&run_make_test(' 120A = a 121B = b 122C = c 123D = d 124E = e 125F = f 126G = g 127H = h 128I = i 129J = j 130 131SOME = A B C 132 133export F G H I J 134 135export D E $(SOME) 136 137all: ; @echo A=$$A B=$$B C=$$C D=$$D E=$$E F=$$F G=$$G H=$$H I=$$I J=$$J 138', 139 '', "A=a B=b C=c D=d E=e F=f G=g H=h I=i J=j\n"); 140 141# TEST 8: Test unexporting multiple variables on the same line 142 143@extraENV{qw(A B C D E F G H I J)} = qw(1 2 3 4 5 6 7 8 9 10); 144 145&run_make_test(' 146A = a 147B = b 148C = c 149D = d 150E = e 151F = f 152G = g 153H = h 154I = i 155J = j 156 157SOME = A B C 158 159unexport F G H I J 160 161unexport D E $(SOME) 162 163all: ; @echo A=$$A B=$$B C=$$C D=$$D E=$$E F=$$F G=$$G H=$$H I=$$I J=$$J 164', 165 '', "A= B= C= D= E= F= G= H= I= J=\n"); 166 167# TEST 9: Check setting a variable named "export" 168 169&run_make_test(' 170export = 123 171export export 172export export = 456 173a: ; @echo "\$$(export)=$(export) / \$$export=$$export" 174', 175 '', "\$(export)=456 / \$export=456\n"); 176 177# TEST 9: Check "export" as a target 178 179&run_make_test(' 180a: export 181export: ; @echo "$@" 182', 183 '', "export\n"); 184 185# This tells the test driver that the perl test script executed properly. 1861; 187