10 plan skip_all => "JSON::Any is required for this test" if $@;
12 # this is because JSON::XS is
13 # the only one which really gets
17 $ENV{JSON_ANY_ORDER} = qw(XS);
18 $ENV{JSON_ANY_CONFIG} = "utf8=1";
21 use_ok('MooseX::Storage');
31 with Storage( 'format' => 'JSON', 'io' => 'File' );
33 has 'utf8_string' => (
36 default => sub { "ネットスーパー (Internet Shopping)" }
40 my $file = 'temp.json';
44 isa_ok( $foo, 'Foo' );
50 my $foo = Foo->load($file);
54 "ネットスーパー (Internet Shopping)",
55 '... got the string we expected');
64 utf8_string => 'Escritório'
66 isa_ok( $foo, 'Foo' );
72 my $foo = Foo->load($file);
75 ok(utf8::is_utf8($foo->utf8_string), '... the string is still utf8');
79 '... got the string we expected');