| Subject: | t/005_eval.t fails (it assumes an english locale) |
In t/005_eval.t, line 262:
throws_ok
{
$context->eval(CODE_FROM_FILE => '') ;
} qr/read_file '' - sysopen: No such file/, 'unexisting file' ;
}
This works only if the current locale is an english locale:
% LANG=de_DE.UTF8
% prove -Ilib t/005_eval.t
t/005_eval....ok 1/0
t/005_eval....NOK 33/0# Failed test 'unexisting file'
# at t/005_eval.t line 265.
# expecting: Regexp ((?-xism:read_file '' - sysopen: No such file))
# found: read_file '' - sysopen: Datei oder Verzeichnis nicht gefunden
at lib/Eval/Context.pm line 920
# Looks like you failed 1 test of 39.
t/005_eval....dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 33
Failed 1/39 tests, 97.44% okay
Failed Test Stat Wstat Total Fail List of Failed
-------------------------------------------------------------------------------
t/005_eval.t 1 256 39 1 33
Failed 1/1 test scripts. 1/39 subtests failed.
Files=1, Tests=39, 0 wallclock secs ( 0.17 cusr + 0.00 csys = 0.17 CPU)
Failed 1/1 test programs. 1/39 subtests failed.
Maybe this test should not use throws_ok but
eval {...};
is( defined $!{ENOENT}, 'unexisting file' );
instead.
Thanks, Frank