Changeset 26538 for lang/perl/Acme-CryptPB

Timestamp:

12/12/08 11:05:53 (4 years ago)

Author:

bayashi

Message:

little fixed and added tests

Location:

lang/perl/Acme-CryptPB/trunk

Files:

• Build.PL (modified) (1 diff)
• Changes (modified) (1 diff)
• META.yml (modified) (3 diffs)
• lib/Acme/CryptPB.pm (modified) (4 diffs)
• t/01.10310.t (modified) (3 diffs)

lang/perl/Acme-CryptPB/trunk/Build.PL

@@ -6 +6 @@
     module_name         => 'Acme::CryptPB',
     license             => 'perl',
-    dist_author         => 'Dai Okabayashi <bayashi@perl.org>',
+    dist_author         => 'Dai Okabayashi <bayashi@cpan.org>',
     dist_version_from   => 'lib/Acme/CryptPB.pm',
     requires => {
         'Test::More' => 0,
         'version'    => 0,
+                'Carp'       => 0,
     },
     add_to_cleanup      => [ 'Acme-CryptPB-*' ],

lang/perl/Acme-CryptPB/trunk/Changes

@@ -1 +1 @@
 Revision history for Acme-CryptPB
 
+1.1.3  Fri Dec 12 11:00:00 2008
+       little fixed and added tests
+           
 1.1.2  Tue Nov 13 13:13:13 2008
        fixed bug.(escape regexp in CryptPB.pm)

lang/perl/Acme-CryptPB/trunk/META.yml

@@ -1 +1 @@
 ---
 name: Acme-CryptPB
-version: 1.1.2
+version: 1.1.3
 author:
-  - 'Dai Okabayashi <bayashi@perl.org>'
+  - 'Dai Okabayashi <bayashi@cpan.org>'
 abstract: For Pocket Bell Generation.
 license: perl
@@ -9 +9 @@
   license: http://dev.perl.org/licenses/
 requires:
+  Carp: 0
   Test::More: 0
   version: 0
@@ -14 +15 @@
   Acme::CryptPB:
     file: lib/Acme/CryptPB.pm
-    version: 1.1.2
+    version: 1.1.3
 generated_by: Module::Build version 0.3
 meta-spec:

lang/perl/Acme-CryptPB/trunk/lib/Acme/CryptPB.pm

@@ -5 +5 @@
 use utf8;
 
-use Carp;
+use Carp qw( croak );
 
-use version; our $VERSION = qv('1.1.2');
+use version; our $VERSION = qv('1.1.3');
 
 my %PUN = (
@@ -44 +44 @@
 {
     my $self = shift;
-    my $str  = shift || return;
+    my $str  = shift;
 
     return $str if $str !~ /[ァ-ンぁ-んヴ]/;
-    croak 'require utf8 flagged string' unless utf8::is_utf8($str);
 
     # hankaku katakana -> zenkaku katakana
@@ -81 +80 @@
 {
     my $self = shift;
-    my $char = shift || return;
+    my $char = shift;
 
     return $self->{pun}->{$char};
@@ -148 +147 @@
 =head1 AUTHOR
 
-Copyright (c) 2008, Dai Okabayashi C<< <bayashi@perl.org> >>
+Copyright (c) 2008, Dai Okabayashi C<< <bayashi@cpan.org> >>
 
 

lang/perl/Acme-CryptPB/trunk/t/01.10310.t

@@ -2 +2 @@
 use utf8;
 
-use Test::More tests => 12;
+use Test::More tests => 18;
 
 use Acme::CryptPB;
@@ -8 +8 @@
 my $pb = Acme::CryptPB->new();
 
-is($pb->get_pun('う'), '0',    "get_pun hiragana");
+is($pb->get_pun(''),    undef, "get_pun no string");
+is($pb->get_pun('う'), '0',     "get_pun hiragana");
 is($pb->get_pun('ウ'),  undef, "get_pun katakana");
 is($pb->get_pun('漢'),  undef, "get_pun kanji");
 is($pb->get_pun('*'),   undef, "get_pun kigou");
+
+is(
+    $pb->pbnize(''),
+    '',
+    "pbnize no string"
+);
+
+is(
+    $pb->pbnize('This is test'),
+    'This is test',
+    "exclusive of HIRAGANA"
+);
+
+my $str = 'おはよう';
+utf8::encode($str);
+is(
+    $pb->pbnize($str),
+    $str,
+    "no flag string"
+);
 
 is(
@@ -63 +84 @@
 );
 
+eval { $pb->set_pun(''); };
+like($@, qr/set by hash ref!/, 'set_pun : not hash ref');
 
+eval { $pb->set_pun('hoge'); };
+like($@, qr/set by hash ref!/, 'set_pun : not hash ref 2');
+