blob: a18b9efc30170b799d470cfa2b47030efc4533d3 (
plain)
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
|
use Test;
BEGIN { plan tests => 5 }
require Unicode::Japanese;
ok(1);
import Unicode::Japanese;
ok(1);
## check new and set/get
my $string;
$string = new Unicode::Japanese;
ok($string);
$string = new Unicode::Japanese 'abcde';
ok($string->get, 'abcde');
$string = new Unicode::Japanese;
$string->set('abcde');
ok($string->get, 'abcde');
|
