mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-02-05 06:04:34 +00:00
29f453739f
The POSIX standard only requires false(1) to return a "non-zero" exit code; almost all systems return 1 but some (Solaris!!!) return 255 or possibly even other values. Use our helper "fail" instead. * tests/thelp.pl: Have the "fail" command obey -q. * tests/scripts/features/parallelism: Helper -q no longer prints fail. * tests/scripts/targets/POSIX: Replace false with #HELPER# -q fail 1. * tests/scripts/variables/MAKEFLAGS: Ditto. * tests/scripts/variables/SHELL: Ditto.
49 lines
1.4 KiB
Perl
49 lines
1.4 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "Test the behaviour of the .POSIX target.";
|
|
|
|
$details = "";
|
|
|
|
|
|
# Ensure turning on .POSIX enables the -e flag for the shell
|
|
|
|
run_make_test(qq!
|
|
.POSIX:
|
|
all: ; \@#HELPER# -q fail 1; true
|
|
!,
|
|
'', "#MAKE#: *** [#MAKEFILE#:3: all] Error 1\n", 512);
|
|
|
|
# User settings must override .POSIX
|
|
# In the standard .POSIX must be the first thing in the makefile
|
|
# but we relax that rule in GNU make.
|
|
run_make_test(qq!
|
|
.SHELLFLAGS = -xc
|
|
.POSIX:
|
|
all: ; \@#HELPER# -q fail 1; true
|
|
!,
|
|
'', "+ #HELPER# -q fail 1\n+ true\n");
|
|
|
|
# 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;
|