mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-10-23 20:59:55 +00:00
fda00f88d3
* main.c (main): Sanitize program name detection on Windows. * makeint.h: 'program' is a const string on all platforms now. * tests/run_make_tests.bat: Windows bat file to invoke tests * tests/test_driver.pl: Obtain system-specific error messages. (get_osname): Compute the $port_type here. Add more $osname checks for different Windows Perl ports. (_run_command): Rewrite the timeout capability to work properly with Windows. Don't use Perl fork/exec; instead use system(1,...) which allows a more reliable/proper kill operation. Also, allow options to be given as a list instead of a string, to allow more complex quoting of command-line arguments. * tests/run_make_tests.pl (run_make_with_options): Allow options to be provided as a list in addition to a simple string. (set_more_defaults): Write sample makefiles and run make on them instead of trying to run echo and invoking make with -f-, to avoid relying on shell and echo to get basic configuration values. Also create a $sh_name variable instead of hard-coding /bin/sh. * tests/scripts/features/archives: Skip on Windows. * tests/scripts/features/escape: Use list method for passing options. * tests/scripts/features/include: Use system-specific error messages. * tests/scripts/features/output-sync: "Command not found" errors generate very different / odd output on Windows. This needs to be addressed but for now disable these tests on Windows. * tests/scripts/functions/abspath: Disable on Windows. * tests/scripts/functions/file: Use system-specific error messages. * tests/scripts/functions/shell: "Command not found" errors generate very different / odd output on Windows. This needs to be addressed but for now disable these tests on Windows. * tests/scripts/misc/close_stdout: Disable on Windows. * tests/scripts/options/dash-k: Use system-specific error messages. * tests/scripts/options/dash-l: Disable on Windows. * tests/scripts/options/eval: Use list method for passing options. * tests/scripts/options/general: Skip some non-portable tests. * tests/scripts/targets/ONESHELL: Skip some non-portable tests. * tests/scripts/targets/POSIX: Skip some non-portable tests. * tests/scripts/variables/MAKEFILES: Skip some non-portable tests. * tests/scripts/variables/SHELL: Use a makefile not -f- for testing.
95 lines
1.6 KiB
Perl
95 lines
1.6 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "Test the behaviour of the .ONESHELL target.";
|
|
|
|
$details = "";
|
|
|
|
my $multi_ok = 0;
|
|
|
|
if ($port_type ne 'W32') {
|
|
# Some shells (*shakes fist at Solaris*) cannot handle multiple flags in
|
|
# separate arguments.
|
|
my $t = `$sh_name -e -c true 2>/dev/null`;
|
|
my $multi_ok = $? == 0;
|
|
}
|
|
|
|
# Simple
|
|
|
|
run_make_test(q!
|
|
.ONESHELL:
|
|
all:
|
|
a=$$$$
|
|
[ 0"$$a" -eq "$$$$" ] || echo fail
|
|
!,
|
|
'', 'a=$$
|
|
[ 0"$a" -eq "$$" ] || echo fail
|
|
');
|
|
|
|
# Simple but use multi-word SHELLFLAGS
|
|
|
|
if ($multi_ok) {
|
|
run_make_test(q!
|
|
.ONESHELL:
|
|
.SHELLFLAGS = -e -c
|
|
all:
|
|
a=$$$$
|
|
[ 0"$$a" -eq "$$$$" ] || echo fail
|
|
!,
|
|
'', 'a=$$
|
|
[ 0"$a" -eq "$$" ] || echo fail
|
|
');
|
|
}
|
|
|
|
# Again, but this time with inner prefix chars
|
|
|
|
run_make_test(q!
|
|
.ONESHELL:
|
|
all:
|
|
a=$$$$
|
|
@-+ [ 0"$$a" -eq "$$$$" ] || echo fail
|
|
!,
|
|
'', 'a=$$
|
|
[ 0"$a" -eq "$$" ] || echo fail
|
|
');
|
|
|
|
# This time with outer prefix chars
|
|
|
|
run_make_test(q!
|
|
.ONESHELL:
|
|
all:
|
|
@a=$$$$
|
|
[ 0"$$a" -eq "$$$$" ] || echo fail
|
|
!,
|
|
'', '');
|
|
|
|
|
|
# This time with outer and inner prefix chars
|
|
|
|
run_make_test(q!
|
|
.ONESHELL:
|
|
all:
|
|
@a=$$$$
|
|
-@ +[ 0"$$a" -eq "$$$$" ] || echo fail
|
|
!,
|
|
'', '');
|
|
|
|
|
|
# Now try using a different interpreter
|
|
# This doesn't work on Windows right now
|
|
if ($port_type ne 'W32') {
|
|
run_make_test(q!
|
|
.RECIPEPREFIX = >
|
|
.ONESHELL:
|
|
SHELL = #PERL#
|
|
.SHELLFLAGS = -e
|
|
all:
|
|
> @$$a=5
|
|
> +7;
|
|
> @y=qw(a b c);
|
|
>print "a = $$a, y = (@y)\n";
|
|
!,
|
|
'', "a = 12, y = (a b c)\n");
|
|
}
|
|
|
|
1;
|