Changeset 6470 for lang/perl/Encode-JP-Mobile

Timestamp:

02/10/08 13:17:44 (5 years ago)

Author:

tokuhirom

Message:

added more tests for vianame

Files:

• lang/perl/Encode-JP-Mobile/trunk/t/charnames.t (modified) (2 diffs)

lang/perl/Encode-JP-Mobile/trunk/t/charnames.t

@@ -2 +2 @@
 use warnings;
 use Data::Dumper;
-use Test::More tests => 32;
+use Test::More tests => 33;
 use Encode;
 
@@ -55 +55 @@
     eval { unicode2name() }; like $@, qr{^missing code}, "validation";
     eval { unicode2name_en() }; like $@, qr{^missing code}, "validation";
+    eval { vianame() }; like $@, qr{^missing name}, "validation";
 
     is Encode::is_utf8("\N{DoCoMo Beer}"),                     1;