#
# $Id: length.t,v 2.0 2005/05/16 19:08:35 dankogai Exp $
#
# This script is in EUC-JP
use strict;
use Jcode;
use Test;
eval qq{ use bytes; }; # for sure
my %Tests =
(
'¤¢¤¤¤¦¤¨¤ª' => 5,
'¤¢xxx' => 4,
'¤¢ ¤¢ ' => 4,
'aaa' => 3,
"¥Û¥²\n¥Û¥²\n" => 6,
);
plan tests => (scalar keys %Tests);
while (my($str, $len) = each %Tests) {
ok( Jcode->new($str)->jlength, $len );
}