mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-12-02 00:01:05 -05:00
fdcaaed8d7
Avoid Emacs local variable settings to disable whitespace cleanup, by creating markup tokens for TAB characters (#TAB#) and space characters (#SPACE#) (for end-of-line spaces). Modify all the tests that use TABs to use the new markup. This requires changing some old-fashioned tests to use the modern run_make_test(). Also remove some of the comments regarding test numbers now that the framework keeps track.
344 lines
4.9 KiB
Perl
344 lines
4.9 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(q!
|
|
# 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:
|
|
#TAB#
|
|
a3:;$(EMPTY)
|
|
a4:
|
|
#TAB#$(EMPTY)
|
|
|
|
# Non-empty lines that expand to nothing should also be ignored.
|
|
STR = # Some spaces
|
|
TAB = #TAB# # 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(q!
|
|
$(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(q!
|
|
all:
|
|
#TAB#@echo foo\
|
|
bar
|
|
#TAB#@echo foo\
|
|
#TAB#bar
|
|
#TAB#@echo foo\
|
|
bar
|
|
#TAB#@echo foo\
|
|
#TAB# bar
|
|
#TAB#@echo foo \
|
|
bar
|
|
#TAB#@echo foo \
|
|
#TAB#bar
|
|
#TAB#@echo foo \
|
|
bar
|
|
#TAB#@echo foo \
|
|
#TAB# 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:
|
|
#TAB#@echo 'foo\
|
|
bar'
|
|
#TAB#@echo 'foo\
|
|
#TAB#bar'
|
|
#TAB#@echo 'foo\
|
|
bar'
|
|
#TAB#@echo 'foo\
|
|
#TAB# bar'
|
|
#TAB#@echo 'foo \
|
|
bar'
|
|
#TAB#@echo 'foo \
|
|
#TAB#bar'
|
|
#TAB#@echo 'foo \
|
|
bar'
|
|
#TAB#@echo 'foo \
|
|
#TAB# 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(q!
|
|
all:
|
|
#TAB#@echo "foo\
|
|
bar"
|
|
#TAB#@echo "foo\
|
|
#TAB#bar"
|
|
#TAB#@echo "foo\
|
|
bar"
|
|
#TAB#@echo "foo\
|
|
#TAB# bar"
|
|
#TAB#@echo "foo \
|
|
bar"
|
|
#TAB#@echo "foo \
|
|
#TAB#bar"
|
|
#TAB#@echo "foo \
|
|
bar"
|
|
#TAB#@echo "foo \
|
|
#TAB# bar"
|
|
!,
|
|
'', 'foobar
|
|
foobar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar
|
|
foo bar');
|
|
|
|
# Test the slow path / no quotes
|
|
run_make_test(q!
|
|
all:
|
|
#TAB#@echo hi; echo foo\
|
|
bar
|
|
#TAB#@echo hi; echo foo\
|
|
#TAB#bar
|
|
#TAB#@echo hi; echo foo\
|
|
bar
|
|
#TAB#@echo hi; echo foo\
|
|
#TAB# bar
|
|
#TAB#@echo hi; echo foo \
|
|
bar
|
|
#TAB#@echo hi; echo foo \
|
|
#TAB#bar
|
|
#TAB#@echo hi; echo foo \
|
|
bar
|
|
#TAB#@echo hi; echo foo \
|
|
#TAB# 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(q!
|
|
all:
|
|
#TAB#@echo foo\
|
|
bar; echo hi
|
|
#TAB#@echo foo\
|
|
#TAB#bar; echo hi
|
|
#TAB#@echo foo\
|
|
bar; echo hi
|
|
#TAB#@echo foo\
|
|
#TAB# bar; echo hi
|
|
#TAB#@echo foo \
|
|
bar; echo hi
|
|
#TAB#@echo foo \
|
|
#TAB#bar; echo hi
|
|
#TAB#@echo foo \
|
|
bar; echo hi
|
|
#TAB#@echo foo \
|
|
#TAB# 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:
|
|
#TAB#@echo hi; echo 'foo\
|
|
bar'
|
|
#TAB#@echo hi; echo 'foo\
|
|
#TAB#bar'
|
|
#TAB#@echo hi; echo 'foo\
|
|
bar'
|
|
#TAB#@echo hi; echo 'foo\
|
|
#TAB# bar'
|
|
#TAB#@echo hi; echo 'foo \
|
|
bar'
|
|
#TAB#@echo hi; echo 'foo \
|
|
#TAB#bar'
|
|
#TAB#@echo hi; echo 'foo \
|
|
bar'
|
|
#TAB#@echo hi; echo 'foo \
|
|
#TAB# 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(q!
|
|
all:
|
|
#TAB#@echo hi; echo "foo\
|
|
bar"
|
|
#TAB#@echo hi; echo "foo\
|
|
#TAB#bar"
|
|
#TAB#@echo hi; echo "foo\
|
|
bar"
|
|
#TAB#@echo hi; echo "foo\
|
|
#TAB# bar"
|
|
#TAB#@echo hi; echo "foo \
|
|
bar"
|
|
#TAB#@echo hi; echo "foo \
|
|
#TAB#bar"
|
|
#TAB#@echo hi; echo "foo \
|
|
bar"
|
|
#TAB#@echo hi; echo "foo \
|
|
#TAB# 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;
|