1 files changed, 42 insertions, 0 deletions
diff --git a/Data-TagsAndRanges/t/tags-setting.t b/Data-TagsAndRanges/t/tags-setting.t
new file mode 100644
index 0000000..9b4a697
--- /dev/null
+++ b/Data-TagsAndRanges/t/tags-setting.t
@@ -0,0 +1,42 @@
+#!perl
+use strict;
+use warnings;
+use Test::Most 'die';
+use Data::Printer;
+use Data::TagsAndRanges;
+
+my $obj = Data::TagsAndRanges->new();
+ok($obj,'constructor works');
+
+lives_ok {
+    $obj->set({
+        tag => 'tag1',
+        value => 'a string',
+    });
+} 'setting tag1';
+lives_ok {
+    $obj->set({
+        tag => 'tag2',
+        value => 'another string',
+    });
+} 'setting tag2';
+
+cmp_ok($obj->get({tag => 'tag1'}),
+       'eq',
+       'a string',
+       'getting tag1');
+
+cmp_ok($obj->get({tag => 'tag2'}),
+       'eq',
+       'another string',
+       'getting tag2');
+
+dies_ok {
+    $obj->get({tag=>'no such tag'});
+} 'getting non-existent tag';
+
+dies_ok {
+    $obj->get({});
+} 'default get dies';
+
+done_testing();