1use strict; 2# use utf8; 3use lib "t/lib"; 4use Test::More tests => 23; 5use Test::Data::Visitor::Encode; 6use Encode; 7 8BEGIN 9{ 10 use_ok("Data::Visitor::Encode"); 11} 12 13{ 14 use utf8; 15 16 # hashref 17 utf8_on_ok( { "日本語" => "あいうえお" }, "utf8_on on hashref" ); 18 19 # arrayref 20 utf8_on_ok( [ "日本語", "あいうえお" ], "utf8_on on arrayref" ); 21 22 # scalarref 23 utf8_on_ok( \"日本語", "utf8_on on scalarref" ); 24 25 utf8_on_ok( bless({ "日本語" => "あいえうお" }, "Hoge"), "utf8_on on object" ); 26} 27 28{ 29 # hashref 30 utf8_off_ok( { "日本語" => "あいうえお" }, "utf8_off on hashref" ); 31 32 # arrayref 33 utf8_off_ok( [ "日本語", "あいうえお" ], "utf8_off on arrayref" ); 34 35 # scalarref 36 utf8_off_ok( \"日本語", "utf8_off on scalarref" ); 37 38 utf8_off_ok( bless({ "日本語" => "あいえうお" }, "Hoge"), "utf8_off on object" ); 39} 40 41