[131] | 1 | ;; -*- coding:euc-jp -*- |
---|
| 2 | ;; |
---|
| 3 | ;; dictionary-dependent tests for mecab module <vol.2> |
---|
| 4 | ;; |
---|
| 5 | ;; using mecab-0.98pre1 <default:EUC-JP> |
---|
| 6 | ;; + mecab-ipadic-2.7.0-20070801 <utf-8> |
---|
| 7 | ;; |
---|
| 8 | ;; written by naoya_t |
---|
| 9 | |
---|
| 10 | (use gauche.test) |
---|
| 11 | |
---|
| 12 | (test-start "mecab: dictionary-dependent tests <vol.2>: ipadic") |
---|
| 13 | (use text.mecab) |
---|
| 14 | (test-module 'text.mecab) |
---|
| 15 | |
---|
| 16 | (let1 m (mecab-new2 "") |
---|
| 17 | (test-section "mecab-sparse-tostr") |
---|
| 18 | (test* "��Ĥ���" |
---|
| 19 | (string-join '("������,*,*,*,*,������� "��\t���ʽ���,*,*,*,��,��,��" |
---|
| 20 | "���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������" |
---|
| 21 | "��\t�����,*,*,*,*,��,��,��" |
---|
| 22 | "EOS" |
---|
| 23 | "") "\n") |
---|
| 24 | (mecab-sparse-tostr m "��Ĥ���")) |
---|
| 25 | |
---|
| 26 | (test-section "mecab-sparse-tostr2") |
---|
| 27 | (test* "\"��Ĥ���\", len=6" |
---|
| 28 | (string-join '("������,*,*,*,*,������� "��\t���ʽ���,*,*,*,��,��,��" |
---|
| 29 | "EOS" |
---|
| 30 | "") "\n") |
---|
| 31 | (mecab-sparse-tostr2 m "��Ĥ���" 6)) |
---|
| 32 | |
---|
| 33 | (test-section "mecab-sparse-tonode, mecab-node-***") |
---|
| 34 | (let1 node (mecab-sparse-tonode m "��Ĥ���") |
---|
| 35 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 36 | (test* "no previous node" #f (mecab-node-prev node)) |
---|
| 37 | (test* "next node" #t (mecab-node? (mecab-node-next node))) |
---|
| 38 | (test* "enext" #f (mecab-node? (mecab-node-enext node))) |
---|
| 39 | (test* "bnext" #f (mecab-node? (mecab-node-bnext node))) |
---|
| 40 | (test* "surface" "" (mecab-node-surface node)) |
---|
| 41 | (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node)) |
---|
| 42 | (test* "length" 0 (mecab-node-length node)) |
---|
| 43 | (test* "rlength" 0 (mecab-node-rlength node)) |
---|
| 44 | (test* "id" 0 (mecab-node-id node)) |
---|
| 45 | (test* "rc-attr" 0 (mecab-node-rc-attr node)) |
---|
| 46 | (test* "lc-attr" 0 (mecab-node-lc-attr node)) |
---|
| 47 | (test* "posid" 0 (mecab-node-posid node)) |
---|
| 48 | (test* "char-type" 0 (mecab-node-char-type node)) |
---|
| 49 | (test* "stat" 'mecab-bos-node (mecab-node-stat node)) |
---|
| 50 | (test* "best?" #t (mecab-node-best? node)) |
---|
| 51 | (test* "alpha" 0.0 (mecab-node-alpha node)) |
---|
| 52 | (test* "beta" 0.0 (mecab-node-beta node)) |
---|
| 53 | (test* "prob" 0.0 (mecab-node-prob node)) |
---|
| 54 | (test* "wcost" 0 (mecab-node-wcost node)) |
---|
| 55 | (test* "cost" 0 (mecab-node-cost node)) |
---|
| 56 | |
---|
| 57 | (set! node (mecab-node-next node)) |
---|
| 58 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 59 | (test* "previous node" #t (mecab-node? (mecab-node-prev node))) |
---|
| 60 | (test* "next node" #t (mecab-node? (mecab-node-next node))) |
---|
| 61 | (test* "enext" #t (mecab-node? (mecab-node-enext node))) |
---|
| 62 | (test* "bnext" #f (mecab-node? (mecab-node-bnext node))) |
---|
| 63 | (test* "surface" "��mecab-node-surface node)) |
---|
| 64 | (test* "feature" "̾���,*,*,*,*,�������(mecab-node-feature node)) |
---|
| 65 | (test* "length" 3 (mecab-node-length node)) |
---|
| 66 | (test* "rlength" 3 (mecab-node-rlength node)) |
---|
| 67 | (test* "id" 1 (mecab-node-id node)) |
---|
| 68 | (test* "rc-attr" 1285 (mecab-node-rc-attr node)) |
---|
| 69 | (test* "lc-attr" 1285 (mecab-node-lc-attr node)) |
---|
| 70 | (test* "posid" 38 (mecab-node-posid node)) |
---|
| 71 | (test* "char-type" 2 (mecab-node-char-type node)) |
---|
| 72 | (test* "stat" 'mecab-nor-node (mecab-node-stat node)) |
---|
| 73 | (test* "best?" #t (mecab-node-best? node)) |
---|
| 74 | (test* "alpha" 0.0 (mecab-node-alpha node)) |
---|
| 75 | (test* "beta" 0.0 (mecab-node-beta node)) |
---|
| 76 | (test* "prob" 0.0 (mecab-node-prob node)) |
---|
| 77 | (test* "wcost" 7439 (mecab-node-wcost node)) |
---|
| 78 | (test* "cost" 7156 (mecab-node-cost node)) |
---|
| 79 | ) |
---|
| 80 | |
---|
| 81 | (test-section "mecab-sparse-tonode2") |
---|
| 82 | (let1 node (mecab-sparse-tonode2 m "��Ĥ���" 6) |
---|
| 83 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 84 | (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node)) |
---|
| 85 | (test* "stat" 'mecab-bos-node (mecab-node-stat node)) |
---|
| 86 | |
---|
| 87 | (set! node (mecab-node-next node)) |
---|
| 88 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 89 | (test* "surface" "��mecab-node-surface node)) |
---|
| 90 | (test* "feature" "̾���,*,*,*,*,�������(mecab-node-feature node)) |
---|
| 91 | (test* "stat" 'mecab-nor-node (mecab-node-stat node)) |
---|
| 92 | |
---|
| 93 | (set! node (mecab-node-next node)) |
---|
| 94 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 95 | (test* "surface" "��" (mecab-node-surface node)) |
---|
| 96 | (test* "feature" "���ʽ���,*,*,*,��,��,��" (mecab-node-feature node)) |
---|
| 97 | (test* "stat" 'mecab-nor-node (mecab-node-stat node)) |
---|
| 98 | |
---|
| 99 | (set! node (mecab-node-next node)) |
---|
| 100 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 101 | (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node)) |
---|
| 102 | (test* "stat" 'mecab-eos-node (mecab-node-stat node)) |
---|
| 103 | (test* "no next node" #f (mecab-node-next node)) |
---|
| 104 | ) |
---|
| 105 | ; (test-section "mecab-format-node") |
---|
| 106 | ; (let1 node (mecab-sparse-tonode m "��Ĥ���") |
---|
| 107 | ; (test* "BOS" "" (mecab-format-node mecab node))) |
---|
| 108 | (mecab-destroy m)) |
---|
| 109 | |
---|
| 110 | (let ([m (mecab-new2 "-l 1")] ;; |
---|
| 111 | [input "��Ĥ���"]) |
---|
| 112 | (test-section "mecab-nbest-sparse-tostr") |
---|
| 113 | (test* #`",|input|, N=1" |
---|
| 114 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 115 | (mecab-nbest-sparse-tostr m 1 input)) |
---|
| 116 | (test* #`",|input|, N=2" |
---|
| 117 | (string-append |
---|
| 118 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 119 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 120 | ) |
---|
| 121 | (mecab-nbest-sparse-tostr m 2 input)) |
---|
| 122 | (test* #`",|input|, N=3" |
---|
| 123 | (string-append |
---|
| 124 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 125 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 126 | "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 127 | ) |
---|
| 128 | (mecab-nbest-sparse-tostr m 3 input)) |
---|
| 129 | |
---|
| 130 | (test-section "mecab-nbest-sparse-tostr2") |
---|
| 131 | (test* #`",|input|, N=1" |
---|
| 132 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 133 | (mecab-nbest-sparse-tostr2 m 1 input 6)) |
---|
| 134 | (test* #`",|input|, N=2" |
---|
| 135 | (string-append |
---|
| 136 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 137 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 138 | ) |
---|
| 139 | (mecab-nbest-sparse-tostr2 m 2 input 6)) |
---|
| 140 | (test* #`",|input|, N=3" |
---|
| 141 | (string-append |
---|
| 142 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 143 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 144 | "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 145 | ) |
---|
| 146 | (mecab-nbest-sparse-tostr2 m 3 input 6)) |
---|
| 147 | |
---|
| 148 | (test-section "mecab-nbest-init") |
---|
| 149 | (test* "init" 1 (mecab-nbest-init m input)) |
---|
| 150 | (test-section "mecab-nbest-next-tostr") |
---|
| 151 | (test* "#1" |
---|
| 152 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 153 | (mecab-nbest-next-tostr m)) |
---|
| 154 | (test* "#2" |
---|
| 155 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 156 | (mecab-nbest-next-tostr m)) |
---|
| 157 | (test* "#3" |
---|
| 158 | "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 159 | (mecab-nbest-next-tostr m)) |
---|
| 160 | (test* "#4" |
---|
| 161 | "������,*,*,*,*,���������\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 162 | (mecab-nbest-next-tostr m)) |
---|
| 163 | (test* "#5" |
---|
| 164 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 165 | (mecab-nbest-next-tostr m)) |
---|
| 166 | (test* "#6" |
---|
| 167 | "������,*,*,*,*,���������\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 168 | (mecab-nbest-next-tostr m)) |
---|
| 169 | (test* "#7" |
---|
| 170 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 171 | (mecab-nbest-next-tostr m)) |
---|
| 172 | (test* "#8" |
---|
| 173 | "������,*,*,*,*,���������\t�³��,*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 174 | (mecab-nbest-next-tostr m)) |
---|
| 175 | (test* "#9" |
---|
| 176 | "������,*,*,*,*,����,����\n��\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 177 | (mecab-nbest-next-tostr m)) |
---|
| 178 | (test* "#10" |
---|
| 179 | "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n" |
---|
| 180 | (mecab-nbest-next-tostr m)) |
---|
| 181 | (dotimes (i 733) |
---|
| 182 | (mecab-nbest-next-tostr m)) |
---|
| 183 | (test* "#744" |
---|
| 184 | "������,*,*,*,*,����,����\n��\tư����,��ʡ���,�������죲,�����,��\n�\t̾����̾��ϰ��,*,*,�,����,����\n��\tư����,*,*,��,̤��������,��\n��\t̾�����³,*,*,*,*,*\nEOS\n" |
---|
| 185 | (mecab-nbest-next-tostr m)) |
---|
| 186 | ;; no more results... |
---|
| 187 | (test* "#745" #f (mecab-nbest-next-tostr m)) |
---|
| 188 | (test* "mecab-strerror" #f (string=? "" (mecab-strerror m))) |
---|
| 189 | |
---|
| 190 | (test-section "mecab-nbest-init2") |
---|
| 191 | (test* "init2" 1 (mecab-nbest-init2 m input 6)) |
---|
| 192 | (test* "#1" |
---|
| 193 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 194 | (mecab-nbest-next-tostr m)) |
---|
| 195 | (test* "#2" |
---|
| 196 | "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 197 | (mecab-nbest-next-tostr m)) |
---|
| 198 | (test* "#3" |
---|
| 199 | "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\nEOS\n" |
---|
| 200 | (mecab-nbest-next-tostr m)) |
---|
| 201 | (dotimes (i 8) (mecab-nbest-next-tostr m)) |
---|
| 202 | (test* "#12" |
---|
| 203 | "������,*,*,*,*,����,����\n��\tư����,��ʡ���,�������죲,�����,��\nEOS\n" |
---|
| 204 | (mecab-nbest-next-tostr m)) |
---|
| 205 | ;; no more results... |
---|
| 206 | (test* "#13" #f (mecab-nbest-next-tostr m)) |
---|
| 207 | (test* "mecab-strerror" #f (string=? "" (mecab-strerror m))) |
---|
| 208 | |
---|
| 209 | (test-section "mecab-nbest-next-tonode") |
---|
| 210 | (mecab-nbest-init m input) |
---|
| 211 | (test* "#1" #t (mecab-node? (mecab-nbest-next-tonode m))) |
---|
| 212 | (dotimes (i 742) (mecab-nbest-next-tonode m)) |
---|
| 213 | (test* "#744" #t (mecab-node? (mecab-nbest-next-tonode m))); EOS |
---|
| 214 | ;; no more results... |
---|
| 215 | (test* "#745" #f (mecab-node? (mecab-nbest-next-tonode m))) |
---|
| 216 | (test* "mecab-strerror" #f (string=? "" (mecab-strerror m))) |
---|
| 217 | |
---|
| 218 | (mecab-destroy m)) |
---|
| 219 | |
---|
| 220 | ;; |
---|
| 221 | ;; these values below may differ !!! |
---|
| 222 | (test-section "mecab-dictionary-info, mecab-dictionary-info-***") |
---|
| 223 | (let* ([m (mecab-new2 "")] |
---|
| 224 | [dinfo (mecab-dictionary-info m)]) |
---|
| 225 | (test* "mecab-dictionary-info?" #t (mecab-dictionary-info? dinfo)) |
---|
| 226 | (test* "mecab-dictionary-info-filename" |
---|
| 227 | "/usr/local/lib/mecab/dic/ipadic/sys.dic" (mecab-dictionary-info-filename dinfo)) |
---|
| 228 | (test* "mecab-dictionary-info-charset" |
---|
| 229 | "utf8" (mecab-dictionary-info-charset dinfo)) |
---|
| 230 | (test* "mecab-dictionary-info-size" |
---|
| 231 | 392126 (mecab-dictionary-info-size dinfo)) |
---|
| 232 | (test* "mecab-dictionary-info-type" 'mecab-sys-dic (mecab-dictionary-info-type dinfo)) |
---|
| 233 | (test* "mecab-dictionary-info-lsize" |
---|
| 234 | 1316 (mecab-dictionary-info-lsize dinfo)) |
---|
| 235 | (test* "mecab-dictionary-info-rsize" |
---|
| 236 | 1316 (mecab-dictionary-info-rsize dinfo)) |
---|
| 237 | (test* "mecab-dictionary-info-version" |
---|
| 238 | 102 (mecab-dictionary-info-version dinfo)) |
---|
| 239 | ; (let1 next-dinfo (mecab-dictionary-info-next dinfo) |
---|
| 240 | ; (test* "has next?" #t (mecab-dictionary-info? next-dinfo))) |
---|
| 241 | (mecab-destroy m)) |
---|
| 242 | |
---|
| 243 | |
---|
| 244 | ;;;;;;;;;; |
---|
| 245 | ;; |
---|
| 246 | ;; TO DO |
---|
| 247 | ;; |
---|
| 248 | ;;(test-section "mecab-do") |
---|
| 249 | ;;(test-section "mecab-dict-index") |
---|
| 250 | ;;(test-section "mecab-dict-gen") |
---|
| 251 | ;;(test-section "mecab-cost-train") |
---|
| 252 | ;;(test-section "mecab-system-eval") |
---|
| 253 | ;;(test-section "mecab-test-gen") |
---|
| 254 | |
---|
| 255 | ;;; |
---|
| 256 | ;;; tagger (message passing) |
---|
| 257 | ;;; |
---|
| 258 | (test-section "tagger") |
---|
| 259 | (let1 tagger (mecab-tagger "-l 1") |
---|
| 260 | (test* "tagger'parse-to-string" |
---|
| 261 | (string-join '("���\t̾���ǽ,*,*,*,*,���,���祦,���硼" |
---|
| 262 | "��������*,*,*,*,���� "��\tư���Ω,*,*,������������������,��" |
---|
| 263 | "�ʤ�\t���,*,*,��졦�ʥ�,����ʤ�,�ʥ�,�ʥ�" |
---|
| 264 | "��t���³��*,*,*,*,������ |
---|
| 265 | "��t������*,*,*,*,������ |
---|
| 266 | "EOS" |
---|
| 267 | "") "\n") |
---|
| 268 | ([tagger'parse-to-string] "����⤷�ʤ��Ȥ�)) |
---|
| 269 | |
---|
| 270 | (let1 node ([tagger'parse-to-node] "����⤷�ʤ��Ȥ�) |
---|
| 271 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 272 | (test* "mecab-node-surface" "" (mecab-node-surface node)) |
---|
| 273 | (test* "mecab-node-feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node)) |
---|
| 274 | (test* "mecab-node-cost" 0 (mecab-node-cost node)) |
---|
| 275 | |
---|
| 276 | (set! node (mecab-node-next node)) |
---|
| 277 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 278 | (test* "mecab-node-surface" "���" (mecab-node-surface node)) |
---|
| 279 | (test* "mecab-node-feature" "̾���ǽ,*,*,*,*,���,���祦,���硼" (mecab-node-feature node)) |
---|
| 280 | (test* "mecab-node-cost" 3947 (mecab-node-cost node)) |
---|
| 281 | ;;(test* "format-node" "" ([tagger'format-node] node)) |
---|
| 282 | |
---|
| 283 | (set! node (mecab-node-next node)) |
---|
| 284 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 285 | (test* "mecab-node-surface" "��(mecab-node-surface node)) |
---|
| 286 | (test* "mecab-node-feature" "������*,*,*,*,����(mecab-node-feature node)) |
---|
| 287 | (test* "mecab-node-cost" 5553 (mecab-node-cost node)) |
---|
| 288 | |
---|
| 289 | (set! node (mecab-node-next node)) |
---|
| 290 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 291 | (test* "mecab-node-surface" "��" (mecab-node-surface node)) |
---|
| 292 | (test* "mecab-node-feature" "ư���Ω,*,*,������������������,��" (mecab-node-feature node)) |
---|
| 293 | (test* "mecab-node-cost" 11566 (mecab-node-cost node)) |
---|
| 294 | |
---|
| 295 | (set! node (mecab-node-next node)) |
---|
| 296 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 297 | (test* "mecab-node-surface" "�ʤ�" (mecab-node-surface node)) |
---|
| 298 | (test* "mecab-node-feature" "���,*,*,��졦�ʥ�,����ʤ�,�ʥ�,�ʥ�" (mecab-node-feature node)) |
---|
| 299 | (test* "mecab-node-cost" 3601 (mecab-node-cost node)) |
---|
| 300 | |
---|
| 301 | (set! node (mecab-node-next node)) |
---|
| 302 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 303 | (test* "mecab-node-surface" "�� (mecab-node-surface node)) |
---|
| 304 | (test* "mecab-node-feature" "���³��*,*,*,*,������ (mecab-node-feature node)) |
---|
| 305 | (test* "mecab-node-cost" 4716 (mecab-node-cost node)) |
---|
| 306 | |
---|
| 307 | (set! node (mecab-node-next node)) |
---|
| 308 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 309 | (test* "mecab-node-surface" "�� (mecab-node-surface node)) |
---|
| 310 | (test* "mecab-node-feature" "������*,*,*,*,������ (mecab-node-feature node)) |
---|
| 311 | (test* "mecab-node-cost" 10676 (mecab-node-cost node)) |
---|
| 312 | |
---|
| 313 | (set! node (mecab-node-next node)) |
---|
| 314 | (test* "mecab-node?" #t (mecab-node? node)) |
---|
| 315 | (test* "mecab-node-surface" "" (mecab-node-surface node)) |
---|
| 316 | (test* "mecab-node-feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node)) |
---|
| 317 | (test* "mecab-node-cost" 8292 (mecab-node-cost node)) |
---|
| 318 | |
---|
| 319 | (set! node (mecab-node-next node)) |
---|
| 320 | (test* "mecab-node?" #f (mecab-node? node)) |
---|
| 321 | |
---|
| 322 | (tagger'destroy) |
---|
| 323 | )) |
---|
| 324 | |
---|
| 325 | (test-end) |
---|