1 files changed, 18 insertions, 0 deletions
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 {