mirror of
https://github.com/mirror/make.git
synced 2025-01-10 20:30:20 +08:00
f79bde1a6d
Rather than having an %extraENV that is added to the default %ENV and resetting %ENV _before_ each test, allow the test setup to modify %ENV directly as needed then reset %ENV _after_ each test. * tests/test_driver.pl: Remove unused %extraENV. (resetENV): Don't add in %extraENV. (_run_command): Reset after we run the command rather than before. * tests/scripts/features/export: Convert %extraENV to %ENV * tests/scripts/features/jobserver: Ditto * tests/scripts/features/parallelism: Ditto * tests/scripts/features/targetvars: Ditto * tests/scripts/functions/eval: Ditto * tests/scripts/functions/foreach: Ditto * tests/scripts/functions/origin: Ditto * tests/scripts/misc/general4: Ditto * tests/scripts/options/dash-e: Ditto * tests/scripts/targets/POSIX: Ditto * tests/scripts/variables/GNUMAKEFLAGS: Ditto * tests/scripts/variables/SHELL: Ditto
56 lines
1.5 KiB
Perl
56 lines
1.5 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "Test the behaviour of the .POSIX target.";
|
|
|
|
$details = "";
|
|
|
|
|
|
# Ensure turning on .POSIX enables the -e flag for the shell
|
|
# We can't assume the exit value of "false" because on different systems it's
|
|
# different.
|
|
|
|
my $script = 'false; true';
|
|
my $flags = '-ec';
|
|
my $out = `$sh_name $flags '$script' 2>&1`;
|
|
my $err = $? >> 8;
|
|
run_make_test(qq!
|
|
.POSIX:
|
|
all: ; \@$script
|
|
!,
|
|
'', "#MAKE#: *** [#MAKEFILE#:3: all] Error $err\n", 512);
|
|
|
|
# User settings must override .POSIX
|
|
$flags = '-xc';
|
|
$out = `$sh_name $flags '$script' 2>&1`;
|
|
run_make_test(qq!
|
|
.SHELLFLAGS = $flags
|
|
.POSIX:
|
|
all: ; \@$script
|
|
!,
|
|
'', $out);
|
|
|
|
# Test the default value of various POSIX-specific variables
|
|
my %POSIX = (AR => 'ar', ARFLAGS => '-rv',
|
|
YACC => 'yacc', YFLAGS => '',
|
|
LEX => 'lex', LFLAGS => '',
|
|
LDFLAGS => '',
|
|
CC => 'c99', CFLAGS => '-O1',
|
|
FC => 'fort77', FFLAGS => '-O1',
|
|
SCCSFLAGS => '', SCCSGETFLAGS => '-s');
|
|
my $make = join('', map { "\t\@echo '$_=\$($_)'\n" } sort keys %POSIX);
|
|
my $r = join('', map { "$_=$POSIX{$_}\n"} sort keys %POSIX);
|
|
run_make_test(qq!
|
|
.POSIX:
|
|
all:
|
|
$make
|
|
!,
|
|
'', $r);
|
|
|
|
# Make sure that local settings take precedence
|
|
%ENV = (%ENV, map { $_ => "xx-$_" } keys %POSIX);
|
|
$r = join('', map { "$_=xx-$_\n"} sort keys %POSIX);
|
|
run_make_test(undef, '', $r);
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|