1## ----------------------------------------------------------------------------
2# t/utf8flag.t
3# -----------------------------------------------------------------------------
4# $Id: utf8flag.t 4504 2002-11-05 07:44:57Z hio $
5# -----------------------------------------------------------------------------
6
7use strict;
8use Test;
9BEGIN { plan tests => 1; }
10use Unicode::Japanese;
11my $string;
12
13if( $]<5.008 )
14{
15  skip("your perl(v$]) maybe not support utf-8.",0,1);
16}else
17{
18  my $CODE=<<'CODE';
19
20  # ---------------------------------------------------------------------------
21  # check utf-8 flag
22
23  # h2z num
24  $string = Unicode::Japanese->new("0129");
25  $string->h2z();
26  ok( $string->getu(), "\x{ff10}\x{ff11}\x{ff12}\x{ff19}");
27
28CODE
29  eval $CODE;
30  $@ and die $@;
31}
32