Changeset 7885 for lang/perl/Acme-Shukugawa-Atom

Timestamp:

03/13/08 15:51:24 (9 months ago)

Author:

typester

Message:

Acme-Shukugawa-Atom: use Test::Base!

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

• Makefile.PL (modified) (1 diff)
• t/01_basic.t (modified) (1 diff)

lang/perl/Acme-Shukugawa-Atom/trunk/Makefile.PL

@@ -7 +7 @@
 requires('Encode');
 
+use_test_base;
+
 auto_install;
 WriteAll;

lang/perl/Acme-Shukugawa-Atom/trunk/t/01_basic.t

@@ -1 @@
-use strict;
+use Test::Base;
 use utf8;
-use Test::More (tests => 8);
 
-BEGIN
-{
-    use_ok("Acme::Shukugawa::Atom");
+plan tests => 1 + 1 * blocks;
+
+use_ok("Acme::Shukugawa::Atom");
+
+
+sub translate {
+    Acme::Shukugawa::Atom->translate(shift);
 }
 
-my %data = (
-    "六本木の胸の大きいお姉さんがいる店を予約した"
-        => "ギロッポンのパイオツカイデーチャンネーがルーイーセーミーをバミった",
-    "ハワイ" => "ワイハー",
-    "銀座で午前0時に寿司行こう" => "ザギンでテッペンにシースーコウイー",
-    "狼" => "カミオー",
-#     "鋏" => "サミハー", <- mecabの辞書にない？
-    "おばあさんの口はどうして大きいの？" =>
-        "チャンバーのチークーはどうしてカイデー？",
-    "別にdankogaiはエヌジーというわけではない" => 
-        "ジリサワゴネタガイダンコはジーエヌというケーワーではない",
-    "びっくり" => "クリビツ",
-);
+filters {
+    input => 'translate',
+};
 
-while (my($orig, $expected) = each %data) {
-    is( Acme::Shukugawa::Atom->translate($orig), $expected );
-}
+run_is;
+
+__DATA__
+
+===
+--- input:    六本木の胸の大きいお姉さんがいる店を予約した
+--- expected: ギロッポンのパイオツカイデーチャンネーがルーイーセーミーをバミった
+
+===
+--- input:    ハワイ
+--- expected: ワイハー
+
+===
+--- input:    寿司
+--- expected: シースー
+
+===
+--- input:    銀座で午前0時に寿司行こう
+--- expected: ザギンでテッペンにシースーコウイー
+
+===
+--- input:    狼
+--- expected: カミオー
+
+===
+--- SKIP
+# mecabの辞書にない？
+--- input:    鋏
+--- expected: サミハー
+
+===
+--- input:    おばあさんの口はどうして大きいの？
+--- expected: チャンバーのチークーはどうしてカイデー？
+
+===
+--- input:    別にdankogaiはエヌジーというわけではない
+--- expected: ジリサワゴネタガイダンコはジーエヌというケーワーではない
+
+===
+--- input:    びっくり
+--- expected: クリビツ