#########################

use utf8;
use strict;
use warnings;

use Test::More tests => 5;
BEGIN { use_ok('Unicode::Peek', qw( :all )) };

#########################

ok( ascii2hexEncode('UTF-32BE', '這是一個測試') eq
    '000090190000662f00004e000000500b00006e2c00008a66',
    'Ascii too Hex UTF-32BE' );

ok( hex2ascciiDecode('UTF-32BE',
		     '000090190000662f00004e000000500b00006e2c00008a66') eq
    '這是一個測試',
    'Hex to Ascii UTF-32BE' );

my @hexOutput = (  '00 00 90 19 00 00 66 2f 00 00',
		   '4e 00 00 00 50 0b 00 00 6e 2c',
		   '00 00 8a 66' );

is_deeply( hexDumperOutput('UTF-32BE', '這是一個測試' ), \@hexOutput );

ok( hexDumperInput('UTF-32BE', \@hexOutput ) eq
    '這是一個測試',
    'Hex to Ascii UTF-32BE hexDumperInput');