mirror of
https://github.com/mirror/make.git
synced 2025-01-11 21:00:19 +08:00
414af96a50
Go through both run_make_tests.pl and test_driver.pl and slightly modernize the Perl and clean up indentation etc. Fix a number of warnings in the test scripts detected by running with -w. * tests/test_driver.pl: Move make error string detection out of the base test driver. (run_all_tests): Ensure that we always look for tests in the cwd. * tests/run_make_tests.pl: Use File::Spec for path manipulations. Correctly use setlocale() when detecting error strings. Get configuration from the config-flags.pm file not config.status. * tests/scripts/features/archives: Use new $cwddir variable. * tests/scripts/features/reinvoke: Add missing semicolon. * tests/scripts/features/vpath2: Avoid non-existent variable. * tests/scripts/functions/foreach: Escape variables. * tests/scripts/misc/bs-nl: Remove non-existing \v escape sequence. * tests/scripts/misc/general4: Use handy create_file(). * tests/scripts/options/dash-C: Use Cwd/$cwddir. * tests/scripts/options/dash-I: Use subst_make_string() and #PWD#. * tests/scripts/options/symlinks: Use File::Spec. * tests/scripts/targets/DEFAULT: Use create_file and run_make_test. * tests/scripts/variables/CURDIR: Use run_make_test. * tests/scripts/variables/automatic: Remove extraneous "\". * tests/scripts/vms/library: Remove extra "my" and extraneous "\".
120 lines
2.6 KiB
Perl
120 lines
2.6 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "\
|
|
This tests random features of make's algorithms, often somewhat obscure,
|
|
which have either broken at some point in the past or seem likely to
|
|
break.";
|
|
|
|
run_make_test('
|
|
# Make sure that subdirectories built as prerequisites are actually handled
|
|
# properly.
|
|
|
|
all: dir/subdir/file.a
|
|
|
|
dir/subdir: ; @echo mkdir -p dir/subdir
|
|
|
|
dir/subdir/file.b: dir/subdir ; @echo touch dir/subdir/file.b
|
|
|
|
dir/subdir/%.a: dir/subdir/%.b ; @echo cp $< $@',
|
|
'', "mkdir -p dir/subdir\ntouch dir/subdir/file.b\ncp dir/subdir/file.b dir/subdir/file.a\n");
|
|
|
|
# Test implicit rules
|
|
|
|
&touch('foo.c');
|
|
run_make_test('foo: foo.o',
|
|
'CC="@echo cc" OUTPUT_OPTION=',
|
|
'cc -c foo.c
|
|
cc foo.o -o foo');
|
|
unlink('foo.c');
|
|
|
|
|
|
# Test implicit rules with '$' in the name (see se_implicit)
|
|
|
|
run_make_test(q!
|
|
%.foo : baz$$bar ; @echo 'done $<'
|
|
%.foo : bar$$baz ; @echo 'done $<'
|
|
test.foo:
|
|
baz$$bar bar$$baz: ; @echo '$@'
|
|
!,
|
|
'',
|
|
"baz\$bar\ndone baz\$bar");
|
|
|
|
|
|
# Test implicit rules with '$' in the name (see se_implicit)
|
|
# Use the '$' in the pattern.
|
|
|
|
run_make_test(q!
|
|
%.foo : %$$bar ; @echo 'done $<'
|
|
test.foo:
|
|
test$$bar: ; @echo '$@'
|
|
!,
|
|
'',
|
|
"test\$bar\ndone test\$bar");
|
|
|
|
# Make sure that subdirectories built as prerequisites are actually handled
|
|
# properly... this time with '$'
|
|
|
|
run_make_test(q!
|
|
|
|
all: dir/subdir/file.$$a
|
|
|
|
dir/subdir: ; @echo mkdir -p '$@'
|
|
|
|
dir/subdir/file.$$b: dir/subdir ; @echo touch '$@'
|
|
|
|
dir/subdir/%.$$a: dir/subdir/%.$$b ; @echo 'cp $< $@'
|
|
!,
|
|
'', "mkdir -p dir/subdir\ntouch dir/subdir/file.\$b\ncp dir/subdir/file.\$b dir/subdir/file.\$a\n");
|
|
|
|
# Test odd whitespace at the beginning of a line
|
|
|
|
run_make_test("
|
|
all:
|
|
\f
|
|
|
|
\\
|
|
\f \\
|
|
\013 \\
|
|
all: ; \@echo hi
|
|
",
|
|
'', "hi\n");
|
|
|
|
# SV-56834 Ensure setting PATH in the makefile works properly
|
|
mkdir('sd', 0775);
|
|
create_file('sd/foobar', "exit 0\n");
|
|
chmod 0755, 'sd/foobar';
|
|
|
|
run_make_test(q!
|
|
PATH := sd
|
|
all: ; foobar
|
|
!,
|
|
'', "foobar\n");
|
|
|
|
# Don't use the general PATH if not found on the target path
|
|
|
|
$extraENV{PATH} = "$ENV{PATH}:sd";
|
|
|
|
run_make_test(q!
|
|
PATH := ..
|
|
all: ; foobar
|
|
!,
|
|
'', "foobar\n#MAKE#: foobar: $ERR_no_such_file\n#MAKE#: *** [#MAKEFILE#;3: all] Error 127", 512);
|
|
|
|
unlink('sd/foobar');
|
|
rmdir('sd');
|
|
|
|
# Ensure that local programs are not found if "." is not on the PATH
|
|
|
|
create_file('foobar', "exit 0\n");
|
|
chmod 0755, 'foobar';
|
|
|
|
run_make_test(q!
|
|
PATH := ..
|
|
all: ; foobar
|
|
!,
|
|
'', "foobar\n#MAKE#: foobar: $ERR_no_such_file\n#MAKE#: *** [#MAKEFILE#;3: all] Error 127", 512);
|
|
|
|
unlink('foobar');
|
|
|
|
1;
|