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

Timestamp:

03/14/08 09:52:07 (9 months ago)

Author:

daisuke

Message:

lang/perl/Acme-Shukugawa-Atom; add regression for shisu rule, combine cases for 時間and長さ

Location:

lang/perl/Acme-Shukugawa-Atom/trunk

Files:

• lib/Acme/Shukugawa/Atom.pm (modified) (1 diff)
• share/config.yaml (modified) (1 diff)
• t/02_shisu.t (modified) (1 diff)

lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

@@ -135 +135 @@
     return $yomi if $yomi =~ s{^($RE_SYLLABLE)($RE_SYLLABLE)$}{
         my ($a, $b) = ($1, $2);
+        $a =~ s/ー$//;
         $b =~ s/ー$//;
         "${b}ー${a}ー";

lang/perl/Acme-Shukugawa-Atom/trunk/share/config.yaml

@@ -56 +56 @@
     - ['横切る|通り過ぎる', 'ワイプする']
     - ['横切った|通り過ぎた', 'ワイプした']
-    - ['時間が', '尺が']
+    - ['時間|長さ', '尺']
     - ['用意する|準備する', 'しこむ']
     - ['フジテレビ', 'CX']

lang/perl/Acme-Shukugawa-Atom/trunk/t/02_shisu.t

@@ -26 +26 @@
 --- input:    ギター
 --- expected: ターギー
+
+===
+--- input:    テープ
+--- expected: プーテー