# [-make <make prog>]
# (and others)
-# Copyright (C) 1992-2020 Free Software Foundation, Inc.
+# Copyright (C) 1992-2022 Free Software Foundation, Inc.
# This file is part of GNU Make.
#
# GNU Make is free software; you can redistribute it and/or modify it under
# details.
#
# You should have received a copy of the GNU General Public License along with
-# this program. If not, see <http://www.gnu.org/licenses/>.
+# this program. If not, see <https://www.gnu.org/licenses/>.
# Add the working directory to @INC and load the test driver
use FindBin;
$has_POSIX = eval { require "POSIX.pm" };
%FEATURES = ();
+%DEFVARS = (
+ AR => undef,
+ CC => undef
+);
$valgrind = 0; # invoke make with valgrind
$valgrind_args = '';
$ERR_unreadable_file = undef;
$ERR_nonexe_file = undef;
$ERR_exe_dir = undef;
-
-{
- use locale;
-
- my $loc = undef;
- if ($has_POSIX) {
- POSIX->import(qw(locale_h));
- # Windows has POSIX locale, but only LC_ALL not LC_MESSAGES
- $loc = POSIX::setlocale(&POSIX::LC_ALL);
- POSIX::setlocale(&POSIX::LC_ALL, 'C');
- }
-
- if (open(my $F, '<', 'file.none')) {
- print "Opened non-existent file! Skipping related tests.\n";
- } else {
- $ERR_no_such_file = "$!";
- }
-
- unlink('file.out');
- touch('file.out');
-
- chmod(0444, 'file.out');
- if (open(my $F, '>', 'file.out')) {
- print "Opened read-only file! Skipping related tests.\n";
- close($F);
- } else {
- $ERR_read_only_file = "$!";
- }
-
- $_ = `./file.out 2>/dev/null`;
- if ($? == 0) {
- print "Executed non-executable file! Skipping related tests.\n";
- } else {
- $ERR_nonexe_file = "$!";
- }
-
- $_ = `./. 2>/dev/null`;
- if ($? == 0) {
- print "Executed directory! Skipping related tests.\n";
- } else {
- $ERR_exe_dir = "$!";
- }
-
- chmod(0000, 'file.out');
- if (open(my $F, '<', 'file.out')) {
- print "Opened unreadable file! Skipping related tests.\n";
- close($F);
- } else {
- $ERR_unreadable_file = "$!";
- }
-
- unlink('file.out') or die "Failed to delete file.out: $!\n";
-
- $loc and POSIX::setlocale(&POSIX::LC_ALL, $loc);
-}
+$ERR_command_not_found = undef;
#$SIG{INT} = sub { print STDERR "Caught a signal!\n"; die @_; };
if ($option =~ /^-make([-_]?path)?$/i) {
$make_path = shift @argv;
- if (!-f $make_path) {
+ if (! -f $make_path) {
print "$option $make_path: Not found.\n";
- exit 0;
+ exit 1;
}
return 1;
}
$srcdir = shift @argv;
if (! -f File::Spec->catfile($srcdir, 'src', 'gnumake.h')) {
print "$option $srcdir: Not a valid GNU make source directory.\n";
- exit 0;
+ exit 1;
}
return 1;
}
s/#MAKE#/$make_name/g;
s/#PERL#/$perl_name/g;
s/#PWD#/$cwdpath/g;
+ s/#WORK#/$workdir/g;
# If we're using a shell
s/#HELPER#/$perl_name $helptool/g;
return $_;
defined $old_makefile
or die "run_make_test(undef) invoked before run_make_test('...')\n";
$makefile = $old_makefile;
- } else {
+ } elsif ($makestring) {
if (! defined($makefile)) {
$makefile = &get_tmpfile();
}
# Using a ref should be preferred as it's more portable but all the older
# invocations use strings.
sub run_make_with_options {
- my ($filename,$options,$logname,$expected_code,$timeout,@call) = @_;
+ my ($filename, $options, $logname, $expected_code, $timeout, @call) = @_;
@call = caller unless @call;
my $code;
my $command = create_command($options);
$command = add_options($command, $options);
}
- my $cmdstr = ref($command) ? "'".join("' '", @$command)."'" : $command;
-
- if (@call) {
- $command_string = "#$call[1]:$call[2]\n$cmdstr\n";
- } else {
- $command_string = $cmdstr;
- }
+ my $cmdstr = cmd2str($command);
+ $command_string = "# $call[1]:$call[2]:\n$cmdstr\n";
if ($valgrind) {
print VALGRIND "\n\nExecuting: $cmdstr\n";
}
if ($code != $expected_code) {
- print "Error running @make_command (expected $expected_code; got $code): $cmdstr\n";
+ print "Error running @make_command (expected $expected_code; got $code)\n$call[1]:$call[2]: $cmdstr\n";
$test_passed = 0;
- &create_file (&get_runfile, $command_string);
+ &create_file(get_runfile(), $command_string);
# If it's a SIGINT, stop here
if ($code & 127) {
print STDERR "\nCaught signal ".($code & 127)."!\n";
sub set_defaults
{
# $profile = 1;
- $testee = "GNU make";
+ $testee = "GNU Make";
$make_path = "make";
$tmpfilesuffix = "mk";
if ($port_type eq 'UNIX') {
} else {
$scriptsuffix = '.bat';
}
+
+ $ENV{LC_ALL} = $makeENV{LC_ALL};
+ $ENV{LANG} = $makeENV{LANG};
+ $ENV{LANGUAGE} = $makeENV{LANGUAGE};
+
+ use locale;
+
+ my $loc = undef;
+ if ($has_POSIX) {
+ POSIX->import(qw(locale_h));
+ # Windows has POSIX locale, but only LC_ALL not LC_MESSAGES
+ $loc = POSIX::setlocale(&POSIX::LC_ALL);
+ POSIX::setlocale(&POSIX::LC_ALL, 'C');
+ }
+
+ if (open(my $F, '<', 'file.none')) {
+ print "Opened non-existent file! Skipping related tests.\n";
+ } else {
+ $ERR_no_such_file = "$!";
+ }
+
+ unlink('file.out');
+ touch('file.out');
+
+ chmod(0444, 'file.out');
+ if (open(my $F, '>', 'file.out')) {
+ print "Opened read-only file! Skipping related tests.\n";
+ close($F);
+ } else {
+ $ERR_read_only_file = "$!";
+ }
+
+ $_ = `./file.out 2>&1`;
+ if ($? == 0) {
+ print "Executed non-executable file! Skipping related tests.\n";
+ } else {
+ $ERR_nonexe_file = "$!";
+ }
+
+ if ($^O =~ /cygwin/i) {
+ # For some reason the execute here gives a different answer than make's
+ print "Skipping directory execution on $^O\n";
+ } else {
+ $_ = `./. 2>&1`;
+ if ($? == 0) {
+ print "Executed directory! Skipping related tests.\n";
+ } else {
+ $ERR_exe_dir = "$!";
+ }
+ }
+
+ chmod(0000, 'file.out');
+ if (open(my $F, '<', 'file.out')) {
+ print "Opened unreadable file! Skipping related tests.\n";
+ close($F);
+ } else {
+ $ERR_unreadable_file = "$!";
+ }
+
+ unlink('file.out') or die "Failed to delete file.out: $!\n";
+
+ $_ = `/bin/sh -c 'bad-command 2>&1'`;
+ if ($? == 0) {
+ print "Invoked invalid file! Skipping related tests.\n";
+ } else {
+ chomp($_);
+ s/bad-command/#CMDNAME#/g;
+ $ERR_command_not_found = $_;
+ }
+
+ $loc and POSIX::setlocale(&POSIX::LC_ALL, $loc);
+
+ $ENV{LC_ALL} = $origENV{LC_ALL};
+ $ENV{LANG} = $origENV{LANG};
+ $ENV{LANGUAGE} = $origENV{LANGUAGE};
}
# This is no longer used: we import config-flags.pm instead
create_file('make.mk', 'all:;$(info $(MAKE))');
my $mk = `$make_path -sf make.mk`;
unlink('make.mk');
- chop $mk;
+ $mk =~ s/\r?\n$//;
$mk or die "FATAL ERROR: Cannot determine the value of \$(MAKE)\n";
$make_path = $mk;
}
create_file('shell.mk', 'all:;$(info $(SHELL))');
$sh_name = `$make_path -sf shell.mk`;
unlink('shell.mk');
- chop $sh_name;
+ $sh_name =~ s/\r?\n$//;
if (! $sh_name) {
print "Cannot determine shell\n";
$is_posix_sh = 0;
%FEATURES = map { $_ => 1 } split /\s+/, `$make_path -sf features.mk`;
unlink('features.mk');
+ # Find the default values for different built-in variables
+ my $s = "all:;\n";
+ foreach (keys %DEFVARS) {
+ $s .= "\$(info $_=\$($_))\n";
+ }
+ create_file('defvars.mk', $s);
+ foreach (split "\n", `$make_path -sf defvars.mk`) {
+ my @e = split /=/, $_, 2;
+ $DEFVARS{$e[0]} = $e[1];
+ }
+ unlink('defvars.mk');
+
# Set up for valgrind, if requested.
@make_command = ($make_path);
projects / platform / upstream / make.git / blobdiff