mirror of
https://git.savannah.gnu.org/git/make.git
synced 2024-12-29 08:09:02 +00:00
e364498113
Reported by Tim Murphy <tnmurphy@gmail.com> * function.c (func_file): Only write TEXT if it is not NULL. * NEWS, doc/make.texi: Document the new feature * tests/scripts/functions/file: Verify that the no-text version of $(file ...) works and doesn't add a newline.
118 lines
1.9 KiB
Perl
118 lines
1.9 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = 'Test the $(file ...) function.';
|
|
|
|
# Test > and >>
|
|
run_make_test(q!
|
|
define A
|
|
a
|
|
b
|
|
endef
|
|
B = c d
|
|
$(file >file.out,$(A))
|
|
$(foreach L,$(B),$(file >> file.out,$L))
|
|
x:;@echo hi; cat file.out
|
|
!,
|
|
'', "hi\na\nb\nc\nd");
|
|
|
|
unlink('file.out');
|
|
|
|
# Test >> to a non-existent file
|
|
run_make_test(q!
|
|
define A
|
|
a
|
|
b
|
|
endef
|
|
$(file >> file.out,$(A))
|
|
x:;@cat file.out
|
|
!,
|
|
'', "a\nb");
|
|
|
|
unlink('file.out');
|
|
|
|
# Test > with no content
|
|
run_make_test(q!
|
|
$(file >4touch)
|
|
.PHONY:x
|
|
x:;@cat 4touch
|
|
!,
|
|
'', '');
|
|
|
|
# Test >> with no content
|
|
run_make_test(q!
|
|
$(file >>4touch)
|
|
.PHONY:x
|
|
x:;@cat 4touch
|
|
!,
|
|
'', '');
|
|
unlink('4touch');
|
|
|
|
# Test > to a read-only file
|
|
touch('file.out');
|
|
chmod(0444, 'file.out');
|
|
|
|
# Find the error that will be printed
|
|
# This seems complicated, but we need the message from the C locale
|
|
my $loc = undef;
|
|
if ($has_POSIX) {
|
|
$loc = POSIX::setlocale(POSIX::LC_MESSAGES);
|
|
POSIX::setlocale(POSIX::LC_MESSAGES, 'C');
|
|
}
|
|
my $e;
|
|
open(my $F, '>', 'file.out') and die "Opened read-only file!\n";
|
|
$e = "$!";
|
|
$loc and POSIX::setlocale(POSIX::LC_MESSAGES, $loc);
|
|
|
|
run_make_test(q!
|
|
define A
|
|
a
|
|
b
|
|
endef
|
|
$(file > file.out,$(A))
|
|
x:;@cat file.out
|
|
!,
|
|
'', "#MAKEFILE#:6: *** open: file.out: $e. Stop.",
|
|
512);
|
|
|
|
unlink('file.out');
|
|
|
|
# Use variables for operator and filename
|
|
run_make_test(q!
|
|
define A
|
|
a
|
|
b
|
|
endef
|
|
OP = >
|
|
FN = file.out
|
|
$(file $(OP) $(FN),$(A))
|
|
x:;@cat file.out
|
|
!,
|
|
'', "a\nb");
|
|
|
|
unlink('file.out');
|
|
|
|
# Don't add newlines if one already exists
|
|
run_make_test(q!
|
|
define A
|
|
a
|
|
b
|
|
|
|
endef
|
|
$(file >file.out,$(A))
|
|
x:;@cat file.out
|
|
!,
|
|
'', "a\nb");
|
|
|
|
unlink('file.out');
|
|
|
|
# Empty text
|
|
run_make_test(q!
|
|
$(file >file.out,)
|
|
$(file >>file.out,)
|
|
x:;@cat file.out
|
|
!,
|
|
'', "\n\n");
|
|
|
|
unlink('file.out');
|
|
|
|
1;
|