diff options
Diffstat (limited to 't/json.t')
-rw-r--r-- | t/json.t | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -43,10 +43,12 @@ use Data::Printer; use JSON::XS; my $opts={tag=>'something'}; +my $ropts={tag=>'something',from=>10,to=>20}; my $json = JSON::XS->new->utf8; my $obj = Foo->new(rr=>'foo'); $obj->tt_multi($opts,1234); +$obj->ttrr_multi($ropts,777); my $hash = $obj->as_hash; note p $hash; my $str = $json->encode($hash); @@ -60,6 +62,7 @@ note p $obj2; is($obj2->tt,$obj->tt,'tt'); is($obj2->tt_multi($opts),$obj->tt_multi($opts),'tt tagged'); +is($obj2->ttrr_multi({at => 15}),$obj->ttrr_multi({at => 15}),'ttrr'); is($obj2->rr,$obj->rr,'rr'); done_testing; |