cpan/dist/Unicode-Japanese/t/utf8flag.t


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
28
29
30
31

## ----------------------------------------------------------------------------
# t/utf8flag.t
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------

use strict;
use Test;
BEGIN { plan tests => 1; }
use Unicode::Japanese;
my $string;

if( $]<5.008 )
{
  skip("your perl(v$]) maybe not support utf-8.",0,1);
}else
{
  my $CODE=<<'CODE';
	
  # ---------------------------------------------------------------------------
  # check utf-8 flag

  # h2z num
  $string = Unicode::Japanese->new("0129");
  $string->h2z();
  ok( $string->getu(), "\x{ff10}\x{ff11}\x{ff12}\x{ff19}");
  
CODE
  eval $CODE;
  $@ and die $@;
}