Changeset 32228

Timestamp:

04/10/09 16:32:09 (4 years ago)

Author:

tokuhirom

Message:

added test case for utf8 flag

Files:

• lang/perl/Geography-JapanesePrefectures/trunk/t/TestJP.pm (modified) (1 diff)

lang/perl/Geography-JapanesePrefectures/trunk/t/TestJP.pm

@@ -12 +12 @@
 }
 
-sub test_regions : Test(1) {
+sub test_regions : Test(2) {
     my ( $self, ) = @_;
 
     is( scalar( Geography::JapanesePrefectures->regions ), 11 );
+    my @regions = Geography::JapanesePrefectures->regions;
+    ok !utf8::is_utf8($regions[0]);
 }