diff options
| author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 15:52:15 +0000 |
|---|---|---|
| committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 15:52:15 +0000 |
| commit | 7ea924794a0006284760a33498832ff2c3e15223 (patch) | |
| tree | ee3ad341c3cf47c3a7922b075d69f1e269cd5d20 /t/json.t | |
| parent | Build results of dd15e2e (on master) (diff) | |
| parent | more docs (diff) | |
| download | data-multivalued-7ea924794a0006284760a33498832ff2c3e15223.tar.gz data-multivalued-7ea924794a0006284760a33498832ff2c3e15223.tar.bz2 data-multivalued-7ea924794a0006284760a33498832ff2c3e15223.zip | |
Build results of 831f847 (on master)
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; |