'clear' almost completely implemneted

3 files changed, 52 insertions, 0 deletions

diff --git a/Data-MultiValued/t/ranges-setting.t b/Data-MultiValued/t/ranges-setting.t
index ff6a6b3..b8d2a57 100644
--- a/Data-MultiValued/t/ranges-setting.t
+++ b/Data-MultiValued/t/ranges-setting.t
@@ -57,6 +57,23 @@ sub test_it {
     dies_ok {
         $obj->get({});
     } 'default get dies';
+
+    $obj->clear({from=>10,to=>20});
+
+    dies_ok {
+        $obj->get({at => 15})
+    } 'getting 15 after clearing dies';
+
+    cmp_deeply($obj->get({at => 30}),
+               [4,5,6],
+               'getting 30 after clearing');
+
+    $obj->clear();
+
+    dies_ok {
+        $obj->get({at => 30})
+    } 'getting 30 after clearing all dies';
+
 }
 
 subtest 'ranges' => sub {
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();
diff --git a/Data-MultiValued/t/tags-setting.t b/Data-MultiValued/t/tags-setting.t
index 5029d2d..929ad3d 100644
--- a/Data-MultiValued/t/tags-setting.t
+++ b/Data-MultiValued/t/tags-setting.t
@@ -39,6 +39,24 @@ sub test_it {
     dies_ok {
         $obj->get({});
     } 'default get dies';
+
+    $obj->clear({tag=>'tag1'});
+
+    dies_ok {
+        $obj->get({tag=>'tag1'});
+    } 'getting cleared tag';
+
+    cmp_ok($obj->get({tag => 'tag2'}),
+           'eq',
+           'another string',
+           'getting tag2 after clearing');
+
+    $obj->clear();
+
+    dies_ok {
+        $obj->get({tag=>'tag2'});
+    } 'getting tag2 after clearing all dies';
+
 }
 
 subtest 'tags' => sub {