tests/scripts/features/export

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