use Test::More tests => 15;
use Egg::Helper::VirtualTest;

my $v= Egg::Helper::VirtualTest->new;
   $v->prepare(
     controller=> { egg_includes=> [qw/JSON/] },
     create_files=> [$v->yaml_load( join '', <DATA> )],
     config=> { json_data=> '<$e.root>/etc/json.code' },
     );

my $json_obj= { aaa=> 'bbb', ccc=> 'ddd' };

ok my $e= $v->egg_pcomp_context;
can_ok $e, qw/obj2json json2obj json get_json/;
ok my $json_js  = $e->obj2json($json_obj);
ok my $json_hash= $e->json2obj($json_js);
isa_ok $json_hash, 'HASH';
is $json_hash->{aaa}, 'bbb';
is $json_hash->{ccc}, 'ddd';
ok my $json= $e->json;
isa_ok $json, 'JSON';
ok my $result= $e->get_json($e->config->{json_data});
is $result->is_success, 1;
ok my $obj= $result->obj;
isa_ok $obj, 'HASH';
is $obj->{foo}, 12345;
is $obj->{boo}, 23456;


__DATA__
filename: etc/json.code
value: |
  {"foo":12345,"boo":23456}