sekka 0.8.0

data/test/jisyo.nnd

@@ -0,0 +1,94 @@
+;;-*- mode: nendo; syntax: scheme -*-
+;;;
+;;; jisyo.nnd - SKK-JISYO形式からSEKKA-JISYO形式への変換部のテストスイート
+;;;  
+;;;   Copyright (c) 2010  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+;;;   
+;;;   Redistribution and use in source and binary forms, with or without
+;;;   modification, are permitted provided that the following conditions
+;;;   are met:
+;;;   
+;;;   1. Redistributions of source code must retain the above copyright
+;;;      notice, this list of conditions and the following disclaimer.
+;;;  
+;;;   2. Redistributions in binary form must reproduce the above copyright
+;;;      notice, this list of conditions and the following disclaimer in the
+;;;      documentation and/or other materials provided with the distribution.
+;;;  
+;;;   3. Neither the name of the authors nor the names of its contributors
+;;;      may be used to endorse or promote products derived from this
+;;;      software without specific prior written permission.
+;;;  
+;;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;  
+;;;  $Id: 
+;;;
+(use nendo.test)
+(use sekka.convert-jisyo)
+
+(define debug-print-length 10000)
+
+(test-start "jisyo converter")
+
+;;===================================================================
+
+;;-------------------------------------------------------------------
+(test-section "SKK2Sekka Convert")
+
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りなし1)"
+       '(("ai" . "Cあい") ("あい" . "/愛/哀/相/挨"))
+       (expand-okuri-nashi-entry "あい" "/愛/哀/相/挨"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りなし2)"
+       '(("un" . "Cうん") ("unn" . "Cうん") ("uq" . "Cうん") ("うん" . "/云/運/雲"))
+       (expand-okuri-nashi-entry "うん" "/云/運/雲"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りなし3)"
+       '(("ko-hi-" . "Cこーひー") ("ko-hi:" . "Cこーひー") ("ko-hi^" . "Cこーひー") ("ko:hi-" . "Cこーひー") ("ko:hi:" . "Cこーひー") ("ko:hi^" . "Cこーひー") ("ko^hi-" . "Cこーひー") ("ko^hi:" . "Cこーひー") ("ko^hi^" . "Cこーひー") ("こーひー" . "/コーヒー"))
+       (expand-okuri-nashi-entry "こーひー" "/コーヒー"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りなし4)"
+       '(("ka;ko" . "Cかっこ") ("ka@ko" . "Cかっこ") ("kakko" . "Cかっこ") ("かっこ" . "/確固/括弧/各個/各戸/確乎/羯鼓;雅楽の打楽器/格好/『/』;二重鉤括弧"))
+       (expand-okuri-nashi-entry "かっこ" "/確固/括弧/各個/各戸/確乎/羯鼓;雅楽の打楽器/格好/『/』;二重鉤括弧"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りなし5)"
+       #f
+       (expand-okuri-nashi-entry "すたんでぃんぐおべーしょん" "/スタンディングオベーション"))
+
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りあり1)"
+       '(("shiroI" . "Cしろi") ("siroI" . "Cしろi") ("しろi" . "/白"))
+       (expand-okuri-ari-entry   "しろ" "i" "/白"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りあり2)"
+       '(("kaK" . "Cかk") ("かk" . "/書/掛/欠/架/駆/懸"))
+       (expand-okuri-ari-entry   "か" "k" "/書/掛/欠/架/駆/懸"))
+(test* "expanding SKK(1) entry to SEKKA(n) entry. (送りあり3)"
+       '(("kaT" . "Cかt") ("かt" . "/勝/買/飼/刈;(crop)草を刈る/狩;(hunt)兎を狩る/且;-つて/駆;バイクを駆って/交;飛び交って/克;(overcome) 逆境に克つ/糅;-てて加えて/苅;「刈」の異体字/驅;「駆」の旧字/支;ささえる/上;(尺八の)カリ⇔減り(メリ)/搗") ("ka`" . "Cか`") ("か`" . "/勝/買/飼/刈;(crop)草を刈る/狩;(hunt)兎を狩る/且;-つて/駆;バイクを駆って/交;飛び交って/克;(overcome) 逆境に克つ/糅;-てて加えて/苅;「刈」の異体字/驅;「駆」の旧字/支;ささえる/上;(尺八の)カリ⇔減り(メリ)/搗") ("ka+" . "Cか+") ("か+" . "/勝/買/飼/刈;(crop)草を刈る/狩;(hunt)兎を狩る/且;-つて/駆;バイクを駆って/交;飛び交って/克;(overcome) 逆境に克つ/糅;-てて加えて/苅;「刈」の異体字/驅;「駆」の旧字/支;ささえる/上;(尺八の)カリ⇔減り(メリ)/搗"))
+       (expand-okuri-ari-entry   "か" "t" "/勝/買/飼/刈;(crop)草を刈る/狩;(hunt)兎を狩る/且;-つて/駆;バイクを駆って/交;飛び交って/克;(overcome) 逆境に克つ/糅;-てて加えて/苅;「刈」の異体字/驅;「駆」の旧字/支;ささえる/上;(尺八の)カリ⇔減り(メリ)/搗"))
+
+(let1 _input (StringIO.new
+              (string-join
+               '(
+                 ";; コメント"
+                 ";; コメント コメント コメント コメント コメント "
+                 "しろi /白/"
+                 "あい /愛/哀/相/挨/"
+                 "Greek /Α/Β/Γ/Δ/Ε/Ζ/Η/Θ/Ι/Κ/Λ/Μ/Ν/Ξ/Ο/Π/Ρ/Σ/Τ/Υ/Φ/Χ/Ψ/Ω/"
+                 ">あん /案/"
+                 ">やすi /易/"
+                 "! /！/感嘆符/"
+                 "? /？/"
+                 "こーひー /コーヒー/"
+                 )
+               "\n"))
+  (test* "convert SKK file to SEKKA jisyo file. (1)"
+         '("shiroI Cしろi" "siroI Cしろi" "しろi /白" "ai Cあい" "あい /愛/哀/相/挨" "Greek /Α/Β/Γ/Δ/Ε/Ζ/Η/Θ/Ι/Κ/Λ/Μ/Ν/Ξ/Ο/Π/Ρ/Σ/Τ/Υ/Φ/Χ/Ψ/Ω" ">an C>あん" ">ann C>あん" ">aq C>あん" ">あん /案" ">yasuI C>やすi" ">やすi /易" "! /！/感嘆符" "? /？" "ko-hi- Cこーひー" "ko-hi: Cこーひー" "ko-hi^ Cこーひー" "ko:hi- Cこーひー" "ko:hi: Cこーひー" "ko:hi^ Cこーひー" "ko^hi- Cこーひー" "ko^hi: Cこーひー" "ko^hi^ Cこーひー" "こーひー /コーヒー")
+         (convert-skk-jisyo-f _input)))
+
+;;===================================================================
+(test-end)

