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