| # -*-perl-*- |
| |
| $description = "Test variable expansion."; |
| |
| # sv 64124. |
| # Expand a variable whose value exceeds 200 bytes. |
| # 200 is the initial size of variable_buffer. |
| # Value bigger than 200 bytes causes a realloc of variable_buffer. |
| # In this test the variable being expanded is MAKEFLAGS and its value occupies |
| # 12, 600 and 120000 bytes. |
| |
| my $s = "hello_world\n"; |
| my @mult = (1, 50, 10000); |
| |
| for my $m (@mult) { |
| my $answer = $s x $m; |
| $ENV{'MAKEFLAGS'} = " -- hello=$answer"; |
| run_make_test(q! |
| $(info x$(hello)y) |
| all: |
| !, |
| '', "x${answer}y\n#MAKE#: Nothing to be done for 'all'.\n"); |
| } |
| |
| # This tells the test driver that the perl test script executed properly. |
| 1; |
