56 |
|
|
57 |
# TEST 1: make sure vars inherited from the parent are exported |
# TEST 1: make sure vars inherited from the parent are exported |
58 |
|
|
59 |
$ENV{FOO} = 1; |
$extraENV{FOO} = 1; |
60 |
|
|
61 |
&run_make_with_options($makefile,"",&get_logfile,0); |
&run_make_with_options($makefile,"",&get_logfile,0); |
62 |
|
|
65 |
|
|
66 |
&compare_output($answer,&get_logfile(1)); |
&compare_output($answer,&get_logfile(1)); |
67 |
|
|
|
delete $ENV{FOO}; |
|
|
|
|
68 |
# TEST 2: global export. Explicit unexport takes precedence. |
# TEST 2: global export. Explicit unexport takes precedence. |
69 |
|
|
70 |
&run_make_with_options($makefile,"EXPORT_ALL=1",&get_logfile,0); |
&run_make_with_options($makefile,"EXPORT_ALL=1",&get_logfile,0); |
235 |
|
|
236 |
close(MAKEFILE); |
close(MAKEFILE); |
237 |
|
|
238 |
@ENV{qw(A B C D E F G H I J)} = qw(1 2 3 4 5 6 7 8 9 10); |
@extraENV{qw(A B C D E F G H I J)} = qw(1 2 3 4 5 6 7 8 9 10); |
239 |
|
|
240 |
&run_make_with_options($makefile5,"",&get_logfile,0); |
&run_make_with_options($makefile5,"",&get_logfile,0); |
241 |
$answer = "A= B= C= D= E= F= G= H= I= J=\n"; |
$answer = "A= B= C= D= E= F= G= H= I= J=\n"; |
242 |
&compare_output($answer,&get_logfile(1)); |
&compare_output($answer,&get_logfile(1)); |
243 |
|
|
|
delete @ENV{qw(A B C D E F G H I J)}; |
|
|
|
|
244 |
|
|
245 |
# This tells the test driver that the perl test script executed properly. |
# This tells the test driver that the perl test script executed properly. |
246 |
1; |
1; |