diff --git a/lib/DenshiJisho/Lingua.pm b/lib/DenshiJisho/Lingua.pm index 51c1e3c..dd7a99c 100644 --- a/lib/DenshiJisho/Lingua.pm +++ b/lib/DenshiJisho/Lingua.pm @@ -125,7 +125,7 @@ sub romaji_to_kana { $mora = $ROMAJI_TO_KANA->{$for_conversion}; } elsif ( $for_conversion eq 'tch' - || ( $length == 2 && $for_conversion =~ /([kgsztdnbpmyrlw])\1/ ) + || ( $length == 2 && $for_conversion =~ /([kgsztdnbpmyrlwc])\1/ ) ) { # tch and double-consonants for small tsu $mora = $H_SMALL_TSU; diff --git a/t/04denshijisho_lingua.t b/t/04denshijisho_lingua.t index 130c6ac..09c19e9 100644 --- a/t/04denshijisho_lingua.t +++ b/t/04denshijisho_lingua.t @@ -1,7 +1,7 @@ use strict; use warnings; use utf8; -use Test::More tests => 37; +use Test::More tests => 39; my $KATAKANA = "ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヴヵヶ"; my $HIRAGANA = "ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんゔゕゖ"; @@ -28,6 +28,7 @@ BEGIN { use_ok 'DenshiJisho::Lingua' } is( romaji_to_kana('katchatta'), 'かっちゃった' ); is( romaji_to_kana('kawwaiixi'), 'かっわいいぃ' ); is( romaji_to_kana('ottosei'), 'おっとせい' ); + is( romaji_to_kana('acchi'), 'あっち' ); # Katakana is( romaji_to_kana('KANADESU'), 'カナデス' ); @@ -39,6 +40,7 @@ BEGIN { use_ok 'DenshiJisho::Lingua' } is( romaji_to_kana('KATCHATTA'), 'カッチャッタ' ); is( romaji_to_kana('KAWWAIIXI'), 'カッワイイィ' ); is( romaji_to_kana('OTTOSEI'), 'オットセイ' ); + is( romaji_to_kana('ACCHI'), 'アッチ' ); is( romaji_to_kana('KATAKANA desu'),'カタカナ です' ); # Non-Japanese @@ -81,4 +83,4 @@ BEGIN { use_ok 'DenshiJisho::Lingua' } is_deeply( [make_sql_wildcards(\@simple_tokens, '', '%')], ['some%', 'tokens%'] ); is_deeply( [make_sql_wildcards(\@simple_tokens, '%', '%')], ['%some%', '%tokens%'] ); is_deeply( [make_sql_wildcards(\@complicated_tokens)], ['some%', '%token', '_wo_ds\%\_'] ); -} \ No newline at end of file +}