mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-10-24 05:09:58 +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.
104 lines
2.5 KiB
Perl
104 lines
2.5 KiB
Perl
# -*-perl-*-
|
|
$description = "Test various types of escaping in makefiles.";
|
|
|
|
$details = "\
|
|
Make sure that escaping of ':' works in target names.
|
|
Make sure escaping of whitespace works in target names.
|
|
Make sure that escaping of '#' works.
|
|
Make sure that backslash before non-special characters are kept.";
|
|
|
|
|
|
# TEST 1
|
|
|
|
run_make_test(q!
|
|
ifdef NOESC
|
|
path = pre:
|
|
endif
|
|
ifdef ONEESC
|
|
path = pre\:
|
|
endif
|
|
ifdef TWOESC
|
|
path = pre\\\\:
|
|
endif
|
|
|
|
$(path)foo : ; @echo "touch ($@)"
|
|
|
|
foo\ bar: ; @echo "touch ($@)"
|
|
|
|
sharp: foo\#bar.ext
|
|
foo\#bar.ext: ; @echo "foo#bar.ext = ($@)"
|
|
!,
|
|
'',
|
|
'touch (foo)');
|
|
|
|
# TEST 2: This one should fail, since the ":" is unquoted.
|
|
|
|
run_make_test(undef,
|
|
'NOESC=1',
|
|
"#MAKEFILE#:12: *** target pattern contains no '%'. Stop.",
|
|
512);
|
|
|
|
# TEST 3: This one should work, since we escape the ":".
|
|
|
|
run_make_test(undef,
|
|
'ONEESC=1',
|
|
'touch (pre:foo)');
|
|
|
|
# TEST 4: This one should fail, since the escape char is escaped.
|
|
|
|
run_make_test(undef,
|
|
'TWOESC=1',
|
|
"#MAKEFILE#:12: *** target pattern contains no '%'. Stop.",
|
|
512);
|
|
|
|
# TEST 5: This one should work
|
|
|
|
run_make_test(undef,
|
|
['foo bar'],
|
|
'touch (foo bar)');
|
|
|
|
# TEST 6: Test escaped comments
|
|
|
|
run_make_test(undef,
|
|
'sharp',
|
|
'foo#bar.ext = (foo#bar.ext)');
|
|
|
|
# Test escaped colons in prerequisites
|
|
# Quoting of backslashes in q!! is kind of messy.
|
|
# Solaris sh does not properly handle backslashes even in '' so just
|
|
# check the output make prints, not what the shell interprets.
|
|
run_make_test(q!
|
|
foo: foo\\:bar foo\\\\\\:bar foo\\\\\\\\\\:bar
|
|
foo foo\\:bar foo\\\\\\:bar foo\\\\\\\\\\:bar: ; : '$@'
|
|
!,
|
|
'', ": 'foo:bar'\n: 'foo\\:bar'\n: 'foo\\\\:bar'\n: 'foo'\n");
|
|
|
|
# Test backslash before non-special chars: should be kept as-is
|
|
|
|
run_make_test(q!
|
|
all: ..\foo
|
|
.DEFAULT: ; : '$@'
|
|
!,
|
|
'', ": '..\\foo'\n");
|
|
|
|
# Test escaped comments in variable assignments
|
|
run_make_test(q!
|
|
self = $1
|
|
foo := $(call self,#foo#)#foo
|
|
bar := $(call self,\#bar\#)#bar
|
|
all:;@echo '$(foo) $(bar)'
|
|
!,
|
|
'',"#foo# \\#bar\\#");
|
|
|
|
# Test escaped comments in variable assignments in a variable
|
|
run_make_test(q!
|
|
C = \#
|
|
self = $1
|
|
foo := $(call self,$Cfoo$C)#foo
|
|
all:;@echo '$(foo)'
|
|
!,
|
|
'',"#foo#");
|
|
|
|
# This tells the test driver that the perl test script executed properly.
|
|
1;
|