1## ----------------------------------------------------------------------------
2# t/base.t
3# -----------------------------------------------------------------------------
4# $Id: base.t 4499 2002-10-31 07:48:02Z hio $
5# -----------------------------------------------------------------------------
6
7use strict;
8use Test;
9BEGIN { plan tests => 8 }
10
11# -----------------------------------------------------------------------------
12# load module
13
14require Unicode::Japanese;
15ok(1);
16
17import Unicode::Japanese;
18ok(1);
19
20# -----------------------------------------------------------------------------
21# check new and set/get
22
23my $string;
24
25$string = new Unicode::Japanese;
26ok($string);
27
28$string = new Unicode::Japanese 'abcde';
29ok($string->get, 'abcde');
30
31$string = new Unicode::Japanese;
32$string->set('abcde');
33ok($string->get, 'abcde');
34
35# -----------------------------------------------------------------------------
36# check new and set/get *PurePerl*
37
38$string = new Unicode::Japanese::PurePerl;
39ok($string);
40
41$string = new Unicode::Japanese::PurePerl 'abcde';
42ok($string->get, 'abcde');
43
44$string = new Unicode::Japanese::PurePerl;
45$string->set('abcde');
46ok($string->get, 'abcde');
47
48