tests.lisp

(in-package :ichiran/test)

(defparameter *test-thread-count* 4)
(defvar *delays* nil)

(defun test-progress (result &optional err)
  "result indicates whether test passed or not. err indicates execution error"
  (princ (cond
           (err "E")
           (result ".")
           (t "F")))
  (force-output))

(defmacro test-job ((result-var) tester &body worker)
  (alexandria:with-gensyms (future error)
    `(push
      (let ((,future (lparallel:future (ignore-errors ,@worker))))
        (lparallel:delay
          (multiple-value-bind (,result-var ,error) (lparallel:force ,future)
            (cond (,error
                   (test-progress nil t)
                   (error ,error))
                  (t (test-progress ,tester))))))
      *delays*)))

(defmacro define-parallel-test (name &body body)
  `(define-test ,name
     (let ((*delays* nil))
       ,@body
       (map nil 'lparallel:force (reverse *delays*)))))


(defun assert-segment (str &rest segmentation)
  (test-job (result) (assert-equal segmentation result)
    (mapcar (lambda (wi) (if (eql (word-info-type wi) :gap) :gap
                             (word-info-text wi)))
            (simple-segment str))))

(define-parallel-test segmentation-test
  (assert-segment "ご注文はうさぎですか" "ご注文" "は" "うさぎ" "です" "か")
  (assert-segment "しませんか" "しません" "か")
  (assert-segment "ドンマイ" "ドンマイ")
  (assert-segment "みんな土足でおいで" "みんな" "土足で" "おいで")
  (assert-segment "おもわぬオチ提供中" "おもわぬ" "オチ" "提供" "中")
  (assert-segment "わたし" "わたし")
  (assert-segment "お姉ちゃんにまかせて地球まるごと"
                  "お姉ちゃん" "に" "まかせて" "地球" "まるごと")
  (assert-segment "名人になってるはず"
                  "名人" "に" "なってる" "はず")
  (assert-segment "いいとこ" "いいとこ")
  (assert-segment "そういうお隣どうし"
                  "そういう" "お" "隣どうし")
  (assert-segment "はしゃいじゃう" "はしゃいじゃう")
  (assert-segment "分かっちゃうのよ" "分かっちゃう" "の" "よ")
  (assert-segment "懐かしく新しいまだそしてまた"
                  "懐かしく" "新しい" "まだ" "そして" "また")
  (assert-segment "あたりまえみたいに思い出いっぱい"
                  "あたりまえ" "みたい" "に" "思い出" "いっぱい")
  (assert-segment "何でもない日々とっておきのメモリアル"
                  "何でもない" "日々" "とっておき" "の" "メモリアル")
  (assert-segment "しつれいしなければならないんです"
                  "しつれいし" "なければならない" "ん" "です")
  (assert-segment "だけど気付けば馴染んじゃってる"
                  "だけど" "気付けば" "馴染んじゃってる")
  (assert-segment "飲んで笑っちゃえば"
                  "飲んで" "笑っちゃえば")
  (assert-segment "なんで" "なんで")
  (assert-segment "遠慮しないでね" "遠慮しないで" "ね")
  (assert-segment "出かけるまえに" "出かける" "まえ" "に")
  (assert-segment "感じたいでしょ" "感じたい" "でしょ")
  (assert-segment "まじで" "まじ" "で")
  (assert-segment "その山を越えたとき" "その" "山" "を" "越えた" "とき")
  (assert-segment "遊びたいのに" "遊びたい" "のに")
  (assert-segment "しながき" "しながき")
  (assert-segment "楽しさ求めて" "楽しさ" "求めて")
  (assert-segment "日常のなかにも" "日常" "の" "なかにも")
  (assert-segment "ほんとは好きなんだと" "ほんと" "は" "好き" "な" "ん" "だ" "と")
  (assert-segment "内緒なの" "内緒" "なの")
  (assert-segment "魚が好きじゃない" "魚" "が" "好き" "じゃない")
  (assert-segment "物語になってく" "物語" "に" "なってく")
  (assert-segment "書いてきてくださった" "書いてきて" "くださった")
  (assert-segment "今日は何の日" "今日" "は" "何の" "日")
  (assert-segment "何から話そうか" "何" "から" "話そう" "か")
  (assert-segment "話したくなる" "話したくなる")
  (assert-segment "進化してく友情" "進化してく" "友情")
  (assert-segment "私に任せてくれ" "私" "に" "任せてくれ")
  (assert-segment "時までに帰ってくると約束してくれるのなら外出してよろしい"
                  "時" "まで" "に" "帰ってくる" "と"
                  "約束してくれる" "の" "なら" "外出して" "よろしい")
  (assert-segment "雪が降りそうな気がします" "雪" "が" "降りそう" "な" "気がします")
  (assert-segment "新しそうだ" "新しそう" "だ")
  (assert-segment "本を読んだりテレビを見たりします"
                  "本" "を" "読んだり" "テレビ" "を" "見たり" "します")
  (assert-segment "今日母はたぶんうちにいるでしょう"
                  "今日" "母" "は" "たぶん" "うち" "に" "いる" "でしょう")
  (assert-segment "赤かったろうです" "赤かったろう" "です")
  (assert-segment "そう呼んでくれていい" "そう" "呼んでくれていい")
  (assert-segment "払わなくてもいい" "払わなくてもいい")
  (assert-segment "体に悪いと知りながらタバコをやめることはできない"
                  "体に悪い" "と" "知り" "ながら" "タバコをやめる" "こと" "は" "できない")
  (assert-segment "いつもどうり" "いつも" "どうり")
  (assert-segment "微笑みはまぶしすぎる" "微笑み" "は" "まぶしすぎる")
  (assert-segment "なにをしていますか" "なに" "を" "しています" "か")
  (assert-segment "優しすぎそのうえカッコいいの" "優しすぎ" "そのうえ" "カッコいい" "の")
  (assert-segment "この本は複雑すぎるから" "この" "本" "は" "複雑" "すぎる" "から")
  (assert-segment "かわいいです" "かわいいです")
  (assert-segment "学生なんだ" "学生" "な" "ん" "だ")
  (assert-segment "なんだから" "な" "ん" "だから")
  (assert-segment "名付けたい" "名付けたい")
  (assert-segment "切なくなってしまう" "切なくなってしまう")
  (assert-segment "らいかな" "らい" "かな")
  (assert-segment "誰かいなくなった" "誰か" "いなくなった")
  (assert-segment "思い出すな" "思い出す" "な")
  (assert-segment "かなって思ったら" "かなって" "思ったら")
  (assert-segment "法律にかなっているさま" "法律" "に" "かなっている" "さま")
  (assert-segment "ことすら難しい" "こと" "すら" "難しい")
  (assert-segment "投下しました" "投下しました")
  (assert-segment "車止める" "車" "止める")
  (assert-segment "円盤はただの" "円盤" "は" "ただ" "の")
  ;; (assert-segment "なんですね" "な" "ん" "です" "ね")
  (assert-segment "ズボンからすねをむき出しにする"
                  "ズボン" "から" "すね" "を" "むき" "出しにする")
  (assert-segment "駅の前で会いましょう"
                  "駅" "の" "前" "で" "会いましょう")
  (assert-segment "あなたの質問は答えにくい"
                  "あなた" "の" "質問" "は" "答えにくい")
  (assert-segment "とかそういう" "とか" "そういう")
  (assert-segment "好評のうちに" "好評" "の" "うち" "に")
  (assert-segment "映像もすごくよかったです" "映像" "も" "すごく" "よかったです")
  (assert-segment "情けねえ" "情けねえ")
  (assert-segment "春ですねえ" "春" "です" "ねえ")
  (assert-segment "春ですねぇ" "春" "です" "ねぇ")
  (assert-segment "きつねじゃなかった" "きつね" "じゃなかった")
  (assert-segment "ワシじゃなくて和紙じゃよ" "ワシ" "じゃなくて" "和紙" "じゃ" "よ")
  (assert-segment "ほうがいいよ" "ほうがいい" "よ")
  (assert-segment "痛さはどれくらいですか" "痛さ" "は" "どれくらい" "です" "か")
  (assert-segment "見てくれたかな" "見てくれた" "かな")
  (assert-segment "とても良かった" "とても" "良かった")
  (assert-segment "戻りたいかと言われる" "戻りたい" "か" "と" "言われる") ;;should be と言われる at some point
  (assert-segment "こういうのでいいんだよ" "こういう" "の" "でいい" "ん" "だ" "よ")
  (assert-segment "そんなのでいいと思ってるの" "そんな" "の" "でいい" "と" "思ってる" "の")
  (assert-segment "だけが墓参りしてた" "だけ" "が" "墓参りしてた")
  (assert-segment "はいいんだけどな" "は" "いい" "ん" "だけど" "な")
  (assert-segment "なりつつあるんだが" "なりつつある" "ん" "だが")
  (assert-segment "反論は認めません" "反論" "は" "認めません")
  (assert-segment "見たような気がする" "見た" "ような気がする")
  (assert-segment "幽霊を見たような顔つきをしていた" "幽霊" "を" "見た" "ような" "顔つき" "を" "していた")
  (assert-segment "元気になる" "元気" "に" "なる")
  (assert-segment "半端なかった" "半端なかった")
  (assert-segment "一人ですね" "一人" "です" "ね")
  (assert-segment "行事がある" "行事" "が" "ある")
  (assert-segment "当てられたものになる" "当てられた" "ものになる")
  (assert-segment "獲得しうる" "獲得しうる")
  (assert-segment "ことができず" "ことができず")
  (assert-segment "一生一度だけの忘られぬ約束" "一生一度" "だけ" "の" "忘られぬ" "約束")
  (assert-segment "やらずにこの路線でよかったのに" "やらず" "に" "この" "路線" "で" "よかった" "のに")
  (assert-segment "歌ってしまいそう" "歌ってしまいそう")
  (assert-segment "しまいそう" "しまいそう")
  (assert-segment "まいそう祭り" "まいそう" "祭り")
  (assert-segment "何ですか" "何" "です" "か")
  (assert-segment "浮かれたいから" "浮かれたい" "から")
  (assert-segment "なくなっちゃう" "なくなっちゃう")
  (assert-segment "になりそうだけど" "に" "なりそう" "だけど")
  (assert-segment "これは辛い選択になりそうだな" "これ" "は" "辛い" "選択" "に" "なりそう" "だ" "な")
  (assert-segment "はっきりしそうだな" "はっきりしそう" "だ" "な")
  (assert-segment "泣きそうなんだけど" "泣きそう" "な" "ん" "だけど")
  (assert-segment "これですね" "これ" "です" "ね")
  (assert-segment "はいなくなります" "は" "いなくなります")
  (assert-segment "忘れなく" "忘れなく")
  (assert-segment "じゃないですか" "じゃないです" "か")
  (assert-segment "純粋さ健気さ" "純粋さ" "健気さ")
  (assert-segment "着てたからね" "着てた" "から" "ね")
  (assert-segment "仕出かすからだと思います" "仕出かす" "から" "だ" "と" "思います")
  (assert-segment "みんながした" "みんな" "が" "した")
  (assert-segment "ほうが速いと" "ほう" "が" "速い" "と")
  (assert-segment "注意してください" "注意してください")
  (assert-segment "昨日といいどうしてこう" "昨日" "と" "いい" "どうして" "こう")
  (assert-segment "いっぱいきそう" "いっぱい" "きそう")
  (assert-segment "仲良しになったら" "仲良し" "に" "なったら")
  (assert-segment "全くといっていい" "全く" "と" "いって" "いい")
  (assert-segment "発狂しそうなんだ" "発狂しそう" "な" "ん" "だ")
  (assert-segment "していたんだ" "していた" "ん" "だ")
  (assert-segment "引き上げられた" "引き上げられた")
  (assert-segment "をつかむため" "を" "つかむ" "ため")
  (assert-segment "ときが自分" "とき" "が" "自分")
  (assert-segment "もうこころ" "もう" "こころ")
  (assert-segment "届けしたら" "届け" "したら")
  (assert-segment "おまえら低いんだよ" "おまえら" "低い" "ん" "だ" "よ")
  (assert-segment "すべてがかかっていると思いながら" "すべて" "が" "かかっている" "と" "思い" "ながら")
  ;;(assert-segment "がいないとこの" "が" "いない" "と" "この")
  (assert-segment "エロいと思っちゃう" "エロい" "と" "思っちゃう")
  (assert-segment "変わり映えしない" "変わり映えしない")
  (assert-segment "あなたがいなきゃこんな計画思いつかなかった"
                  "あなた" "が" "いなきゃ" "こんな" "計画" "思いつかなかった")
  (assert-segment "見たかったです" "見たかったです")
  (assert-segment "出来て楽しかったな" "出来て" "楽しかった" "な")
  (assert-segment "つかってください" "つかってください")
  (assert-segment "誰もが思ってた" "誰も" "が" "思ってた")
  (assert-segment "参考にしたらしい" "参考にしたらしい")
  (assert-segment "狙いやすそうで" "狙い" "やすそう" "で")
  (assert-segment "予定はございませんので" "予定" "は" "ございません" "ので")
  (assert-segment "犬はトラックにはねられた" "犬" "は" "トラック" "に" "はねられた")
  (assert-segment "仕事してください" "仕事してください")
  (assert-segment "おいかけっこしましょ" "おい" "かけっこしましょ")
  (assert-segment "イラストカードが付きます" "イラスト" "カード" "が" "付きます")
  (assert-segment "じゃないかしら" "じゃない" "かしら")
  (assert-segment "いつか本当に" "いつか" "本当に")
  (assert-segment "言い方もします" "言い方" "も" "します")
  (assert-segment "何でこれ" "何で" "これ")
  (assert-segment "こういう物語ができるんだ" "こういう" "物語" "が" "できる" "ん" "だ")
  (assert-segment "といったところでしょうか" "といった" "ところ" "でしょうか")
  (assert-segment "広めたいと思っている" "広めたい" "と" "思っている")
  (assert-segment "のせいかな" "の" "せい" "かな")
  (assert-segment "その場合" "その" "場合")
  (assert-segment "教えてくれてありがとう" "教えてくれて" "ありがとう")
  (assert-segment "彼が来るかどうか疑問だ" "彼" "が" "来る" "かどうか" "疑問" "だ")
  (assert-segment "泳ぎに行ってはどうかな" "泳ぎ" "に" "行って" "は" "どうかな")
  (assert-segment "どうか僕を許して下さい" "どうか" "僕" "を" "許して" "下さい")
  (assert-segment "鏡はいらないですよ" "鏡" "は" "いらないです" "よ")
  (assert-segment "ベッドで跳ねちゃいけません" "ベッド" "で" "跳ねちゃ" "いけません")
  (assert-segment "お酒を飲んじゃだめです" "お酒" "を" "飲んじゃ" "だめ" "です")
  (assert-segment "これ洗濯しといて" "これ" "洗濯しといて")
  (assert-segment "来週までに読んどいて" "来週" "まで" "に" "読んどいて")
  (assert-segment "奴がまともに見られない" "奴" "が" "まともに" "見られない")
  (assert-segment "間違いなし" "間違いなし")
  (assert-segment "見ませんでしょうか" "見ません" "でしょうか")
  (assert-segment "書いていただけませんでしょうか" "書いていただけません" "でしょうか")
  (assert-segment "友達できる" "友達" "できる")
  (assert-segment "実はそうなんだ" "実は" "そう" "なんだ")
  (assert-segment "やらしいです" "やらしいです")
  (assert-segment "荒いとこもある" "荒い" "とこ" "も" "ある")
  (assert-segment "あったかいとこ行こう" "あったかい" "とこ" "行こう")
  (assert-segment "ぶっちゃけ話" "ぶっちゃけ" "話")
  (assert-segment "いけないわー" "いけない" "わ" :gap)
  (assert-segment "社長としてやっていけないわ" "社長" "として" "やっていけない" "わ")
  (assert-segment "よくわかんないけど" "よく" "わかんない" "けど")
  (assert-segment "ほうがいいんじゃないの" "ほうがいい" "ん" "じゃない" "の")
  (assert-segment "こんなんじゃ" "こんなん" "じゃ")
  (assert-segment "増やしたほうがいいな" "増やした" "ほうがいい" "な")
  (assert-segment "屈しやすいものだ" "屈し" "やすい" "もの" "だ")
  (assert-segment "目をもっている" "目" "を" "もっている")
  (assert-segment "これが君のなすべきものだ" "これ" "が" "君" "の" "なすべき" "もの" "だ")
  (assert-segment "泥棒をつかまえた" "泥棒" "を" "つかまえた")
  (assert-segment "金もないし友達もいません" "金" "も" "ない" "し" "友達" "も" "いません")
  (assert-segment "出来たからほら見てよ" "出来た" "から" "ほら" "見て" "よ")
  (assert-segment "眠いからもう寝るね" "眠い" "から" "もう" "寝る" "ね")
  (assert-segment "浮気してやがった" "浮気してやがった")
  (assert-segment "見本通りに" "見本" "通り" "に")
  (assert-segment "不適応" "不" "適応")
  (assert-segment "良いそうです" "良い" "そう" "です")
  (assert-segment "むらむらとわいた" "むらむら" "と" "わいた")
  (assert-segment "否定しちゃいけない" "否定しちゃ" "いけない")
  (assert-segment "観たいです" "観たいです")
  (assert-segment "あんたはわからん" "あんた" "は" "わからん")
  (assert-segment "見られたくないとこ" "見られたくない" "とこ")
  (assert-segment "多分家で" "多分" "家" "で")
  (assert-segment "三十八" "三十八")
  (assert-segment "エロそうだヤバそうだ" "エロそう" "だ" "ヤバそう" "だ")
  (assert-segment "私にとっても" "私" "にとって" "も")
  (assert-segment "睡眠を十分にとってください" "睡眠" "を" "十分" "に" "とってください")
  (assert-segment "そうなんだけど" "そう" "な" "ん" "だけど")
  (assert-segment "進んでない" "進んでない")
  (assert-segment "一回だけであとは言わない" "一回" "だけ" "で" "あと" "は" "言わない")
  (assert-segment "ご親切に恐縮しております" "ご親切に" "恐縮しております")
  (assert-segment "官吏となっておる者がある" "官吏" "と" "なっておる" "者" "が" "ある")
  (assert-segment "間違えておられたようですね" "間違えておられた" "ようです" "ね")
  (assert-segment "人気のせいな" "人気" "の" "せい" "な")
  (assert-segment "コレはアレ" "コレ" "は" "アレ")
  (assert-segment "アレハレ" "アレ" :gap)
  (assert-segment "上に文字があったり" "上" "に" "文字" "が" "あったり")
  (assert-segment "言っただろ" "言った" "だろ")
  (assert-segment "嵐が起ころうとしている" "嵐" "が" "起ころうとしている")
  (assert-segment "知らないでしょう" "知らないでしょう")
  (assert-segment "読まないでしょう" "読まないでしょう")
  (assert-segment "来ないでしょう" "来ないでしょう")
  (assert-segment "何もかもがめんどい" "何もかも" "が" "めんどい")
  (assert-segment "なにもかもがめんどい" "なにもかも" "が" "めんどい")
  (assert-segment "あいつ規制されりゃいいのに" "あいつ" "規制されりゃ" "いい" "のに")
  (assert-segment "塗ってみようと思って" "塗って" "みよう" "と" "思って")
  (assert-segment "肩を並べられなかった" "肩を並べられなかった")
  (assert-segment "じゃなくて良かった" "じゃなくて" "良かった")
  (assert-segment "申し訳なさそう" "申し訳なさそう")
  (assert-segment "決まってたし" "決まってた" "し")
  (assert-segment "決まっている" "決まっている")
  (assert-segment "恐れ入りました" "恐れ入りました")
  (assert-segment "はうまい" "は" "うまい")
  (assert-segment "弾け飛びました" "弾け飛びました")
  (assert-segment "ぶっこんでいるようで" "ぶっこんでいる" "よう" "で")
  (assert-segment "じゃないけど下手に" "じゃない" "けど" "下手" "に")
  (assert-segment "的にそうではない" "的" "に" "そう" "ではない")
  (assert-segment "入り込めなかった" "入り込めなかった")
  (assert-segment "がいまいちなんだよ" "が" "いまいち" "なんだ" "よ")
  (assert-segment "脱がしにかかってる" "脱がし" "に" "かかってる")
  (assert-segment "必死になってる" "必死" "に" "なってる")
  (assert-segment "安心させた" "安心させた")
  (assert-segment "人が好きそうだ" "人" "が" "好き" "そう" "だ")
  (assert-segment "もっていこうとする" "もっていこうとする")
  (assert-segment "増やして" "増やして")
  (assert-segment "ぜいたくで" "ぜいたく" "で")
  (assert-segment "したくらいで" "したくらい" "で")
  (assert-segment "でもうまく人" "でも" "うまく" "人")
  (assert-segment "好き嫌いもしないように" "好き嫌い" "も" "しない" "ように")
  (assert-segment "のどこが思える" "の" "どこ" "が" "思える")
  (assert-segment "出会えて良かった" "出会えて" "良かった")
  (assert-segment "無理しなくていいから" "無理しなくていい" "から")
  (assert-segment "調子にのらないほうが" "調子にのらない" "ほう" "が")
  (assert-segment "こなさそう" "こなさそう")
  (assert-segment "伸びてこなさそう" "伸びてこなさそう")
  (assert-segment "手にとって" "手にとって")
  (assert-segment "平和である" "平和" "で" "ある")
  (assert-segment "私にとっては少しおかしいです" "私" "にとって" "は" "少し" "おかしいです")
  (assert-segment "パーティーは" "パーティー" "は")
  (assert-segment "彼以上のばかはいない" "彼" "以上" "の" "ばか" "は" "いない")
  (assert-segment "君がいないと淋しい" "君" "が" "いない" "と" "淋しい")
  (assert-segment "思いきって" "思いきって")
  (assert-segment "思いきっている" "思いきっている")
  (assert-segment "大事になります" "大事" "に" "なります")
  (assert-segment "元気にします" "元気" "に" "します")
  (assert-segment "ご迷惑おかけしてすみません" "ご迷惑" "おかけして" "すみません")
  (assert-segment "不便をおかけすることを謝ります" "不便" "を" "おかけする" "こと" "を" "謝ります")
  (assert-segment "お手数おかけし申し訳ないが" "お手数" "おかけし" "申し訳ない" "が")
  (assert-segment "私はあなたにお手数をおかけました" "私" "は" "あなた" "に" "お手数" "を" "お" "かけました")
  (assert-segment "ここにおかけなさい" "ここ" "に" "お" "かけなさい")
  (assert-segment "弾き出されてる" "弾き出されてる")
  (assert-segment "あかんわ" "あかん" "わ")
  (assert-segment "ぶっちゃけ" "ぶっちゃけ")
  (assert-segment "賢人たち" "賢人" "たち")
  (assert-segment "差ついた" "差" "ついた")
  (assert-segment "ですら" "ですら")
  (assert-segment "でさえ" "でさえ")
  (assert-segment "みごとにやってのける" "みごと" "に" "やってのける")
  (assert-segment "いる" "いる")
  (assert-segment "はいずれ" "は" "いずれ")
  (assert-segment "お下がり" "お下がり")
  (assert-segment "でも1000台とか1桁はあんまりだよな" "でも" "1000台" "とか" "1桁" "は" "あんまり" "だ" "よな")
  (assert-segment "みんなにうらやましがられている" "みんな" "に" "うらやましがられている")
  (assert-segment "悪がられて" "悪がられて")
  (assert-segment "期待されがちなので男女" "期待されがち" "なので" "男女")
  (assert-segment "とぎれがちに話す" "とぎれがち" "に" "話す")
  (assert-segment "手にとっていただきやすくなる" "手にとって" "いただき" "やすくなる")
  (assert-segment "さほど" "さほど")
  (assert-segment "大きさほどもある" "大きさ" "ほど" "も" "ある")
  (assert-segment "しかいない" "しか" "いない")
  (assert-segment "掴めていない" "掴めていない")
  (assert-segment "振り回されたいな" "振り回されたい" "な")
  (assert-segment "さぼっている" "さぼっている")
  (assert-segment "のままで来る" "の" "まま" "で" "来る")
  (assert-segment "5人中4人" "5人中" "4人")
  (assert-segment "彼はどなりすぎて声をからした" "彼" "は" "どなり" "すぎて" "声" "を" "からした")
  (assert-segment "そうしたいからしただけだ" "そう" "したい" "から" "した" "だけ" "だ")
  (assert-segment "推し続けている" "推し" "続けている")
  (assert-segment "少し直せたら" "少し" "直せたら")
  (assert-segment "良いほう" "良い" "ほう")
  (assert-segment "いいえ" "いいえ")
  (assert-segment "割り当てられた" "割り当てられた")
  (assert-segment "綺麗だけど近よりがたいよね" "綺麗" "だけど" "近よりがたい" "よね")
  (assert-segment "そうなんじゃない" "そう" "な" "ん" "じゃない")
  (assert-segment "なんというかすみません" "なんというか" "すみません")
  (assert-segment "めんどくそがる" "めんどくそがる")
  (assert-segment "がなんで終わった" "が" "なんで" "終わった")
  (assert-segment "てか最近ファン層は円盤すら買わないからそいつらから金とるってのは無謀"
                  "てか" "最近" "ファン層" "は" "円盤" "すら" "買わない" "から"
                  "そいつら" "から" "金" "とる" "ってのは" "無謀")
  (assert-segment "とろいな" "とろい" "な")
  (assert-segment "なんでもかんでも" "なんでもかんでも")
  (assert-segment "しないかい" "しない" "かい")
  (assert-segment "参拝しちゃいかんという人がいます"
                  "参拝しちゃ" "いかん" "という" "人" "が" "います")
  (assert-segment "人をひやかしちゃいやよ" "人" "を" "ひやかしちゃ" "いや" "よ")
  (assert-segment "しちゃいたい" "しちゃいたい")
  (assert-segment "けがなどをしないように" "けが" "など" "を" "しない" "ように")
  (assert-segment "買い支えたいと思う" "買い" "支えたい" "と" "思う")
  (assert-segment "おじゃましています" "おじゃましています")
  (assert-segment "とかいらんから" "とか" "いらん" "から")
  (assert-segment "ということだろうけど" "という" "こと" "だろう" "けど")
  (assert-segment "のはわからなくもない" "の" "は" "わからなく" "も" "ない")
  (assert-segment "変わっていくだろう" "変わっていく" "だろう")
  (assert-segment "待ってねぇ" "待って" "ねぇ")
  (assert-segment "おかしいと思わんですか" "おかしい" "と" "思わん" "です" "か")
  (assert-segment "ズレてる" "ズレてる")
  (assert-segment "紅茶飲みたい" "紅茶" "飲みたい")
  (assert-segment "電気がついた" "電気" "が" "ついた")
  (assert-segment "脚本会議" "脚本" "会議")
  (assert-segment "見せなきゃいけなくなって" "見せなきゃ" "いけなくなって")
  (assert-segment "私じゃなくなるような瞬間があって" "私" "じゃなくなる" "ような" "瞬間" "が" "あって")
  (assert-segment "効いててかなりぬくい" "効いてて" "かなり" "ぬくい")
  (assert-segment "撮影してていつもは" "撮影してて" "いつも" "は")
  (assert-segment "むしろいないほうが珍しい" "むしろ" "いない" "ほう" "が" "珍しい")
  (assert-segment "旅行にいきたい" "旅行" "に" "いきたい")
  (assert-segment "見ててこんな話あったっけ" "見てて" "こんな" "話" "あった" "っけ")
  (assert-segment "いじめとかある" "いじめ" "とか" "ある")
  (assert-segment "となったらしい" "となったらしい")
  (assert-segment "基地外が必死過ぎ" "基地外" "が" "必死" "過ぎ")
  (assert-segment "調整のせいとか" "調整" "の" "せい" "とか")
  (assert-segment "はっしていない" "はっしていない")
  (assert-segment "無理さえしなければ" "無理" "さえ" "しなければ")
  (assert-segment "ところで" "ところで")
  (assert-segment "外に出て" "外" "に" "出て")
  (assert-segment "大人しそうな顔" "大人しそう" "な" "顔")
  (assert-segment "おとなしそうなようすにだまされた" "おとなしそう" "な" "ようす" "に" "だまされた")
  (assert-segment "勝手に入る" "勝手に" "入る")
  (assert-segment "後継ぎする" "後継ぎ" "する")
  (assert-segment "なすまん" "な" "すまん")
  (assert-segment "強いんだね" "強い" "ん" "だ" "ね")
  (assert-segment "おんなじなんだろ" "おんなじ" "な" "ん" "だろ")
  (assert-segment "女神様" "女神" "様")
  (assert-segment "邪推した事柄" "邪推した" "事柄")
  (assert-segment "邪推してしまう" "邪推してしまう")
  ;; (assert-segment "難しそうなんです" "難しそう" "な" "ん" "です")
  (assert-segment "良さげかも" "良さげ" "かも")
  (assert-segment "事故ってます" "事故ってます")
  (assert-segment "卒倒している" "卒倒している")
  (assert-segment "卒倒させる" "卒倒させる")
  (assert-segment "出したいときは" "出したい" "とき" "は")
  (assert-segment "柔らかさ" "柔らかさ")
  (assert-segment "次がある" "次" "が" "ある")
  (assert-segment "のせいですね" "の" "せい" "です" "ね")
  (assert-segment "それただの怪しい人ですし" "それ" "ただ" "の" "怪しい" "人" "です" "し")
  (assert-segment "ごときが知る" "ごとき" "が" "知る")
  (assert-segment "山にはさまれて" "山" "に" "はさまれて")
  (assert-segment "物がぼんやりとかすんで見える" "物" "が" "ぼんやり" "と" "かすんで" "見える")
  (assert-segment "どなた様でございましょうか" "どなた" "様" "でございましょう" "か")
  (assert-segment "読んでくださりありがとうございました" "読んで" "くださり" "ありがとうございました")
  (assert-segment "ふざけんな" "ふざけんな")
  (assert-segment "観終わってた" "観" "終わってた")
  (assert-segment "意味深終わり" "意味深" "終わり")
  (assert-segment "今日とて居残りです" "今日" "とて" "居残り" "です")
  (assert-segment "堪能させていただきます" "堪能させていただきます")
  (assert-segment "わからんからそう思った" "わからん" "から" "そう" "思った")
  (assert-segment "うちからそうなっても" "うち" "から" "そう" "なっても")
  (assert-segment "上映会やな" "上映" "会" "や" "な")
  (assert-segment "以上書いてください" "以上" "書いてください")
  (assert-segment "してしまったのがいまだに忘れられないし" "してしまった" "の" "が" "いまだに" "忘れられない" "し")
  (assert-segment "彼ははんぱじゃなく" "彼" "は" "はんぱじゃなく")
  (assert-segment "許さないじゃなくてさ" "許さない" "じゃなくて" "さ")
  (assert-segment "じゃなかったです" "じゃなかったです")
  (assert-segment "彼女は苦しげにうめいて横たわった" "彼女" "は" "苦しげ" "に" "うめいて" "横たわった")
  (assert-segment "わたしにはちょっとわかりかねますので" "わたし" "には" "ちょっと" "わかりかねます" "ので")
  (assert-segment "要素はないかと" "要素" "は" "ない" "か" "と")
  (assert-segment "すごいじゃん" "すごい" "じゃん")
  (assert-segment "腕をつかまれて路地" "腕" "を" "つかまれて" "路地")
  (assert-segment "別にマイナスにならん" "別に" "マイナス" "に" "ならん")
  (assert-segment "遊びばかりはだめだよ" "遊び" "ばかり" "は" "だめ" "だ" "よ")
  (assert-segment "最中でも" "最中" "でも")
  (assert-segment "小動物好き物好き" "小動物" "好き" "物好き")
  (assert-segment "知れないですか" "知れないです" "か")
  (assert-segment "かも知れないですね" "かも知れない" "です" "ね")
  (assert-segment "匙ですくう" "匙" "で" "すくう")
  (assert-segment "デカかったクドくない" "デカかった" "クドくない")
  (assert-segment "決めたらしい教われたらしい" "決めたらしい" "教われたらしい")
  (assert-segment "臆病なくせにとてもよい仲間だった" "臆病" "な" "くせに" "とても" "よい" "仲間" "だった")
  (assert-segment "あのねあのさ" "あのね" "あのさ")
  (assert-segment "これまでになかったような名優" "これまで" "に" "なかった" "ような" "名優")
  (assert-segment "確かめてちゃんと" "確かめて" "ちゃんと")
  (assert-segment "ことにしましょうってなった" "ことにしましょう" "って" "なった")
  (assert-segment "見てござる" "見て" "ござる")
  (assert-segment "彼がいうことはわけがわからない" "彼" "が" "いう" "こと" "は" "わけがわからない")
  (assert-segment "わけのわからないことをくどくど言う" "わけのわからない" "こと" "を" "くどくど" "言う")
  (assert-segment "ごくまれに" "ごくまれ" "に")
  (assert-segment "天をうらんでみたところで始まらない" "天" "を" "うらんで" "みた" "ところで" "始まらない")
  (assert-segment "癒やされたかった" "癒やされたかった")
  (assert-segment "7時には帰ってきなさい" "7時" "には" "帰ってきなさい")
  (assert-segment "人はいますか" "人" "は" "います" "か")
  (assert-segment "トマトづくし" "トマト" "づくし")
  (assert-segment "見えざる関係性" "見えざる" "関係性")
  (assert-segment "だめだったら" "だめ" "だったら")
  (assert-segment "万事不都合の無いようにはからってくれ" "万事" "不都合" "の" "無い" "ように" "はからってくれ")
  (assert-segment "ではみなさん" "では" "みなさん")
  (assert-segment "鉄とはがね" "鉄" "と" "はがね")
  (assert-segment "抹茶とは" "抹茶" "とは")
  ;; (assert-segment "当たりとはずれ" "当たり" "と" "はずれ")
  (assert-segment "工夫がされる" "工夫" "が" "される")
  (assert-segment "うまいことしたね" "うまいこと" "した" "ね")
  (assert-segment "ことしは新成人１４人のうち８人が避難先などから村の村民会館に集まりました"
                  "ことし" "は" "新成人" "１４人" "の" "うち" "８人" "が" "避難先" "など" "から"
                  "村" "の" "村民" "会館" "に" "集まりました")
  (assert-segment "鬱が悪化する" "鬱" "が" "悪化する")
  (assert-segment "一部が手に入ればことし１年の願いがかなうとされています"
                  "一部" "が" "手に入れば" "ことし" "１年" "の" "願い" "が" "かなう" "とされています")
  (assert-segment "汗を流しました" "汗を流しました")
  (assert-segment "気がついてる" "気がついてる")
  (assert-segment "ガスがついている" "ガス" "が" "ついている")
  (assert-segment "再開通" "再" "開通")
  (assert-segment "謝罪はあったにせよ" "謝罪" "は" "あった" "にせよ")
  (assert-segment "うそではないにしろ" "うそ" "ではない" "にしろ")
  (assert-segment "普段着てる服" "普段" "着てる" "服")
  (assert-segment "エレガントなお洋服" "エレガント" "な" "お" "洋服")
  (assert-segment "老いてなお元気なこと" "老いて" "なお" "元気" "な" "こと")
  (assert-segment "何も口にせぬ" "何も" "口" "に" "せぬ")
  (assert-segment "切ねぇ" "切ねぇ")
  (assert-segment "何故人気がある" "何故" "人気がある")
  (assert-segment "バラしちゃってる" "バラしちゃってる")
  (assert-segment "気を使わせている" "気を使わせている")
  (assert-segment "一段上がる" "一段" "上がる")
  (assert-segment "一段落ちる" "一段" "落ちる")
  (assert-segment "恐怖ですくむ" "恐怖" "で" "すくむ")
  (assert-segment "全員がたちすくみました" "全員" "が" "たちすくみました")
  (assert-segment "雪がないため" "雪" "が" "ない" "ため")
  (assert-segment "雪がなく" "雪" "が" "なく")
  (assert-segment "零れ落ちてる" "零れ落ちてる")
  (assert-segment "使い物にならんだろ" "使い物" "に" "ならん" "だろ")
  (assert-segment "私とならんで走った" "私" "と" "ならんで" "走った")
  (assert-segment "のうえに" "の" "うえ" "に")
  (assert-segment "皇位についたが" "皇位" "に" "ついた" "が")
  (assert-segment "疱瘡がついたか" "疱瘡" "が" "ついた" "か")
  (assert-segment "折りたたみ式ついたて" "折りたたみ式" "ついたて")
  (assert-segment "いろいろな部分をもんだりこすったりすること" "いろいろ" "な" "部分" "を" "もんだり" "こすったり" "する" "こと")
  (assert-segment "たまにはいいもんだよ" "たまに" "は" "いい" "もんだ" "よ")
  (assert-segment "歩みをはやめるのだった" "歩み" "を" "はやめる" "の" "だった")
  (assert-segment "たばこはやめると誓います" "たばこ" "は" "やめる" "と" "誓います")
  (assert-segment "私個人の生活についてとやかくうるさくいうのはやめてください"
                  "私" "個人" "の" "生活" "について" "とやかく" "うるさく" "いう" "の" "は" "やめてください")
  (assert-segment "こもりがちな人" "こもりがち" "な" "人")
  (assert-segment "がちなやつ" "がち" "な" "やつ")
  (assert-segment "長くはかからないでしょう" "長く" "は" "かからないでしょう")
  (assert-segment "人はいないでしょうね" "人" "は" "いないでしょう" "ね")
  (assert-segment "人はいないですね" "人" "は" "いないです" "ね")
  (assert-segment "猛者どもの集い" "猛者" "ども" "の" "集い")
  (assert-segment "うまいかまずいか" "うまい" "か" "まずい" "か")
  (assert-segment "守衛にとがめられた" "守衛" "に" "とがめられた")
  (assert-segment "問い合わせがたくさん" "問い合わせ" "が" "たくさん")
  (assert-segment "楽しみがたくさん" "楽しみ" "が" "たくさん")
  (assert-segment "ふくろうは" "ふくろう" "は")
  (assert-segment "語れるもんだな" "語れる" "もんだ" "な")
  (assert-segment "筋をもんでくれ" "筋" "を" "もんでくれ")
  (assert-segment "いわきからさいたままで" "いわき" "から" "さいたま" "まで")
  (assert-segment "新型コロナウイルス" "新型コロナウイルス")
  (assert-segment "新型コロナウィルス" "新型コロナウィルス")
  (assert-segment "映画を見るとか食事をするとか" "映画" "を" "見る" "とか" "食事" "を" "する" "とか")
  (assert-segment "さもうれしそうに笑う" "さも" "うれしそう" "に" "笑う")
  (assert-segment "出しなに客が来る" "出しな" "に" "客" "が" "来る")
  (assert-segment "出しながら飛んで" "出し" "ながら" "飛んで")
  (assert-segment "正直言いたい" "正直" "言いたい")
  (assert-segment "おとめにふさわしい振る舞い" "おとめ" "に" "ふさわしい" "振る舞い")
  (assert-segment "気がないのよ" "気がない" "の" "よ")
  (assert-segment "口論のあげくに殴り合いになった" "口論" "の" "あげく" "に" "殴り合い" "に" "なった")
  (assert-segment "お手数おかけします" "お手数" "おかけします")
  (assert-segment "30分後におかけ直しください" "30分" "後" "に" "お" "かけ直し" "ください")
  (assert-segment "わかりきった" "わかりきった")
  (assert-segment "最良の方法は何だと思いますか" "最良" "の" "方法" "は" "何" "だ" "と" "思います" "か")
  (assert-segment "どうせいやがらせでする" "どうせ" "いやがらせ" "で" "する")
  (assert-segment "芝居もどきのせりふを言う" "芝居" "もどき" "の" "せりふ" "を" "言う")
  (assert-segment "がんもどきという食品" "がんもどき" "と" "いう" "食品")
  (assert-segment "落ちこぼれている" "落ちこぼれている")
  (assert-segment "1話しか見てない" "1話" "しか" "見てない")
  (assert-segment "忙しくてろくに更新もできず" "忙しくて" "ろくに" "更新" "も" "できず")
  (assert-segment "だまってろって" "だまってろ" "って")
  (assert-segment "しっぽく蕎麦" "しっぽく" "蕎麦")
  (assert-segment "猫はしっぽをぴんとはね上がって歩いた" "猫" "は" "しっぽ" "を" "ぴんと" "はね上がって" "歩いた")
  (assert-segment "物がぴんとはね上がるさま" "物" "が" "ぴんと" "はね上がる" "さま")
  (assert-segment "やる気はない" "やる気" "は" "ない")
  (assert-segment "あけましておめでとうございます" "あけましておめでとうございます")
  (assert-segment "おれたちは行くのにおまえたちは行かぬ" "おれたち" "は" "行く" "のに" "おまえたち" "は" "行かぬ")
  (assert-segment "よろしくおねがいします" "よろしくおねがいします")
  (assert-segment "気を遣ってくれてるのかと思ってました" "気を遣ってくれてる" "のか" "と" "思ってました")
  (assert-segment "太陽をかたどったしるし" "太陽" "を" "かたどった" "しるし")
  (assert-segment "間違えていらっしゃるのかしら" "間違えて" "いらっしゃる" "の" "かしら")
  (assert-segment "ヤツはいそうにないな" "ヤツ" "は" "いそうにない" "な")
  (assert-segment "確認をとっています" "確認" "を" "とっています")
  (assert-segment "人口10万人以上の都市の中で唯一旅客を扱う鉄道駅が存在せず"
                  "人口" "10万人" "以上" "の" "都市" "の" "中" "で" "唯一" "旅客" "を" "扱う" "鉄道駅" "が" "存在" "せず")
  (assert-segment "だし" "だ" "し")
  (assert-segment "だしはおいしい" "だし" "は" "おいしい")
  (assert-segment "だして" "だして")
  (assert-segment "だしといて" "だしといて")
  (assert-segment "割り切れたら" "割り切れたら")
  (assert-segment "あり得なかったり" "あり得なかったり")
  (assert-segment "代わり映え" "代わり映え")
  (assert-segment "器用なのですぐ上達しますよ" "器用" "なので" "すぐ" "上達します" "よ")
  (assert-segment "おにいちゃん" "おにいちゃん")
  (assert-segment "動画につまってる" "動画" "に" "つまってる")
  (assert-segment "出来そう" "出来そう")
  (assert-segment "その上着貸してください" "その" "上着" "貸してください")
  (assert-segment "幸多き" "幸" "多き")
  (assert-segment "きっと気に入っていつかまた来てくれるよ" "きっと" "気に入って" "いつか" "また" "来てくれる" "よ")
  (assert-segment "私がいそうな場所知ってたんだから" "私" "が" "いそう" "な" "場所" "知ってた" "ん" "だから")
  (assert-segment "うまくハメられた" "うまく" "ハメられた")
  (assert-segment "してるとこだから" "してる" "とこ" "だから")
  (assert-segment "下記のとおりです" "下記" "の" "とおり" "です")
  (assert-segment "123ヶ年" "123ヶ年")
  (assert-segment "そうはいかん" "そう" "は" "いかん")
  (assert-segment "いつなりともお使いなさい" "いつなりと" "も" "お" "使いなさい")
  (assert-segment "よそで待ってて" "よそ" "で" "待ってて")
  (assert-segment "3つおきの席" "3つ" "おき" "の" "席")
  (assert-segment "1年おきに" "1年" "おきに")
  (assert-segment "練習したかいがあって" "練習した" "かいがあって")
  (assert-segment "高いお金を払ったかいがあったと思う" "高い" "お金" "を" "払った" "かいがあった" "と" "思う")
  (assert-segment "養生したかいもなく" "養生した" "かいもなく")
  (assert-segment "読みがいがある" "読みがい" "が" "ある")
  (assert-segment "狩りがいのある" "狩りがい" "の" "ある")
  (assert-segment "懐いている" "懐いている")
  (assert-segment "カッコよさ" "カッコよさ")
  (assert-segment "上手く案内出来てたらいいんですけど" "上手く" "案内" "出来てたら" "いい" "ん" "です" "けど")
  (assert-segment "仲間になりたそうに見ている" "仲間" "に" "なりたそう" "に" "見ている")
  (assert-segment "何か問いたそうな口調" "何か" "問いたそう" "な" "口調")
  (assert-segment "どんなものにも潮時がある" "どんな" "もの" "にも" "潮時" "が" "ある")
  )

(define-test json-consistency-test
  (loop for word in '("の" "赤かったろう" "書いてきてる" "捩じり鉢巻きで"
                      "夕べ" "さくや" "建ち並ばなきゃ" "建ち並びましてる"
                      "どおりで" "十万三" "5万100" "1234"
                      "1日" "2期" "三羽" "1万500円" "オレら"
                      )
       for word-info = (word-info-from-text word)
       for word-info-json = (word-info-json word-info)
       do (assert-equal (word-info-gloss-json word-info) (word-info-gloss-json word-info-json))))


(define-test match-readings-test
  (assert-equal (match-readings "取次店" "とりつぎてん") '(("取" "とり" "ja_kun" NIL) ("次" "つぎ" "ja_kun" NIL) ("店" "てん" "ja_on" NIL)))
  (assert-equal (match-readings "助っ人" "すけっと") '(("助" "すけ" "ja_kun" NIL) "っ" ("人" "と" "ja_kun" NIL)))
  (assert-equal (match-readings "頑張って" "がんばって") '(("頑" "がん" "ja_on" NIL) ("張" "ば" "ja_kun" NIL) "って"))
  (assert-equal (match-readings "肝心" "かんじん") '(("肝" "かん" "ja_on" NIL) ("心" "じん" "ja_on" :RENDAKU NIL)))
  (assert-equal (match-readings "決心" "けっしん") '(("決" "けっ" "ja_on" NIL "つ") ("心" "しん" "ja_on" NIL)))
  (assert-equal (match-readings "行方" "ゆくえ") '(("行" "ゆ" "ja_kun" NIL) ("方" "くえ" "irr")))
  (assert-equal (match-readings "時計" "とけい") '(("時" "と" "irr") ("計" "けい" "ja_on" NIL)))
  (assert-equal (match-readings "指図" "さしず") '(("指" "さし" "irr") ("図" "ず" "ja_on" NIL)))
  (assert-equal (match-readings "竹刀" "しない") '(("竹" "しな" "irr") ("刀" "い" "irr")))
  (assert-equal (match-readings "小売店" "こうりてん") '(("小" "こ" "ja_kun" NIL) ("売" "うり" "irr") ("店" "てん" "ja_on" NIL)))
  (assert-equal (match-readings "売上げ" "うりあげ") '(("売" "うり" "irr") ("上" "あ" "ja_kun" NIL) "げ"))
  (assert-equal (match-readings "北方" "ほっぽう") '(("北" "ほっ" "ja_on" NIL "く") ("方" "ぽう" "ja_on" :RENDAKU NIL)))
  (assert-equal (match-readings "明後日" "あさって") '(("明" "あ" "ja_kun" NIL) ("後" "さっ" "irr") ("日" "て" "irr")))
  )

(define-test parse-number-test
  (dolist (n '(0 10001 20020001 12423000430))
    (assert-eql (parse-number (number-to-kanji n)) n))
  (assert-eql (parse-number "100万") 1000000)
  (assert-eql (parse-number "100万500") 1000500))

(define-test number-split-test
  (assert-equal (basic-split "二〇二〇") '((:word . "二〇二〇"))))

(define-test check-de
  "Tests that で is a conjugation of だ"
  (assert-equal (with-db nil (ichiran/dict::seq-from (car (ichiran/dict::select-conjs 2028980)))) 2089020))

(define-parallel-test counter-test
  (dolist (ctr '("倍" "晩" "秒" "着" "挺" "丁" "台" "段" "度" "円" "服" "幅" "分" "杯" "発" "遍" "篇" "匹" "本"
                 "時" "畳" "帖" "条" "課" "日" "回" "ヵ月" "階" "軒" "機" "個" "脚" "間" "枚" "巻" "名" "年" "人"
                 "列" "輪" "輌" "才" "歳" "棹" "冊" "隻" "章" "首" "足" "艘" "反" "滴" "点" "頭" "つ" "通" "対"
                 "羽" "把" "割" "膳" "時間" "週間" "人中" "番目" "期目" "巻目"))
    (dolist (n '("1" "三" "十一"))
      (let ((s (format nil "~a~a" n ctr)))
        (unless (and (equal ctr "つ") (equal n "十一"))
          (assert-segment s s))))))

(define-test extra-xml-test
  (let* ((extra-loader (getf (ichiran/custom:get-custom-data) :extra)))
    (assert-true (> (ichiran/custom:slurp extra-loader) 0))))

;; (run-parallel-tests '(ichiran/test::match-readings-test) :ichiran/test)

(defun run-parallel-tests (&optional (tests :all) (pkg :ichiran/test))
  (let* ((lparallel:*kernel* (lparallel:make-kernel *test-thread-count*))
         (res (unwind-protect
                   (run-tests tests pkg)
                (lparallel:end-kernel))))
    (print-failures res)
    (print-errors res)
    res))

(defun run-all-tests ()
  (init-all-caches t)
  (init-suffixes t)
  (run-parallel-tests))