root/lang/scheme/gauche/bindings/mecab/cvs/test-naoyat.scm @ 125

Revision 117, 19.0 kB (checked in by naoya_t, 16 years ago)
Line 
1;; -*- coding:euc-jp -*-
2;;
3;; test for mecab module
4;;
5
6(use gauche.test)
7
8(test-start "mecab")
9(use text.mecab)
10(test-module 'text.mecab)
11
12(test-section "naoya_t")
13;;
14;; primitive things
15;;
16(test-section "[gauche] write-object")
17(let1 mecab (mecab-new2 "")
18  (test* "display" "#<mecab>" (with-output-to-string (lambda () (display mecab)))))
19
20(test-section "[gauche] reader-ctor")
21(let1 mecab #,(<mecab> "") ;; with reader-ctor
22  (test* "#,(<mecab> \"\")" #t (mecab? mecab))
23  (mecab-destroy mecab))
24(let1 mecab #,(<mecab> "-Ochasen") ;; with reader-ctor
25  (test* "#,(<mecab> \"-Ochasen\")" #t (mecab? mecab))
26  (mecab-destroy mecab))
27
28(let* ([m (mecab-new2 "")]
29       [node (mecab-sparse-tonode m "")]
30       [dinfo (mecab-dictionary-info m)])
31  (test-section "[gauche] mecab?")
32  (test* "<mecab>" #t (mecab? m))
33  (test* "<mecab-node>" #f (mecab? node))
34  (test* "<mecab-dictionary-info>" #f (mecab? dinfo))
35  (test* "#f" #f (mecab? #f))
36
37  (test-section "[gauche] mecab-node?")
38  (test* "<mecab>" #f (mecab-node? m))
39  (test* "<mecab-node>" #t (mecab-node? node))
40  (test* "<mecab-dictionary-info>" #f (mecab-node? dinfo))
41  (test* "#f" #f (mecab-node? #f))
42
43  (test-section "[gauche] mecab-dictionary-info?")
44  (test* "<mecab>" #f (mecab-dictionary-info? m))
45  (test* "<mecab-node>" #f (mecab-dictionary-info? node))
46  (test* "<mecab-dictionary-info>" #t (mecab-dictionary-info? dinfo))
47  (test* "#f" #f (mecab-dictionary-info? #f))
48
49  (mecab-destroy m))
50
51(test-section "mecab-new")
52(let1 m (mecab-new '())
53  (test* "is-a? <mecab>" #t (is-a? m <mecab>))
54  (test* "mecab?" #t (mecab? m))
55
56  (test-section "mecab-destroy")
57  (test* "mecab-destroyed?" #f (mecab-destroyed? m))
58  (mecab-destroy m)
59  (test* "mecab-destroyed?" #t (mecab-destroyed? m))
60  )
61
62(test-section "mecab-new2")
63(let1 m (mecab-new2 "")
64  (test* "is-a? <mecab>" #t (is-a? m <mecab>))
65  (test* "mecab?" #t (mecab? m))
66  (mecab-destroy m))
67
68(test-section "mecab-version")
69(test* "mecab-version" "0.98pre1" (mecab-version))
70
71(test-section "mecab-strerror")
72
73(mecab-new2 "")
74(test* "at mecab-new2 (ok)" "" (mecab-strerror #f))
75
76(mecab-new2 "-d //")
77;; "tagger.cpp(149) [load_dictionary_resource(param)] param.cpp(71) [ifs] no such file or directory:  //dicrc"
78(test* "at mecab-new (err)" #f (string=? "" (mecab-strerror #f)))
79
80(let1 m (mecab-new2 "")
81  (mecab-sparse-tostr m "��Ĥ���")
82  (test* "noerr" "" (mecab-strerror m))
83  (mecab-destroy m))
84
85(let1 m (mecab-new2 "")
86  (test-section "mecab-sparse-tostr")
87  (test* "��Ĥ���"
88         (string-join '("������,*,*,*,*,�������                        "��\t���ʽ���,*,*,*,��,��,��"
89                        "���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������"
90                        "��\t�����,*,*,*,*,��,��,��"
91                        "EOS"
92                        "") "\n")
93         (mecab-sparse-tostr m "��Ĥ���"))
94
95  (test-section "mecab-sparse-tostr2")
96  (test* "\"��Ĥ���\", len=6"
97         (string-join '("������,*,*,*,*,�������                        "��\t���ʽ���,*,*,*,��,��,��"
98                        "EOS"
99                        "") "\n")
100         (mecab-sparse-tostr2 m "��Ĥ���" 6))
101
102  (test-section "mecab-sparse-tonode, mecab-node-***")
103  (let1 node (mecab-sparse-tonode m "��Ĥ���")
104    (test* "mecab-node?" #t (mecab-node? node))
105    (test* "no previous node" #f (mecab-node-prev node))
106    (test* "next node" #t (mecab-node? (mecab-node-next node)))
107    (test* "enext" #f (mecab-node? (mecab-node-enext node)))
108    (test* "bnext" #f (mecab-node? (mecab-node-bnext node)))
109    (test* "surface" "" (mecab-node-surface node))
110    (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node))
111    (test* "length" 0 (mecab-node-length node))
112    (test* "rlength" 0 (mecab-node-rlength node))
113    (test* "id" 0 (mecab-node-id node))
114    (test* "rc-attr" 0 (mecab-node-rc-attr node))
115    (test* "lc-attr" 0 (mecab-node-lc-attr node))
116    (test* "posid" 0 (mecab-node-posid node))
117    (test* "char-type" 0 (mecab-node-char-type node))
118    (test* "stat" 'mecab-bos-node (mecab-node-stat node))
119    (test* "best?" #t (mecab-node-best? node))
120    (test* "alpha" 0.0 (mecab-node-alpha node))
121    (test* "beta" 0.0 (mecab-node-beta node))
122    (test* "prob" 0.0 (mecab-node-prob node))
123    (test* "wcost" 0 (mecab-node-wcost node))
124    (test* "cost" 0 (mecab-node-cost node))
125
126    (set! node (mecab-node-next node))
127    (test* "mecab-node?" #t (mecab-node? node))
128    (test* "previous node" #t (mecab-node? (mecab-node-prev node)))
129    (test* "next node" #t (mecab-node? (mecab-node-next node)))
130    (test* "enext" #t (mecab-node? (mecab-node-enext node)))
131    (test* "bnext" #f (mecab-node? (mecab-node-bnext node)))
132    (test* "surface" "��mecab-node-surface node))
133    (test* "feature" "̾���,*,*,*,*,�������(mecab-node-feature node))
134    (test* "length" 3 (mecab-node-length node))
135    (test* "rlength" 3 (mecab-node-rlength node))
136    (test* "id" 1 (mecab-node-id node))
137    (test* "rc-attr" 1285 (mecab-node-rc-attr node))
138    (test* "lc-attr" 1285 (mecab-node-lc-attr node))
139    (test* "posid" 38 (mecab-node-posid node))
140    (test* "char-type" 2 (mecab-node-char-type node))
141    (test* "stat" 'mecab-nor-node (mecab-node-stat node))
142    (test* "best?" #t (mecab-node-best? node))
143    (test* "alpha" 0.0 (mecab-node-alpha node))
144    (test* "beta" 0.0 (mecab-node-beta node))
145    (test* "prob" 0.0 (mecab-node-prob node))
146    (test* "wcost" 7439 (mecab-node-wcost node))
147    (test* "cost" 7156 (mecab-node-cost node))
148    )
149
150  (test-section "mecab-sparse-tonode2")
151  (let1 node (mecab-sparse-tonode2 m "��Ĥ���" 6)
152    (test* "mecab-node?" #t (mecab-node? node))
153    (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node))
154    (test* "stat" 'mecab-bos-node (mecab-node-stat node))
155
156    (set! node (mecab-node-next node))
157    (test* "mecab-node?" #t (mecab-node? node))
158    (test* "surface" "��mecab-node-surface node))
159    (test* "feature" "̾���,*,*,*,*,�������(mecab-node-feature node))
160    (test* "stat" 'mecab-nor-node (mecab-node-stat node))
161
162    (set! node (mecab-node-next node))
163    (test* "mecab-node?" #t (mecab-node? node))
164    (test* "surface" "��" (mecab-node-surface node))
165    (test* "feature" "���ʽ���,*,*,*,��,��,��" (mecab-node-feature node))
166    (test* "stat" 'mecab-nor-node (mecab-node-stat node))
167
168    (set! node (mecab-node-next node))
169    (test* "mecab-node?" #t (mecab-node? node))
170    (test* "feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node))
171    (test* "stat" 'mecab-eos-node (mecab-node-stat node))
172    (test* "no next node" #f (mecab-node-next node))
173    )
174;  (test-section "mecab-format-node")
175;  (let1 node (mecab-sparse-tonode m "��Ĥ���")
176;   (test* "BOS" "" (mecab-format-node mecab node)))
177  (mecab-destroy m))
178
179(let ([m (mecab-new2 "-l 1")] ;;
180      [input "��Ĥ���"])
181  (test-section "mecab-nbest-sparse-tostr")
182  (test* #`",|input|, N=1"
183         "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
184         (mecab-nbest-sparse-tostr m 1 input))
185  (test* #`",|input|, N=2"
186         (string-append
187          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
188          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
189          )
190         (mecab-nbest-sparse-tostr m 2 input))
191  (test* #`",|input|, N=3"
192         (string-append
193          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
194          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
195          "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
196          )
197         (mecab-nbest-sparse-tostr m 3 input))
198
199  (test-section "mecab-nbest-sparse-tostr2")
200  (test* #`",|input|, N=1"
201         "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
202         (mecab-nbest-sparse-tostr2 m 1 input 6))
203  (test* #`",|input|, N=2"
204         (string-append
205          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
206          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
207          )
208         (mecab-nbest-sparse-tostr2 m 2 input 6))
209  (test* #`",|input|, N=3"
210         (string-append
211          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
212          "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
213          "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\nEOS\n"
214          )
215         (mecab-nbest-sparse-tostr2 m 3 input 6))
216
217  (test-section "mecab-nbest-init")
218  (test* "init" 1 (mecab-nbest-init m input))
219  (test-section "mecab-nbest-next-tostr")
220  (test* "#1"
221        "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
222        (mecab-nbest-next-tostr m))
223  (test* "#2"
224        "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
225        (mecab-nbest-next-tostr m))
226  (test* "#3"
227        "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
228        (mecab-nbest-next-tostr m))
229  (test* "#4"
230         "������,*,*,*,*,���������\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
231         (mecab-nbest-next-tostr m))
232  (test* "#5"
233         "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
234         (mecab-nbest-next-tostr m))
235  (test* "#6"
236         "������,*,*,*,*,���������\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
237         (mecab-nbest-next-tostr m))
238  (test* "#7"
239         "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
240         (mecab-nbest-next-tostr m))
241  (test* "#8"
242         "������,*,*,*,*,���������\t�³��,*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
243         (mecab-nbest-next-tostr m))
244  (test* "#9"
245         "������,*,*,*,*,����,����\n��\t���³��*,*,*,*,��,��,��\n���\t��ƻ��Ω,*,*,��ƻ졦�������,������,������,������\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
246         (mecab-nbest-next-tostr m))
247  (test* "#10"
248         "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\n�\t��ƻ��Ω,*,*,��ƻ졦�������,����³,���,����,����\n��\tư����,*,*,��,Ϣ��������,��\n��\t�����,*,*,*,*,��,��,��\nEOS\n"
249         (mecab-nbest-next-tostr m))
250  (dotimes (i 733)
251    (mecab-nbest-next-tostr m))
252  (test* "#744"
253         "������,*,*,*,*,����,����\n��\tư����,��ʡ���,�������죲,�����,��\n�\t̾����̾��ϰ��,*,*,,����,����\n��\tư����,*,*,��,̤��������,��\n��\t̾�����³,*,*,*,*,*\nEOS\n"
254         (mecab-nbest-next-tostr m))
255  ;; no more results...
256  (test* "#745" #f (mecab-nbest-next-tostr m))
257  (test* "mecab-strerror" #f (string=? "" (mecab-strerror m)))
258 
259  (test-section "mecab-nbest-init2")
260  (test* "init2" 1 (mecab-nbest-init2 m input 6))
261  (test* "#1"
262        "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
263        (mecab-nbest-next-tostr m))
264  (test* "#2"
265        "������,*,*,*,*,���������\t���ʽ���,*,*,*,��,��,��\nEOS\n"
266        (mecab-nbest-next-tostr m))
267  (test* "#3"
268        "������,*,*,*,*,����,����\n��\t���ʽ���,*,*,*,��,��,��\nEOS\n"
269        (mecab-nbest-next-tostr m))
270  (dotimes (i 8) (mecab-nbest-next-tostr m))
271  (test* "#12"
272         "������,*,*,*,*,����,����\n��\tư����,��ʡ���,�������죲,�����,��\nEOS\n"
273         (mecab-nbest-next-tostr m))
274  ;; no more results...
275  (test* "#13" #f (mecab-nbest-next-tostr m))
276  (test* "mecab-strerror" #f (string=? "" (mecab-strerror m)))
277
278  (test-section "mecab-nbest-next-tonode")
279  (mecab-nbest-init m input)
280  (test* "#1" #t (mecab-node? (mecab-nbest-next-tonode m)))
281  (dotimes (i 742) (mecab-nbest-next-tonode m))
282  (test* "#744" #t (mecab-node? (mecab-nbest-next-tonode m))); EOS
283  ;; no more results...
284  (test* "#745" #f (mecab-node? (mecab-nbest-next-tonode m)))
285  (test* "mecab-strerror" #f (string=? "" (mecab-strerror m)))
286
287  (mecab-destroy m))
288
289;;
290;; these values below may differ !!!
291(test-section "mecab-dictionary-info, mecab-dictionary-info-***")
292(let* ([m (mecab-new2 "")]
293       [dinfo (mecab-dictionary-info m)])
294  (test* "mecab-dictionary-info?" #t (mecab-dictionary-info? dinfo))
295  (test* "mecab-dictionary-info-filename"
296         "/usr/local/lib/mecab/dic/ipadic/sys.dic" (mecab-dictionary-info-filename dinfo))
297  (test* "mecab-dictionary-info-charset"
298         "utf8" (mecab-dictionary-info-charset dinfo))
299  (test* "mecab-dictionary-info-size"
300         392126 (mecab-dictionary-info-size dinfo))
301  (test* "mecab-dictionary-info-type" 'mecab-sys-dic (mecab-dictionary-info-type dinfo))
302  (test* "mecab-dictionary-info-lsize"
303         1316 (mecab-dictionary-info-lsize dinfo))
304  (test* "mecab-dictionary-info-rsize"
305         1316 (mecab-dictionary-info-rsize dinfo))
306  (test* "mecab-dictionary-info-version"
307         102 (mecab-dictionary-info-version dinfo))
308;  (let1 next-dinfo (mecab-dictionary-info-next dinfo)
309;    (test* "has next?" #t (mecab-dictionary-info? next-dinfo)))
310  (mecab-destroy m))
311
312(let1 m (mecab-new2 "")
313  (test-section "mecab-get[set]-partial: �ʬ��θ��ߤΥ⡼��0/1)")
314  (test* "default partial mode" 0 (mecab-get-partial m))
315  (mecab-set-partial m 1)
316  (test* "set to 1" 1 (mecab-get-partial m))
317  (mecab-set-partial m 0)
318  (test* "set to 0" 0 (mecab-get-partial m))
319
320  (test-section "mecab-get[set]-theta: ���ե������񤭤β���ѥ�����")
321  (test* "default theta" 0.75 (mecab-get-theta m))
322  (mecab-set-theta m 1.0)
323  (test* "set to 1.0" 1.0 (mecab-get-theta m))
324  (mecab-set-theta m 0.5)
325  (test* "set to 0.5" 0.5 (mecab-get-theta m))
326
327  (test-section "mecab-get[set]-lattice-level: ����������0/1/2)")
328  (test* "default lattice level" 0 (mecab-get-lattice-level m))
329  (mecab-set-lattice-level m 1)
330  (test* "set to 1" 1 (mecab-get-lattice-level m))
331  (mecab-set-lattice-level m 2)
332  (test* "set to 2" 2 (mecab-get-lattice-level m))
333  (mecab-set-lattice-level m 0)
334  (test* "set to 0" 0 (mecab-get-lattice-level m))
335
336  (test-section "mecab-get[set]-all-morphs: ��ϥ⡼��0/1)")
337  (test* "default all-morphs" 0 (mecab-get-all-morphs m))
338  (mecab-set-all-morphs m 1)
339  (test* "set to 1" 1 (mecab-get-all-morphs m))
340  (mecab-set-all-morphs m 0)
341  (test* "set to 0" 0 (mecab-get-all-morphs m))
342  )
343
344;;;;;;;;;;
345;;
346;; TO DO
347;;
348;;(test-section "mecab-do")
349;;(test-section "mecab-dict-index")
350;;(test-section "mecab-dict-gen")
351;;(test-section "mecab-cost-train")
352;;(test-section "mecab-system-eval")
353;;(test-section "mecab-test-gen")
354
355;;;
356;;; tagger (message passing)
357;;;
358(test-section "tagger")
359(let1 tagger (mecab-tagger "")
360  (test* "tagger'parse-to-string"
361         (string-join '("���\t̾���ǽ,*,*,*,*,���,���祦,���硼"
362                        "��������*,*,*,*,����                        "��\tư���Ω,*,*,������������������,��"
363                        "�ʤ�\t���,*,*,��졦�ʥ�,����ʤ�,�ʥ�,�ʥ�"
364                        "��t���³��*,*,*,*,������
365                        "��t������*,*,*,*,������
366                        "EOS"
367                        "") "\n")
368         ([tagger'parse-to-string] "����⤷�ʤ��Ȥ�))
369
370  (let1 node ([tagger'parse-to-node] "����⤷�ʤ��Ȥ�)
371    (test* "mecab-node?" #t (mecab-node? node))
372    (test* "mecab-node-surface" "" (mecab-node-surface node))
373    (test* "mecab-node-feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node))
374    (test* "mecab-node-cost" 0 (mecab-node-cost node))
375
376    (set! node (mecab-node-next node))
377    (test* "mecab-node?" #t (mecab-node? node))
378    (test* "mecab-node-surface" "���" (mecab-node-surface node))
379    (test* "mecab-node-feature" "̾���ǽ,*,*,*,*,���,���祦,���硼" (mecab-node-feature node))
380    (test* "mecab-node-cost" 3947 (mecab-node-cost node))
381    ;;(test* "format-node" "" ([tagger'format-node] node))
382
383    (set! node (mecab-node-next node))
384    (test* "mecab-node?" #t (mecab-node? node))
385    (test* "mecab-node-surface" "��(mecab-node-surface node))
386    (test* "mecab-node-feature" "������*,*,*,*,����(mecab-node-feature node))
387    (test* "mecab-node-cost" 5553 (mecab-node-cost node))
388
389    (set! node (mecab-node-next node))
390    (test* "mecab-node?" #t (mecab-node? node))
391    (test* "mecab-node-surface" "��" (mecab-node-surface node))
392    (test* "mecab-node-feature" "ư���Ω,*,*,������������������,��" (mecab-node-feature node))
393    (test* "mecab-node-cost" 11566 (mecab-node-cost node))
394
395    (set! node (mecab-node-next node))
396    (test* "mecab-node?" #t (mecab-node? node))
397    (test* "mecab-node-surface" "�ʤ�" (mecab-node-surface node))
398    (test* "mecab-node-feature" "���,*,*,��졦�ʥ�,����ʤ�,�ʥ�,�ʥ�" (mecab-node-feature node))
399    (test* "mecab-node-cost" 3601 (mecab-node-cost node))
400
401    (set! node (mecab-node-next node))
402    (test* "mecab-node?" #t (mecab-node? node))
403    (test* "mecab-node-surface" "�� (mecab-node-surface node))
404    (test* "mecab-node-feature" "���³��*,*,*,*,������ (mecab-node-feature node))
405    (test* "mecab-node-cost" 4716 (mecab-node-cost node))
406
407    (set! node (mecab-node-next node))
408    (test* "mecab-node?" #t (mecab-node? node))
409    (test* "mecab-node-surface" "�� (mecab-node-surface node))
410    (test* "mecab-node-feature" "������*,*,*,*,������ (mecab-node-feature node))
411    (test* "mecab-node-cost" 10676 (mecab-node-cost node))
412
413    (set! node (mecab-node-next node))
414    (test* "mecab-node?" #t (mecab-node? node))
415    (test* "mecab-node-surface" "" (mecab-node-surface node))
416    (test* "mecab-node-feature" "BOS/EOS,*,*,*,*,*,*,*,*" (mecab-node-feature node))
417    (test* "mecab-node-cost" 8292 (mecab-node-cost node))
418
419    (set! node (mecab-node-next node))
420    (test* "mecab-node?" #f (mecab-node? node))
421    ))
422
423(test-end)
Note: See TracBrowser for help on using the browser.