#! /usr/bin/perl -w
## ----------------------------------------------------------------------------
#  t/hiragana.t
# -----------------------------------------------------------------------------
# Mastering programmed by YAMASHINA Hio
#
# Copyright 2006 YAMASHINA Hio
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------

use strict;
use warnings;
use Test::More tests => 6;

use Encode::Unicode::Japanese;
use Encode qw(encode decode);

{
  # HRIAGANA A
  #
  my $utf8 = "\x{3042}"; # "\xe3\x81\x82";
  my $sjis = "\x82\xa0";
  my $euc  = "\xa4\xa2";
	my $jis  = "\e\$B" . "\x24\x22" . "\e(B";
  
  is(encode('unijp-sjis', $utf8), $sjis, 'utf8 => sjis');
  is(encode('unijp-euc',  $utf8), $euc,  'utf8 => euc');
  is(encode('unijp-jis',  $utf8), $jis,  'utf8 => jis');
	
  is(decode('unijp-sjis', $sjis), $utf8,  'sjis => utf8');
  is(decode('unijp-euc',  $euc),  $utf8,  'euc  => utf8');
  is(decode('unijp-jis',  $jis),  $utf8,  'jis  => utf8');
}

# -----------------------------------------------------------------------------
# End of File.
# -----------------------------------------------------------------------------