Subject: | t/errors.t fails (it assumes english locale) |
t/errors.t fails, because it assumes an english locale.
doro:~/.cpan/build/Perl6-Slurp-0.03# make test
PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'blib/lib', 'blib/arch')" t/*.t
t/chomp............ok
t/errors...........NOK 3
# Failed test 'shouldn't be able to slurp non-existent file'
# in t/errors.t at line 17.
# 'Can't open 'non-existent file': Datei oder Verzeichnis nicht gefunden at t/errors.t line 17
# '
# doesn't match '(?-xism:^Can't open 'non-existent file': No such file or directory)'
# Looks like you failed 1 test of 4.
t/errors...........dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 3
Failed 1/4 tests, 75.00% okay
t/filehandle.......ok
t/filename.........ok
t/ioderfile........ok
t/iofile...........ok
t/ipc..............ok
t/irs..............ok
t/layers...........ok
t/lexfilehandle....ok
t/string...........ok
Failed Test Stat Wstat Total Fail Failed List of Failed
-------------------------------------------------------------------------------
t/errors.t 1 256 4 1 25.00% 3
Failed 1/11 test scripts, 90.91% okay. 1/171 subtests failed, 99.42% okay.
make: *** [test_dynamic] Fehler 255
Patch:
--- errors.t 2005-10-15 19:53:15.000000000 +0200
+++ errors.t.new 2005-10-15 19:53:39.000000000 +0200
@@ -17,7 +17,7 @@
eval{slurp "non-existent file"}
? ok 0, $desc
: like $@,
- qr/^Can't open 'non-existent file': No such file or directory/,
+ qr/^Can't open 'non-existent file'/,
$desc;
#diag $!+0;