make/tests/scripts/features/expand

#                                                                    -*-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;