Permalink
Browse files

perl5.12 以後でフラッグの扱いがちがうので、この部分は、一貫性をたもてているかどうかをチェックするにとどめる。

つまり、以下のワンライナーの結果が 5.10.0 と 5.12.0 でちがう。

perl -E 'use bytes; use charnames ":full"; say(utf8::is_utf8("¥N{DIGIT SIX}") ? 1 : 0)'
  • Loading branch information...
1 parent 43141d9 commit fa80f95cdaed15f83accc6a5a8356faa8784bef1 tokuhirom committed May 8, 2010
Showing with 3 additions and 3 deletions.
  1. +3 −3 t/charnames.t
View
@@ -1,7 +1,7 @@
use strict;
use warnings;
use Data::Dumper;
-use Test::More tests => 35;
+use Test::More tests => 34;
use Encode;
my @WARN;
@@ -71,12 +71,12 @@ BEGIN {
use charnames ':full';
- is Encode::is_utf8("\N{DIGIT SIX}") ? 'true' : 'false', 'false';
+ my $orig = Encode::is_utf8("\N{DIGIT SIX}") ? 'true' : 'false';
ok "\N{DIGIT SIX}" eq '6';
use Encode::JP::Mobile::Charnames;
- is Encode::is_utf8("\N{DIGIT SIX}") ? 'true' : 'false', 'false';
+ is Encode::is_utf8("\N{DIGIT SIX}") ? 'true' : 'false', $orig, 'check consistency';
ok "\N{DIGIT SIX}" eq '6';
}

0 comments on commit fa80f95

Please sign in to comment.