root/lang/scheme/gauche/bindings/mecab/trunk/test-dep-1.scm

Revision 131, 1.2 kB (checked in by naoya_t, 15 years ago)

=> http://cvs.sourceforge.jp/view/gauche/Gauche-mecab/
Line 
1;; -*- coding:euc-jp -*-
2;;
3;; dictionary-dependent tests for mecab module <vol.1>
4;;
5
6(use gauche.test)
7
8(test-start "mecab: dictionary-dependent tests <vol.1>")
9(use text.mecab)
10(test-module 'text.mecab)
11
12(define m (mecab-new2 ""))
13
14(test-section "mecab-sparse-tostr")
15(test* "mecab-sparse-tostr" #f
16       (mecab-sparse-tostr m "�Ϻ�ϼ�Ϻ���������Ҥ�Ϥ�����"))
17(test* "mecab-strerror" #t (string? (mecab-strerror m)))
18
19(test* "mecab-sparse-tostr"
20       "�Ϻ      ̾����,*,*,�Ϻ,ï¿½ï¿½ï¿½í¤¦,*\n\
21        �������*,*,����*\n\
22        ��Ϻ     ̾����,*,*,��Ϻ,ï¿½ï¿½ï¿½í¤¦,*\n\
23        ��      ���ʽ�*,*,��,��,*\n\
24        ��ư��,�Ҳ�ư�쥿���������Ʒ����ä��ɽɽ��:��
25        �������������,���ư�����������\n\
26        �       ̾���̾��,*,�,�ۤ���:�� �ɽɽ��:�\n\
27        ����ʽ�*,*,��,*\n\
28        �ֻ�̾����,*,*,�ֻ��Ϥʤ�,*\n\
29        �����ʽ�*,*,����*\n\
30        �����   ư��,�Ҳ�ư�쥵���������,�錄����,�°ư����ʴ���ɽɽ��:���\n\
31        ��      ����,*,*,��,��,*\n\
32        EOS\n"
33       (mecab-sparse-tostr m "�Ϻ�ϼ�Ϻ���������Ҥ�Ϥ�����"))
34
35(mecab-destroy m)
36
37(test-end)
Note: See TracBrowser for help on using the browser.