In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/df968918245d10232f955ab0965da7f8d6297a29?hp=4cd408bae5cd62850a437b986c09084b3eea6338>
- Log -----------------------------------------------------------------
commit df968918245d10232f955ab0965da7f8d6297a29
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Fri Oct 3 14:03:13 2014 +0200
Do not rely on the precise error wording
'No such file or directory' is fine on Linux but other UNIXes might
say it differently, for example 'A file or directory in the path name does
not exist'.
-----------------------------------------------------------------------
Summary of changes:
t/io/argv.t | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/t/io/argv.t b/t/io/argv.t
index 8abb82e..03440a2 100644
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -188,7 +188,7 @@ $x = runperl(
stderr => 1,
args => [ '-' ],
);
-is($x, "Can't open -: No such file or directory at -e line 1.\n", '<<>> does
not treat - as STDIN');
+like($x, qr/^Can't open -: .* at -e line 1/, '<<>> does not treat - as STDIN');
{
# tests for an empty string in @ARGV
@@ -196,13 +196,13 @@ is($x, "Can't open -: No such file or directory at -e
line 1.\n", '<<>> does not
prog => 'push @ARGV,q//;print while <>',
stderr => 1,
);
- is($x, "Can't open : No such file or directory at -e line 1.\n", '<<>>
does not treat - as STDIN');
+ like($x, qr/^Can't open : .* at -e line 1/, '<<>> does not treat - as
STDIN');
$x = runperl(
prog => 'push @ARGV,q//;print while <<>>',
stderr => 1,
);
- is($x, "Can't open : No such file or directory at -e line 1.\n", '<<>>
does not treat - as STDIN');
+ like($x, qr/^Can't open : .* at -e line 1/, '<<>> does not treat - as
STDIN');
}
SKIP: {
@@ -213,14 +213,14 @@ SKIP: {
stderr => 1,
args => [ '"echo foo |"' ],
);
- is($x, "Can't open echo foo |: No such file or directory at -e line 1.\n",
'<<>> does not treat ...| as fork');
+ like($x, qr/^Can't open echo foo \|: .* at -e line 1/, '<<>> does not
treat ...| as fork');
$x = runperl(
prog => 'while (<<>>) { }',
stderr => 1,
args => [ 'Io_argv1.tmp', '"echo foo |"' ],
);
- is($x, "Can't open echo foo |: No such file or directory at -e line 1, <>
line 3.\n", '<<>> does not treat ...| as fork after eof');
+ like($x, qr/^Can't open echo foo \|: .* at -e line 1, <> line 3/, '<<>>
does not treat ...| as fork after eof');
}
# This used to dump core
--
Perl5 Master Repository
