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 all:
  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
  40 FOO= 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
  47 FOO=foo BAR= BAZ=baz BOZ=boz BITZ=bitz BOTZ=\n");
  48
  49 # TEST 2: global export.  Explicit unexport takes precedence.
  50
  51 run_make_test(undef, "EXPORT_ALL=1" ,
  52               "FOO=foo BAR=bar BAZ=baz BOZ=boz BITZ=bitz BOTZ=botz
  53 FOO=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
  59 FOO= 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
  65 FOO= 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
  71 FOO=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('
  76 foo = f-ok
  77 bar = b-ok
  78
  79 FOO = foo
  80 F = f
  81
  82 BAR = bar
  83 B = b
  84
  85 export $(FOO)
  86 export $(B)ar
  87
  88 all:
  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('
  97 foo = f-ok
  98 bar = b-ok
  99
 100 FOO = foo
 101 F = f
 102
 103 BAR = bar
 104 B = b
 105
 106 export foo bar
 107
 108 unexport $(FOO)
 109 unexport $(B)ar
 110
 111 all:
 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('
 120 A = a
 121 B = b
 122 C = c
 123 D = d
 124 E = e
 125 F = f
 126 G = g
 127 H = h
 128 I = i
 129 J = j
 130
 131 SOME = A B C
 132
 133 export F G H I J
 134
 135 export D E $(SOME)
 136
 137 all: ; @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('
 146 A = a
 147 B = b
 148 C = c
 149 D = d
 150 E = e
 151 F = f
 152 G = g
 153 H = h
 154 I = i
 155 J = j
 156
 157 SOME = A B C
 158
 159 unexport F G H I J
 160
 161 unexport D E $(SOME)
 162
 163 all: ; @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('
 170 export = 123
 171 export export
 172 export export = 456
 173 a: ; @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('
 180 a: export
 181 export: ; @echo "$@"
 182 ',
 183                '', "export\n");
 184
 185 # This tells the test driver that the perl test script executed properly.
 186 1;