summaryrefslogtreecommitdiff
path: root/Data-MultiValued/t/tags-ranges-setting.t
diff options
context:
space:
mode:
Diffstat (limited to 'Data-MultiValued/t/tags-ranges-setting.t')
-rw-r--r--Data-MultiValued/t/tags-ranges-setting.t17
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();