mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-28 15:57:48 +00:00
7fbd58cd6b
This reverts commit 6264deece3.
Further investigation discovers that the real issue is that
GNU Emacs compile mode doesn't have a matching regex for GNU
make error messages generated when targets fail. I submitted
a patch to GNU Emacs adding a matcher for compile mode.
347 lines
4.6 KiB
Perl
347 lines
4.6 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "\
|
|
This tests random features of the parser that need to be supported, and
|
|
which have either broken at some point in the past or seem likely to
|
|
break.";
|
|
|
|
run_make_test("
|
|
# We want to allow both empty commands _and_ commands that resolve to empty.
|
|
EMPTY =
|
|
|
|
.PHONY: all a1 a2 a3 a4
|
|
all: a1 a2 a3 a4
|
|
|
|
a1:;
|
|
a2:
|
|
\t
|
|
a3:;\$(EMPTY)
|
|
a4:
|
|
\t\$(EMPTY)
|
|
|
|
\# Non-empty lines that expand to nothing should also be ignored.
|
|
STR = \# Some spaces
|
|
TAB = \t \# A TAB and some spaces
|
|
|
|
\$(STR)
|
|
|
|
\$(STR) \$(TAB)",
|
|
'', "#MAKE#: Nothing to be done for 'all'.");
|
|
|
|
# TEST 2
|
|
|
|
# Make sure files without trailing newlines are handled properly.
|
|
# Have to use the old style invocation to test this.
|
|
|
|
$makefile2 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile2");
|
|
print MAKEFILE "all:;\@echo FOO = \$(FOO)\nFOO = foo";
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options($makefile2,"",&get_logfile);
|
|
$answer = "FOO = foo\n";
|
|
&compare_output($answer,&get_logfile(1));
|
|
|
|
# TEST 3
|
|
|
|
# Check semicolons in variable references
|
|
|
|
run_make_test('
|
|
$(if true,$(info true; true))
|
|
all: ; @:
|
|
',
|
|
'', 'true; true');
|
|
|
|
# TEST 4
|
|
|
|
# Check that backslashes in command scripts are handled according to POSIX.
|
|
# Checks Savannah bug # 1332.
|
|
|
|
# Test the fastpath / no quotes
|
|
run_make_test('
|
|
all:
|
|
@echo foo\
|
|
bar
|
|
@echo foo\
|
|
bar
|
|
@echo foo\
|
|
bar
|
|
@echo foo\
|
|
bar
|
|
@echo foo \
|
|
bar
|
|
@echo foo \
|
|
bar
|
|
@echo foo \
|
|
bar
|
|
@echo foo \
|
|
bar
|
|
',
|
|
'', 'foobar
|
|
foobar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar');
|
|
|
|
# Test the fastpath / single quotes
|
|
# Single quotes don't behave the same in Windows
|
|
if ($port_type ne 'W32') {
|
|
run_make_test(q!
|
|
all:
|
|
@echo 'foo\
|
|
bar'
|
|
@echo 'foo\
|
|
bar'
|
|
@echo 'foo\
|
|
bar'
|
|
@echo 'foo\
|
|
bar'
|
|
@echo 'foo \
|
|
bar'
|
|
@echo 'foo \
|
|
bar'
|
|
@echo 'foo \
|
|
bar'
|
|
@echo 'foo \
|
|
bar'
|
|
!,
|
|
'', 'foo\
|
|
bar
|
|
foo\
|
|
bar
|
|
foo\
|
|
bar
|
|
foo\
|
|
bar
|
|
foo \
|
|
bar
|
|
foo \
|
|
bar
|
|
foo \
|
|
bar
|
|
foo \
|
|
bar');
|
|
}
|
|
|
|
# Test the fastpath / double quotes
|
|
run_make_test('
|
|
all:
|
|
@echo "foo\
|
|
bar"
|
|
@echo "foo\
|
|
bar"
|
|
@echo "foo\
|
|
bar"
|
|
@echo "foo\
|
|
bar"
|
|
@echo "foo \
|
|
bar"
|
|
@echo "foo \
|
|
bar"
|
|
@echo "foo \
|
|
bar"
|
|
@echo "foo \
|
|
bar"
|
|
',
|
|
'', 'foobar
|
|
foobar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar');
|
|
|
|
# Test the slow path / no quotes
|
|
run_make_test('
|
|
all:
|
|
@echo hi; echo foo\
|
|
bar
|
|
@echo hi; echo foo\
|
|
bar
|
|
@echo hi; echo foo\
|
|
bar
|
|
@echo hi; echo foo\
|
|
bar
|
|
@echo hi; echo foo \
|
|
bar
|
|
@echo hi; echo foo \
|
|
bar
|
|
@echo hi; echo foo \
|
|
bar
|
|
@echo hi; echo foo \
|
|
bar
|
|
',
|
|
'', 'hi
|
|
foobar
|
|
hi
|
|
foobar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar');
|
|
|
|
# Test the slow path / no quotes. This time we put the slow path
|
|
# determination _after_ the backslash-newline handling.
|
|
run_make_test('
|
|
all:
|
|
@echo foo\
|
|
bar; echo hi
|
|
@echo foo\
|
|
bar; echo hi
|
|
@echo foo\
|
|
bar; echo hi
|
|
@echo foo\
|
|
bar; echo hi
|
|
@echo foo \
|
|
bar; echo hi
|
|
@echo foo \
|
|
bar; echo hi
|
|
@echo foo \
|
|
bar; echo hi
|
|
@echo foo \
|
|
bar; echo hi
|
|
',
|
|
'', 'foobar
|
|
hi
|
|
foobar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi');
|
|
|
|
# Test the slow path / single quotes
|
|
run_make_test(q!
|
|
all:
|
|
@echo hi; echo 'foo\
|
|
bar'
|
|
@echo hi; echo 'foo\
|
|
bar'
|
|
@echo hi; echo 'foo\
|
|
bar'
|
|
@echo hi; echo 'foo\
|
|
bar'
|
|
@echo hi; echo 'foo \
|
|
bar'
|
|
@echo hi; echo 'foo \
|
|
bar'
|
|
@echo hi; echo 'foo \
|
|
bar'
|
|
@echo hi; echo 'foo \
|
|
bar'
|
|
!,
|
|
'', 'hi
|
|
foo\
|
|
bar
|
|
hi
|
|
foo\
|
|
bar
|
|
hi
|
|
foo\
|
|
bar
|
|
hi
|
|
foo\
|
|
bar
|
|
hi
|
|
foo \
|
|
bar
|
|
hi
|
|
foo \
|
|
bar
|
|
hi
|
|
foo \
|
|
bar
|
|
hi
|
|
foo \
|
|
bar');
|
|
|
|
# Test the slow path / double quotes
|
|
run_make_test('
|
|
all:
|
|
@echo hi; echo "foo\
|
|
bar"
|
|
@echo hi; echo "foo\
|
|
bar"
|
|
@echo hi; echo "foo\
|
|
bar"
|
|
@echo hi; echo "foo\
|
|
bar"
|
|
@echo hi; echo "foo \
|
|
bar"
|
|
@echo hi; echo "foo \
|
|
bar"
|
|
@echo hi; echo "foo \
|
|
bar"
|
|
@echo hi; echo "foo \
|
|
bar"
|
|
',
|
|
'', 'hi
|
|
foobar
|
|
hi
|
|
foobar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar
|
|
hi
|
|
foo bar');
|
|
|
|
run_make_test('x:;@-exit 1', '', "#MAKE#: [#MAKEFILE#:1: x] Error 1 (ignored)\n");
|
|
|
|
# Slow path with odd setups
|
|
|
|
if ($port_type ne 'W32') {
|
|
run_make_test(q!
|
|
slow: SHELL := echo
|
|
slow: .SHELLFLAGS := hoho
|
|
slow:; @foo bar
|
|
!,
|
|
'', "hoho foo bar\n");
|
|
|
|
run_make_test(q!
|
|
slow: SHELL := echo hi
|
|
slow: .SHELLFLAGS := ho ho
|
|
slow:; @foo bar
|
|
!,
|
|
'', "hi ho ho foo bar\n");
|
|
|
|
run_make_test(q!
|
|
slow: SHELL := echo hi
|
|
slow: .SHELLFLAGS := 'ho;ho'
|
|
slow:; @foo bar
|
|
!,
|
|
'', "hi ho;ho foo bar\n");
|
|
}
|
|
|
|
1;
|
|
|
|
### Local Variables:
|
|
### eval: (setq whitespace-action (delq 'auto-cleanup whitespace-action))
|
|
### End:
|