root/lang/perl/Data-Visitor-Encode/trunk/t/04-encode_decode_utf8.t @ 22773

use strict;
# use utf8;
use lib "t/lib";
use Test::More tests => 15;
use Test::Data::Visitor::Encode;
use Encode;

BEGIN
{
    use_ok("Data::Visitor::Encode");
}

{
    use utf8;

    # hashref 
    encode_utf8_ok( { "日本語" => "あいうえお" }, "encode_utf8 on hashref" );

    # arrayref
    encode_utf8_ok( [ "日本語", "あいうえお" ], "encode_utf8 on arrayref" );

    # scalarref
    encode_utf8_ok( \"日本語", "encode_utf8 on scalarref" );

    encode_utf8_ok( bless({ "日本語" => "あいえうお" }, "Hoge"), "encode_utf8 on object" );
}

{
    # hashref 
    decode_utf8_ok( { "日本語" => "あいうえお" }, "decode_utf8 on hashref" );

    # arrayref
    decode_utf8_ok( [ "日本語", "あいうえお" ], "decode_utf8 on arrayref" );

    # scalarref
    decode_utf8_ok( \"日本語", "decode_utf8 on scalarref" );

    decode_utf8_ok( bless({ "日本語" => "あいえうお" }, "Hoge"), "decode_utf8 on object" );
}