1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
#!/usr/bin/perl
# $Id: 02-obj.t,v 2.0 2003/05/22 18:19:11 dankogai Exp $
#
# by Dan Kogai <dankogai@dan.co.jp>
use strict;
use vars qw($seq $test %sample %wakachi %yomikata $allascii);
unshift @INC, 't'; # for MyTestUtils.pm
require MyTestUtils;
$seq = 1;
$test = 65;
$| = 1;
print "1..$test\n";
eval { require Text::Kakasi };
ok(!$@ => "use") or warn $@;
my $k = Text::Kakasi->new;
ok((ref $k eq "Text::Kakasi"), "Text::Kakasi->new");
ok(! $k->set('-w')->error => "\$k->set()");
ok(($k->get("1") eq '1') => "\$k->get()");
ok(($k->close_kanwadict == 0) => "\$k->close_kanwadict()");
sub do_test{
my ($argv,$in,$exp,$process) = @_;
my (@argv) = split(' ',$argv);
my $result;
$result = $k->set(@argv)->get($in);
ok (($exp eq $result) => "\$k->set(qw/$argv/)->get");
$result = Text::Kakasi->new(@argv)->get($in);
ok (($exp eq $result) => "Text::Kakasi->new(qw/$argv/)->get");
}
do_test("-ieuc -osjis",$sample{'euc'},$sample{'sjis'});
do_test("-isjis -osjis" ,$sample{'sjis'},$sample{'sjis'});
do_test("-inewjis -osjis" ,$sample{'jis'},$sample{'sjis'});
do_test("-ieuc -onewjis",$sample{'euc'},$sample{'jis'});
do_test("-isjis -onewjis",$sample{'sjis'},$sample{'jis'});
do_test("-inewjis -onewjis",$sample{'jis'},$sample{'jis'});
do_test("-ieuc -oeuc",$sample{'euc'},$sample{'euc'});
do_test("-isjis -oeuc" ,$sample{'sjis'},$sample{'euc'});
do_test("-inewjis -oeuc" ,$sample{'jis'},$sample{'euc'});
do_test("-w -ieuc -osjis",$sample{'euc'},$wakachi{'sjis'});
do_test("-w -isjis -osjis" ,$sample{'sjis'},$wakachi{'sjis'});
do_test("-w -inewjis -osjis" ,$sample{'jis'},$wakachi{'sjis'});
do_test("-w -ieuc -onewjis",$sample{'euc'},$wakachi{'jis'});
do_test("-w -isjis -onewjis",$sample{'sjis'},$wakachi{'jis'});
do_test("-w -inewjis -onewjis",$sample{'jis'},$wakachi{'jis'});
do_test("-w -ieuc -oeuc",$sample{'euc'},$wakachi{'euc'});
do_test("-w -isjis -oeuc" ,$sample{'sjis'},$wakachi{'euc'});
do_test("-w -inewjis -oeuc" ,$sample{'jis'},$wakachi{'euc'});
do_test("-JH -p -f -s -ieuc -osjis",$sample{'euc'},$yomikata{'sjis'});
do_test("-JH -p -f -s -isjis -osjis" ,$sample{'sjis'},$yomikata{'sjis'});
do_test("-JH -p -f -s -inewjis -osjis" ,$sample{'jis'},$yomikata{'sjis'});
do_test("-JH -p -f -s -ieuc -onewjis",$sample{'euc'},$yomikata{'jis'});
do_test("-JH -p -f -s -isjis -onewjis",$sample{'sjis'},$yomikata{'jis'});
do_test("-JH -p -f -s -inewjis -onewjis",$sample{'jis'},$yomikata{'jis'});
do_test("-JH -p -f -s -ieuc -oeuc",$sample{'euc'},$yomikata{'euc'});
do_test("-JH -p -f -s -isjis -oeuc" ,$sample{'sjis'},$yomikata{'euc'});
do_test("-JH -p -f -s -inewjis -oeuc" ,$sample{'jis'},$yomikata{'euc'});
do_test("-Ha -Ja -Ea -Ka -ieuc -osjis",$sample{'euc'},$allascii);
do_test("-Ha -Ja -Ea -Ka -isjis -osjis" ,$sample{'sjis'},$allascii);
do_test("-Ha -Ja -Ea -Ka -inewjis -osjis" ,$sample{'jis'},$allascii);
exit;
# test for -f is not so simple.
# end
##### Master Test Data ##########################################
# begin 644 test.euc
# MI+.DSJ2_I-.DSZ'6:V%K87-I9F]R5VEN,S*AUZ3RI<"EIJ7SI>VAO*7)I+>D
# MQL2ZI*VDHJ3JI*RDR*2FI+2DMJ2DI-ZDN:&C"J2SI.RDSVMA:V%S:78R+C(N
# M-2ND[Z2KI,&]\:2MI/)C>6=W:6XL;6EN9W<S,J3'I;.E\Z71I:2EZZ3'I*VD
# MZPJDZ*2FI,NDMZ2_<&%T8VBD\J6SI?.ET:6DI>NTQ+:MI,[,M:2DROVDRZ3B
# MN\BDPZ3&Q+JDL:3KI.BDIE=I;F1O=W.DS@J\PKG4M\&\L*3+I+>DQJ3>I,BD
# MX:2_RJJDQZ2YH:,*NL>_M\C'I,^PRK*\I,Y796)086=E"CQ54DPZ:'1T<#HO
# M+W=W=RYT86UA+F]R+FIP+R4W16ME;GIO+2].86UA>G4O/@JDQ[CXLZNDMZ3&
# MI*2DWJ2YH:.ARKZPH:*DLZ3.I=JAO*6XI,_)K,W7I,NQ_J2XI,:YN;^WI+6D
# *[*3>I+FAHZ'+"@``
# `
# end
#################################################################
|
