Changeset 3559 for lang

Timestamp:

12/25/07 14:54:00 (5 years ago)

Author:

tokuhirom

Message:

autobox::Encode: support is_utf8

Location:

lang/perl/autobox-Encode/trunk

Files:

• . (modified) (1 prop)
• lib/autobox/Encode.pm (modified) (1 diff)
• t/01_simple.t (modified) (2 diffs)

lang/perl/autobox-Encode/trunk/lib/autobox/Encode.pm

@@ -10 +10 @@
 sub encode { Encode::encode($_[1], $_[0], $_[2]) }
 sub decode { Encode::decode($_[1], $_[0], $_[2]) }
+sub is_utf8 { Encode::is_utf8($_[0]) }
 
 1;

lang/perl/autobox-Encode/trunk/t/01_simple.t

@@ -4 +4 @@
 use autobox::Encode;
 use Encode ();
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 ok Encode::is_utf8('あいうえお'->decode('utf-8'));
@@ -10 +10 @@
 is uc(unpack "H*", 'あいうえお'->decode('utf-8')->encode('euc-jp')), "A4A2A4A4A4A6A4A8A4AA";
 is 'あいうえお'->decode('utf-8')->encode('ascii', Encode::FB_PERLQQ), '\x{3042}\x{3044}\x{3046}\x{3048}\x{304a}';
+ok 'あいうえお'->decode('utf-8')->is_utf8;
+ok not 'あいうえお'->is_utf8;