roman-lib.nnd in sekka-0.8.5

- old
+ new

@@ -77,10 +77,13 @@
        '("tt" "@" ";" "ltu" "xtu")
        (hash-table-get sekka-kana->roman-hash-short "っ" #f))
 (test* "kana->roman 5"
        '("-" "^" ":" "'")
        (hash-table-get sekka-kana->roman-hash-short "ー" #f))
+(test* "kana->roman 6"
+       '("#")
+       (hash-table-get sekka-kana->roman-hash-short "#" #f))
 
 ;;-------------------------------------------------------------------
 (test-section "kana->roman conversion hash (long)")
 
 (test* "kana->roman 1"
@@ -127,10 +130,13 @@
        '("ぁ")
        (hash-table-get sekka-roman->kana-hash-short "xa" #f))
 (test* "roman->kana 11"
        '("ぁ")
        (hash-table-get sekka-roman->kana-hash-short "xxa" #f))
+(test* "roman->kana 12"
+       '("#")
+       (hash-table-get sekka-roman->kana-hash-short "#" #f))
 
 ;;-------------------------------------------------------------------
 (test-section "roman->kana conversion hash (long)")
 
 (test* "roman->kana 1"
@@ -266,12 +272,12 @@
 ;;-------------------------------------------------------------------
 (test-section "kana->roman conversion functions")
 
 (let1 hira-list
     (hash-table-keys sekka-kana->roman-hash-long)
-  (test* "kana->roman table length"        523 (length hira-list))
-  (test* "kana->roman key duplicate check" 523 (length (uniq (sort hira-list)))))
+  (test* "kana->roman table length"        524 (length hira-list))
+  (test* "kana->roman key duplicate check" 524 (length (uniq (sort hira-list)))))
 
 (test* "hiragana -> roman-pattern0"
        '(
          (("ka") ("nn" "n" "q"))
          (("kz" "kn")))
@@ -329,9 +335,17 @@
        (gen-hiragana->roman-list "こーひー"))
 
 (test* "hiragana -> roman-list5"
        '("tsumikf" "tsumiki" "tumikf" "tumiki")
        (gen-hiragana->roman-list "つみき"))
+
+(test* "hiragana -> roman-list6"
+       '("gyoume" "gyowhume" "gypme")
+       (gen-hiragana->roman-list "ぎょうめ"))
+
+(test* "hiragana -> roman-list7"
+       '("#gyoume" "#gyowhume" "#gypme")
+       (gen-hiragana->roman-list "#ぎょうめ"))
 
 
 ;;-------------------------------------------------------------------
 (test-section "roman->kana conversion functions")
 (test* "roman -> hiragana 1"