| # -*-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 = `/bin/sh $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 = `/bin/sh $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 => '-O', | |
| FC => 'fort77', FFLAGS => '-O 1', | |
| GET => 'get', GFLAGS => '', | |
| 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 | |
| %extraENV = 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; |