root/lang/scheme/gauche/bindings/mecab/cvs/test.scm @ 117

Revision 117, 1.3 kB (checked in by naoya_t, 17 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(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)
Note: See TracBrowser for help on using the browser.