summaryrefslogtreecommitdiff
path: root/tests/run_make_tests.pl
diff options
context:
space:
mode:
authorPaul Smith <psmith@gnu.org>2021-12-18 18:11:30 -0500
committerPaul Smith <psmith@gnu.org>2021-12-19 16:34:19 -0500
commit9230bfb9aea55201d47afb666c104cc4542a1f39 (patch)
treed3d37454b412e0c904d9b3259dcb2cce76bab8e1 /tests/run_make_tests.pl
parent55b993ae09ad009c18e7097a78d3b868c16e15df (diff)
downloadmake-git-9230bfb9aea55201d47afb666c104cc4542a1f39.tar.gz
Use a well-known error string for out-of-bound function arguments
* src/function.c (parse_numeric): Check for empty value and error. If we find ERANGE just print our own error, not strerror. (func_word): Use a generic "not good" error message. (func_wordlist): Ditto (func_intcmp): Ditto * tests/run_make_tests.pl: Remove code to find strerror(ERANGE) * tests/scrips/functions/intcmp: Update the error message. * tests/scrips/functions/word: Ditto.
Diffstat (limited to 'tests/run_make_tests.pl')
-rw-r--r--tests/run_make_tests.pl8
1 files changed, 0 insertions, 8 deletions
diff --git a/tests/run_make_tests.pl b/tests/run_make_tests.pl
index ebf202a2..4cc375e5 100644
--- a/tests/run_make_tests.pl
+++ b/tests/run_make_tests.pl
@@ -108,7 +108,6 @@ $ERR_read_only_file = undef;
$ERR_unreadable_file = undef;
$ERR_nonexe_file = undef;
$ERR_exe_dir = undef;
-$ERR_out_of_range = undef;
{
use locale;
@@ -122,9 +121,6 @@ $ERR_out_of_range = undef;
# See set_defaults() as this doesn't work right on Windows :(
$! = &POSIX::ERANGE;
- $ERR_out_of_range = "$!";
- } else {
- $ERR_out_of_range = 'Numerical result out of range';
}
if (open(my $F, '<', 'file.none')) {
@@ -464,10 +460,6 @@ sub set_defaults
$scriptsuffix = '.com';
} else {
$scriptsuffix = '.bat';
-
- # Frustratingly, Perl reports the wrong strerror string for ERANGE.
- # It's weird because Python gets it right. Not sure what's going on.
- $ERR_out_of_range = 'Result too large';
}
}