summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorGianni Ceccarelli <dakkar@thenautilus.net>2011-11-14 15:06:47 +0000
committerGianni Ceccarelli <dakkar@thenautilus.net>2011-11-14 17:00:15 +0000
commitd47a5d9018fe9b8c30a400a9ff9f747bdcf4bffb (patch)
tree45667438f07833f7ec7c72f5092d71c0b4d30ef1 /t
parentfix inserting range w/o overlap (diff)
downloaddata-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.t3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/json.t b/t/json.t
index 5e00080..d1162b3 100644
--- a/t/json.t
+++ b/t/json.t
@@ -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;