diff options
Diffstat (limited to 'Data-MultiValued/t/tags-ranges-setting.t')
-rw-r--r-- | Data-MultiValued/t/tags-ranges-setting.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/Data-MultiValued/t/tags-ranges-setting.t b/Data-MultiValued/t/tags-ranges-setting.t index 5f82a4e..e25a9f1 100644 --- a/Data-MultiValued/t/tags-ranges-setting.t +++ b/Data-MultiValued/t/tags-ranges-setting.t @@ -65,4 +65,21 @@ for my $tag (@tags) { } } +$obj->clear({tag=>$tags[1],from=>$ranges[0]->[0],to=>$ranges[0]->[1]}); +dies_ok { + $obj->get({ + tag=>$tags[1], + at => $ranges[0]->[0]+1, + }) +} 'getting deleted range from inside tag dies'; + +cmp_ok( + $obj->get({ + tag => $tags[1], + at => $ranges[1]->[0]+1, + }), + '==', + $ranges[1]->[2], + 'other ranges in same tag are still there'); + done_testing(); |