blob: 0b43a99b25714ec8b9b5f388a179d659a52713b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#! /usr/bin/perl -w
# $Id$
use strict;
use Test::More tests => 2;
use Unicode::Japanese;
# JIS, HANKAKU-KATAKANA, "TE SU TO"
my $txt = "\e(IC=D\e(B";
Unicode::Japanese->new(); # load dyncode.
is( Unicode::Japanese->getcode($txt), "jis", "getcode(xs): jis");
is( Unicode::Japanese::PurePerl->getcode($txt), "jis", "getcode(pp): jis");
|