data/test/roman-lib.nnd

@@ -0,0 +1,422 @@
+;;-*- mode: nendo; syntax: scheme -*-
+;;;
+;;; roman-lib.nnd - ローマ字ライブラリ部のテストスイート
+;;;  
+;;;   Copyright (c) 2010  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+;;;   
+;;;   Redistribution and use in source and binary forms, with or without
+;;;   modification, are permitted provided that the following conditions
+;;;   are met:
+;;;   
+;;;   1. Redistributions of source code must retain the above copyright
+;;;      notice, this list of conditions and the following disclaimer.
+;;;  
+;;;   2. Redistributions in binary form must reproduce the above copyright
+;;;      notice, this list of conditions and the following disclaimer in the
+;;;      documentation and/or other materials provided with the distribution.
+;;;  
+;;;   3. Neither the name of the authors nor the names of its contributors
+;;;      may be used to endorse or promote products derived from this
+;;;      software without specific prior written permission.
+;;;  
+;;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;  
+;;;  $Id: 
+;;;
+(use nendo.test)
+(use sekka.roman-lib)
+(test-start "roman-lib")
+
+;;===================================================================
+
+;;-------------------------------------------------------------------
+(test-section "upcase and downcase conversion")
+(test* "downcase 1"
+       "aabbccddeeffgg"
+       (sekka-downcase "aAbBcCdDeEfFgG"))
+(test* "downcase 2"
+       "aaa@@@@@@bbb"
+       (sekka-downcase "AAA@@@```BBB"))
+(test* "downcase 3"
+       "aaa;;;;;;bbb"
+       (sekka-downcase "AAA+++;;;BBB"))
+(test* "upcase 1"
+       "AABBCCDDEEFFGG"
+       (sekka-upcase "aAbBcCdDeEfFgG"))
+(test* "upcase 2"
+       "AAA``````BBB"
+       (sekka-upcase "AAA@@@```BBB"))
+(test* "upcase 2"
+       "AAA++++++BBB"
+       (sekka-upcase "AAA+++;;;BBB"))
+
+
+;;-------------------------------------------------------------------
+(test-section "kana->roman conversion hash (short)")
+
+(test* "kana->roman 1"
+       '("fu" "hu")
+       (hash-table-get sekka-kana->roman-hash-short "ふ" #f))
+(test* "kana->roman 2"
+       '("la")
+       (hash-table-get sekka-kana->roman-hash-short "ぁ" #f))
+(test* "kana->roman 3"
+       '("chi" "tyi" "ti")
+       (hash-table-get sekka-kana->roman-hash-short "ち" #f))
+(test* "kana->roman 4"
+       '("tt" "@" ";" "ltu")
+       (hash-table-get sekka-kana->roman-hash-short "っ" #f))
+(test* "kana->roman 5"
+       '("-" "^" ":")
+       (hash-table-get sekka-kana->roman-hash-short "ー" #f))
+
+;;-------------------------------------------------------------------
+(test-section "kana->roman conversion hash (long)")
+
+(test* "kana->roman 1"
+       '("kz" "kn")
+       (hash-table-get sekka-kana->roman-hash-long "かん" #f))
+(test* "kana->roman 2"
+       '("kt")
+       (hash-table-get sekka-kana->roman-hash-long "こと" #f))
+(test* "kana->roman 3"
+       '("ffu" "hhu" "@fu" "@hu" ";fu" ";hu")
+       (hash-table-get sekka-kana->roman-hash-long "っふ" #f))
+
+;;-------------------------------------------------------------------
+(test-section "roman->kana conversion hash (short)")
+
+(test* "roman->kana 1"
+       '("あ")
+       (hash-table-get sekka-roman->kana-hash-short "a" #f))
+(test* "roman->kana 2"
+       '("っぎゃ")
+       (hash-table-get sekka-roman->kana-hash-short "ggya" #f))
+(test* "roman->kana 3"
+       '("し")
+       (hash-table-get sekka-roman->kana-hash-short "si" #f))
+(test* "roman->kana 4"
+       '("ー")
+       (hash-table-get sekka-roman->kana-hash-short "-" #f))
+(test* "roman->kana 5"
+       '("ー")
+       (hash-table-get sekka-roman->kana-hash-short ":" #f))
+(test* "roman->kana 6"
+       '("っ")
+       (hash-table-get sekka-roman->kana-hash-short "ltu" #f))
+(test* "roman->kana 7"
+       '("っ")
+       (hash-table-get sekka-roman->kana-hash-short "@" #f))
+(test* "roman->kana 8"
+       '("っ")
+       (hash-table-get sekka-roman->kana-hash-short ";" #f))
+
+;;-------------------------------------------------------------------
+(test-section "roman->kana conversion hash (long)")
+
+(test* "roman->kana 1"
+       '("かん")
+       (hash-table-get sekka-roman->kana-hash-long "kn" #f))
+(test* "roman->kana 2"
+       '("かん")
+       (hash-table-get sekka-roman->kana-hash-long "kz" #f))
+(test* "roman->kana 3"
+       '("こと")
+       (hash-table-get sekka-roman->kana-hash-long "kt" #f))
+(test* "roman->kana 4"
+       '("です")
+       (hash-table-get sekka-roman->kana-hash-long "ds" #f))
+(test* "roman->kana 5"
+       '("ます")
+       (hash-table-get sekka-roman->kana-hash-long "ms" #f))
+(test* "roman->kana 6"
+       '("なん")
+       (hash-table-get sekka-roman->kana-hash-long "nz" #f))
+(test* "roman->kana 7"
+       '("ふぉん")
+       (hash-table-get sekka-roman->kana-hash-long "fl" #f))
+
+;;-------------------------------------------------------------------
+(test-section "hiragana<->katanaka conversion functions")
+
+(test* "hiragana->katakana 1"
+       "アイウエオーァィゥェォッ"
+       (gen-hiragana->katakana "あいうえおーぁぃぅぇぉっ"))
+(test* "hiragana->katakana 2"
+       "パイナップル"
+       (gen-hiragana->katakana "ぱいなっぷる"))
+(test* "hiragana->katakana 3"
+       "アメニモマケズ"
+       (gen-hiragana->katakana "あめにもまけず"))
+
+(test* "hiragana->katakana 1"
+       "あいうえおーぁぃぅぇぉっ"
+       (gen-katakana->hiragana "アイウエオーァィゥェォッ"))
+(test* "hiragana->katakana 2"
+       "ありがとうございます"
+       (gen-katakana->hiragana "アリガトウゴザイマス"))
+(test* "hiragana->katakana 3"
+       "いろはにほへとちりぬるを"
+       (gen-katakana->hiragana "イロハニホヘトチリヌルヲ"))
+
+(test* "is katakana 1"
+       #t
+       (is-katakana "アメニモマケズ"))
+(test* "is katakana 2"
+       #f
+       (is-katakana "englishア"))
+(test* "is katakana 3"
+       #f
+       (is-katakana "アenglish"))
+(test* "is katakana 4"
+       #f
+       (is-katakana "engアlish"))
+(test* "is katakana 5"
+       #f
+       (is-katakana "あア"))
+(test* "is katakana 6"
+       #f
+       (is-katakana "アメニEモマケズ"))
+(test* "is katakana 7"
+       #t
+       (is-katakana "コーヒー"))
+(test* "is hiragana 1"
+       #t
+       (is-hiragana "ひらがなのぶんしょう"))
+(test* "is hiragana 2"
+       #f
+       (is-hiragana "ひらがなノぶんしょう"))
+(test* "is hiragana 3"
+       #f
+       (is-hiragana "Eひらがなのぶんしょう"))
+(test* "is hiragana 4"
+       #f
+       (is-hiragana "ひらがなEのぶんしょう"))
+(test* "is hiragana 5"
+       #f
+       (is-hiragana "ひらがなのぶんしょうE"))
+(test* "is hiragana 6"
+       #f
+       (is-hiragana "あア"))
+(test* "is hiragana 7"
+       #t
+       (is-hiragana "こーひー"))
+(test* "is hiragana-and-okuri 1"
+       #t
+       (is-hiragana-and-okuri "あr"))
+(test* "is hiragana-and-okuri 2"
+       #f
+       (is-hiragana-and-okuri "あ"))
+(test* "is hiragana-and-okuri 3"
+       #t
+       (is-hiragana-and-okuri "おこなu"))
+(test* "is hiragana-and-okuri 4"
+       #f
+       (is-hiragana-and-okuri "おこなU"))
+(test* "is hiragana-and-okuri 5"
+       #f
+       (is-hiragana-and-okuri "a"))
+(test* "is hiragana-and-okuri 6"
+       #f
+       (is-hiragana-and-okuri "au"))
+(test* "is hiragana-and-okuri 7"
+       #f
+       (is-hiragana-and-okuri "1"))
+(test* "is hiragana-and-okuri 8"
+       #f
+       (is-hiragana-and-okuri "123"))
+
+;;-------------------------------------------------------------------
+(test-section "drop okurigana functions")
+(test* "drop okri 1"
+       "行"
+       (drop-okuri "行う"))
+(test* "drop okri 2"
+       "行"
+       (drop-okuri "行なう"))
+(test* "drop okri 3"
+       "見"
+       (drop-okuri "見る"))
+(test* "drop okri 4"
+       "変化"
+       (drop-okuri "変化する"))
+(test* "drop okri 5"
+       "見付"
+       (drop-okuri "見付ける"))
+
+;;-------------------------------------------------------------------
+(test-section "kana->roman conversion functions")
+
+(let1 hira-list
+    (hash-table-keys sekka-kana->roman-hash-long)
+  (test* "kana->roman table length"        402 (length hira-list))
+  (test* "kana->roman key duplicate check" 402 (length (uniq (sort hira-list)))))
+
+(test* "hiragana -> roman-pattern0"
+       '(
+         (("ka") ("nn" "n" "q"))
+         (("kz" "kn")))
+       (gen-hiragana->roman-pattens "かん"))
+(test* "hiragana -> roman-pattern1"
+       '(
+         (("ka") ("nn" "n" "q") ("ji" "zi"))
+         (("kz" "kn") ("ji" "zi")))
+       (gen-hiragana->roman-pattens "かんじ"))
+(test* "hiragana -> roman-pattern2"
+       '(
+         (("he") ("nn" "n" "q") ("ka") ("nn" "n" "q"))
+         (("hd") ("kz" "kn")))
+       (gen-hiragana->roman-pattens "へんかん"))
+(test* "hiragana -> roman-pattern3"
+       '(
+         (("ka") ("nn" "n" "q") ("ji" "zi") ("he") ("nn" "n" "q") ("ka") ("nn" "n" "q"))
+         (("kz" "kn") ("ji" "zi") ("hd") ("kz" "kn")))
+       (gen-hiragana->roman-pattens "かんじへんかん"))
+(test* "hiragana -> roman-pattern4"
+       '((("shi" "si") ("ze") ("nn" "n" "q") ("ge") ("nn" "n" "q") ("go") ("sho" "syo" "xo") ("ri"))
+         (("shi" "si") ("zd") ("gd") ("go") ("sho" "syo" "xo") ("ri")))
+       (gen-hiragana->roman-pattens "しぜんげんごしょり"))
+(test* "hiragana -> roman-pattern5"
+       '((("ka") ("kko" "@ko" ";ko")))
+       (gen-hiragana->roman-pattens "かっこ"))
+
+(test* "patterns -> roman-list1"
+       '("kanji" "kannji" "kannzi" "kanzi" "kaqji" "kaqzi" "knji" "knzi" "kzji" "kzzi")
+       (patterns->roman-list  '(
+                                (("ka") ("nn" "n" "q") ("ji" "zi"))
+                                (("kz" "kn") ("ji" "zi")))))
+        
+(test* "patterns -> roman-list2"
+       '("shizdgdgoshori" "shizdgdgosyori" "shizdgdgoxori" "shizengengoshori" "shizengengosyori" "shizengengoxori" "shizengenngoshori" "shizengenngosyori" "shizengenngoxori" "shizengeqgoshori" "shizengeqgosyori" "shizengeqgoxori" "shizenngengoshori" "shizenngengosyori" "shizenngengoxori" "shizenngenngoshori" "shizenngenngosyori" "shizenngenngoxori" "shizenngeqgoshori" "shizenngeqgosyori" "shizenngeqgoxori" "shizeqgengoshori" "shizeqgengosyori" "shizeqgengoxori" "shizeqgenngoshori" "shizeqgenngosyori" "shizeqgenngoxori" "shizeqgeqgoshori" "shizeqgeqgosyori" "shizeqgeqgoxori" "sizdgdgoshori" "sizdgdgosyori" "sizdgdgoxori" "sizengengoshori" "sizengengosyori" "sizengengoxori" "sizengenngoshori" "sizengenngosyori" "sizengenngoxori" "sizengeqgoshori" "sizengeqgosyori" "sizengeqgoxori" "sizenngengoshori" "sizenngengosyori" "sizenngengoxori" "sizenngenngoshori" "sizenngenngosyori" "sizenngenngoxori" "sizenngeqgoshori" "sizenngeqgosyori" "sizenngeqgoxori" "sizeqgengoshori" "sizeqgengosyori" "sizeqgengoxori" "sizeqgenngoshori" "sizeqgenngosyori" "sizeqgenngoxori" "sizeqgeqgoshori" "sizeqgeqgosyori" "sizeqgeqgoxori")
+       (patterns->roman-list  '(
+                                (("shi" "si") ("ze") ("nn" "n" "q") ("ge") ("nn" "n" "q") ("go") ("sho" "syo" "xo") ("ri"))
+                                (("shi" "si") ("zd") ("gd") ("go") ("sho" "syo" "xo") ("ri")))))
+                              
+(test* "hiragana -> roman-list1"
+       '("kanji" "kannji" "kannzi" "kanzi" "kaqji" "kaqzi" "knji" "knzi" "kzji" "kzzi")
+       (gen-hiragana->roman-list "かんじ"))
+
+(test* "hiragana -> roman-list2"
+       '("nishiyama" "nisiyama")
+       (gen-hiragana->roman-list "にしやま"))
+
+(test* "hiragana -> roman-list3"
+       '("toukgou" "toukyou" "tpkgou" "tpkyou")
+       (gen-hiragana->roman-list "とうきょう"))
+
+(test* "hiragana -> roman-list4"
+       '("ko-hi-" "ko-hi:" "ko-hi^" "ko:hi-" "ko:hi:" "ko:hi^" "ko^hi-" "ko^hi:" "ko^hi^")
+       (gen-hiragana->roman-list "こーひー"))
+
+(test* "hiragana -> roman-list5"
+       '("tsumiki" "tumiki")
+       (gen-hiragana->roman-list "つみき"))
+
+
+;;-------------------------------------------------------------------
+(test-section "roman->kana conversion functions")
+(test* "roman -> hiragana 1"
+       '("つみき")
+       (gen-roman->hiragana "tsumiki" :normal))
+(test* "roman -> hiragana 2"
+       '("こーひー")
+       (gen-roman->hiragana "ko-hi-" :normal))
+(test* "roman -> hiragana 3"
+       '("かんじ" "かぬんい")
+       (gen-roman->hiragana "kanji" :normal))
+(test* "roman -> hiragana 4"
+       '("かぬんい" "かんじ")
+       (gen-roman->hiragana "kanji" :azik))
+(test* "roman -> hiragana 5"
+       '("かんじ")
+       (gen-roman->hiragana "kannji" :normal))
+(test* "roman -> hiragana 6"
+       '("ちゃんじ" "ちゃなんい")
+       (gen-roman->hiragana "canzi" :normal))
+(test* "roman -> hiragana 7"
+       '("ちゃなんい" "ちゃんじ")
+       (gen-roman->hiragana "canzi" :azik))
+(test* "roman -> hiragana 8"
+       '("とうきょうとっきょきょかきょく")
+       (gen-roman->hiragana "toukyoutokkyokyokakyoku" :normal))
+(test* "roman -> hiragana 9"
+       '("はっぴょうってきょうかぁ")
+       (gen-roman->hiragana "happyouttekyoukala" :normal))
+(test* "roman -> hiragana 10"
+       '("はっぴょうってきょうかぁ")
+       (gen-roman->hiragana "ha@pyou@tekyoukala" :normal))
+(test* "roman -> hiragana 11"
+       '("かんじ")
+       (gen-roman->hiragana "knji" :normal))
+(test* "roman -> hiragana 12"
+       '("かっこ")
+       (gen-roman->hiragana "ka@ko" :normal))
+(test* "roman -> hiragana 13"
+       '("こーひー")
+       (gen-roman->hiragana "ko:hi:" :normal))
+(test* "roman -> hiragana 14"
+       '()
+       (gen-roman->hiragana "b" :normal))
+(test* "roman -> hiragana 15"
+       '("んんんん")
+       (gen-roman->hiragana "nnqnnq" :normal))
+(test* "roman -> hiragana 16"
+       '("んんんん" "ないない")
+       (gen-roman->hiragana "nqnq" :normal))
+(test* "roman -> hiragana 17"
+       '("ないない" "んんんん")
+       (gen-roman->hiragana "nqnq" :azik))
+(test* "roman -> hiragana 18"
+       '("そうです")
+       (gen-roman->hiragana "spds" :normal))
+(test* "roman -> hiragana 19"
+       '("そうです")
+       (gen-roman->hiragana "spds" :azik))
+(test* "roman -> hiragana 20"
+       '("もうしょ")
+       (gen-roman->hiragana "mpxo" :normal))
+(test* "roman -> hiragana 21"
+       '("もうしょ")
+       (gen-roman->hiragana "mpxo" :azik))
+(test* "roman -> hiragana 22"
+       '("ものこと")
+       (gen-roman->hiragana "mnkt" :normal))
+(test* "roman -> hiragana 23"
+       '("ものこと")
+       (gen-roman->hiragana "mnkt" :azik))
+(test* "roman -> hiragana 24"
+       '("しぜんげんごしょり" "しぜにぇにょしょり")
+       (gen-roman->hiragana "shizengengosyori" :normal))
+(test* "roman -> hiragana 25"
+       '("しぜにぇにょしょり" "しぜんげんごしょり")
+       (gen-roman->hiragana "shizengengosyori" :azik))
+(test* "roman -> hiragana 26"
+       '("しぜんげんごしょり")
+       (gen-roman->hiragana "shizenngenngosyori" :normal))
+(test* "roman -> hiragana 27"
+       '("かっこ")
+       (gen-roman->hiragana "ka@ko" :normal))
+(test* "roman -> hiragana 28"
+       '("かった")
+       (gen-roman->hiragana "ka@ta" :normal))
+(test* "roman -> hiragana 29"
+       '("かっこ")
+       (gen-roman->hiragana "ka;ko" :normal))
+(test* "roman -> hiragana 30"
+       '("かった")
+       (gen-roman->hiragana "ka;ta" :normal))
+
+
+
+;;===================================================================
+(test-end)

data/test/util.nnd

@@ -0,0 +1,100 @@
+;;-*- mode: nendo; syntax: scheme -*-
+;;;
+;;; util.nnd - ユーティリティー部のテストスイート
+;;;  
+;;;   Copyright (c) 2010  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+;;;   
+;;;   Redistribution and use in source and binary forms, with or without
+;;;   modification, are permitted provided that the following conditions
+;;;   are met:
+;;;   
+;;;   1. Redistributions of source code must retain the above copyright
+;;;      notice, this list of conditions and the following disclaimer.
+;;;  
+;;;   2. Redistributions in binary form must reproduce the above copyright
+;;;      notice, this list of conditions and the following disclaimer in the
+;;;      documentation and/or other materials provided with the distribution.
+;;;  
+;;;   3. Neither the name of the authors nor the names of its contributors
+;;;      may be used to endorse or promote products derived from this
+;;;      software without specific prior written permission.
+;;;  
+;;;   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;;;   "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;;;   LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;;;   A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;;;   OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;;   SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;;;   TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;;;   PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;;;   LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;  
+;;;  $Id: 
+;;;
+(use nendo.test)
+(use sekka.util)
+
+(test-start "util")
+
+;;===================================================================
+
+;;-------------------------------------------------------------------
+(test-section "string librarys")
+
+(test* "string-drop 1"
+       "2345"
+       (string-drop "12345" 1))
+(test* "string-drop 2"
+       ""
+       (string-drop "12345" 5))
+(test* "string-drop 3"
+       ""
+       (string-drop "12345" 6))
+(test* "string-drop 4"
+       "本語"
+       (string-drop "日本語" 1))
+(test* "string-drop 5"
+       "自然言語処理"
+       (string-drop "統計的自然言語処理" 3))
+(test* "string-split-first-and-rest 1"
+       '("1" . "2345")
+       (string-split-first-and-rest "12345"))
+(test* "string-split-first-and-rest 2"
+       '("1" . "")
+       (string-split-first-and-rest "1"))
+(test* "string-split-first-and-rest 3"
+       '("" . "")
+       (string-split-first-and-rest ""))
+(test* "string-split-first-and-rest 4"
+       '("頭" . "とシッポ")
+       (string-split-first-and-rest "頭とシッポ"))
+
+(test* "string-downcase-first 1"
+       "aBCDE"
+       (string-downcase-first "ABCDE"))
+
+(test* "string-downcase-first 2"
+       "abcde"
+       (string-downcase-first "abcde"))
+
+(test* "string-downcase-first 3"
+       "abcde"
+       (string-downcase-first "Abcde"))
+
+(test* "string-downcase-first 4"
+       "a"
+       (string-downcase-first "A"))
+
+(test* "string-downcase-first 5"
+       "あいうえお"
+       (string-downcase-first "あいうえお"))
+
+(test* "string-downcase-first 6"
+       "aあいう"
+       (string-downcase-first "Aあいう"))
+
+
+;;===================================================================
+(test-end)