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

Timestamp:

03/16/08 10:06:29 (5 years ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; rearrange tests

Location:

lang/perl/Acme-Shukugawa-Atom/trunk/t

Files:

• 01_basic.t (modified) (2 diffs)
• 03_waiha.t (modified) (1 diff)
• 04_kuribitsu.t (modified) (1 diff)

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

@@ -24 +24 @@
 
 ===
---- input:    ハワイ
---- expected: ワイハー
-
-===
---- input:    寿司
---- expected: シースー
-
-===
 --- input:    銀座で午前0時に寿司行こう
 --- expected: ザギンでテッペンにシースーコウイー
-
-===
---- input:    狼
---- expected: カミオー
-
-===
---- SKIP
-# mecabの辞書にない？
---- input:    鋏
---- expected: サミハー
 
 ===
@@ -56 +38 @@
 --- input:    別にdankogaiはエヌジーというわけではない
 --- expected: ジリサワゴネタガイダンコはジーエヌというケーワーではない
-
-===
---- input:    びっくり
---- expected: クリビツ
 
 ===

lang/perl/Acme-Shukugawa-Atom/trunk/t/03_waiha.t

@@ -1 @@
-use strict;
-use Test::More (skip_all => "Maybe later");
+use Test::Base;
+use utf8;
+
+plan tests => 1 + 1 * blocks;
+
+use_ok("Acme::Shukugawa::Atom");
+
+
+sub translate {
+    Acme::Shukugawa::Atom->translate(shift);
+}
+
+filters {
+    input => 'translate',
+};
+
+run_is;
+
+__DATA__
+
+===
+--- input:    ハワイ
+--- expected: ワイハー
+
+===
+--- input:    狼
+--- expected: カミオー
+
+===
+--- SKIP
+# mecabの辞書にない？
+--- input:    鋏
+--- expected: サミハー
+
+

lang/perl/Acme-Shukugawa-Atom/trunk/t/04_kuribitsu.t

@@ -20 +20 @@
 
 ===
+--- input:    びっくり
+--- expected: クリビツ
+
+===
 --- input: 照明
 --- expected: メイショー