[117] | 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 | (define m (mecab-new2 "")) |
---|
| 13 | (test* "mecab-new2" #t (is-a? m <mecab>)) |
---|
| 14 | (test* "mecab-destroy" #f (mecab-destroyed? m)) |
---|
| 15 | (mecab-destroy m) |
---|
| 16 | (test* "mecab-destroy" #t (mecab-destroyed? m)) |
---|
| 17 | |
---|
| 18 | (test*Â "mecab-sparse-tostr"Â #f |
---|
| 19 |     (mecab-sparse-tostr m "�Ϻ�ϼ�Ϻ���������Ҥ�Ϥ�����")) |
---|
| 20 | (test* "mecab-strerror" #t (string? (mecab-strerror m))) |
---|
| 21 | |
---|
| 22 | (define m (mecab-new2 "")) |
---|
| 23 | (test*Â "mecab-sparse-tostr" |
---|
| 24 |     "�Ϻ   ̾����,*,*,�Ϻ,ï¿½ï¿½ï¿½í¤¦,*\n\ |
---|
| 25 |     �������*,*,����*\n\ |
---|
| 26 |     ��Ϻ   ̾����,*,*,��Ϻ,ï¿½ï¿½ï¿½í¤¦,*\n\ |
---|
| 27 |     ��   ���ʽ�*,*,��,��,*\n\ |
---|
| 28 |     ��ư��,�Ҳ�ư�쥿���������Ʒ����ä��ɽɽ��:�� |
---|
| 29 |     �������������,���ư�����������\n\ |
---|
| 30 |     �    ̾���̾��,*,�,�ۤ���:�� �ɽɽ��:�\n\ |
---|
| 31 |     ����ʽ�*,*,��,*\n\ |
---|
| 32 |     �ֻ�̾����,*,*,�ֻ��Ϥʤ�,*\n\ |
---|
| 33 |     �����ʽ�*,*,����*\n\ |
---|
| 34 |     �����  ư��,�Ҳ�ư�쥵���������,�錄����,�°ư����ʴ���ɽɽ��:���\n\ |
---|
| 35 |     ��   ����,*,*,��,��,*\n\ |
---|
| 36 | Â Â Â Â EOS\n" |
---|
| 37 |     (mecab-sparse-tostr m "�Ϻ�ϼ�Ϻ���������Ҥ�Ϥ�����")) |
---|
| 38 | Â Â Â Â Â Â Â Â Â Â Â Â Â Â |
---|
| 39 | (mecab-destroy m) |
---|
| 40 | |
---|
| 41 | (test-end) |
---|