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