On Thu Jul 21 16:12:22 2016, SREZIC wrote:
Show quoted text> With perl 5.25.3 I see the following problem:
>
> PERL_DL_NONLAZY=1 "/bbbike/perl-5.25.3/bin/perl5.25.3" "-
> MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef
> *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')"
> t/*.t
> The encoding pragma is no longer supported at t/00_Era.t line 6.
> BEGIN failed--compilation aborted at t/00_Era.t line 6.
> # Looks like your test exited with 2 just after 1.
> t/00_Era.t ..
> Dubious, test returned 2 (wstat 512, 0x200)
> Failed 46/47 subtests
> The encoding pragma is no longer supported at t/01_Jis.t line 4.
> BEGIN failed--compilation aborted at t/01_Jis.t line 4.
> # Looks like your test exited with 2 before it could output anything.
> t/01_Jis.t ..
> Dubious, test returned 2 (wstat 512, 0x200)
> Failed 27/27 subtests
All tests pass with this patch.
diff -rup Date-Japanese-Era-0.06-fIF80F/t/00_Era.t Date-Japanese-Era-0.06-0/t/00_Era.t
--- Date-Japanese-Era-0.06-fIF80F/t/00_Era.t 2006-06-14 19:02:39.000000000 -0700
+++ Date-Japanese-Era-0.06-0/t/00_Era.t 2016-07-21 14:11:50.000000000 -0700
@@ -3,7 +3,8 @@ use Test::More tests => 47;
BEGIN { use_ok('Date::Japanese::Era'); }
-use encoding "utf-8";
+use utf8;
+use open ":std", ":utf8";
my @tests = (
[ 2001, 9, 1, '平成', 13 ],
@@ -52,6 +53,7 @@ for my $fail (@fail) {
}
my $utf8 = "\xe6\x98\xad\xe5\x92\x8c"; # 昭和
+utf8::decode $utf8;
my $era = Date::Japanese::Era->new($utf8, 52);
is($era->name, $utf8, 'input / output UTF-8');
diff -rup Date-Japanese-Era-0.06-fIF80F/t/01_Jis.t Date-Japanese-Era-0.06-0/t/01_Jis.t
--- Date-Japanese-Era-0.06-fIF80F/t/01_Jis.t 2006-06-14 18:29:36.000000000 -0700
+++ Date-Japanese-Era-0.06-0/t/01_Jis.t 2016-07-21 14:12:24.000000000 -0700
@@ -1,7 +1,8 @@
use strict;
use Test::More tests => 27;
-use encoding "utf-8";
+use utf8;
+use open ':std', ':utf8';
use Date::Japanese::Era 'JIS_X0301';
my @tests = (
