diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 15:06:47 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-14 17:00:15 +0000 |
commit | d47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb (patch) | |
tree | 45667438f07833f7ec7c72f5092d71c0b4d30ef1 /t | |
parent | fix inserting range w/o overlap (diff) | |
download | data-multivalued-d47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb.tar.gz data-multivalued-d47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb.tar.bz2 data-multivalued-d47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb.zip |
fix tags&ranges ser bug (w/ test)
Diffstat (limited to '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; |