renaming

1 files changed, 22 insertions, 0 deletions

diff --git a/Data-MultiValued/t/simple-setting.t b/Data-MultiValued/t/simple-setting.t
new file mode 100644
index 0000000..b478e7a
--- /dev/null
+++ b/Data-MultiValued/t/simple-setting.t
@@ -0,0 +1,22 @@
+#!perl
+use strict;
+use warnings;
+use Test::Most 'die';
+use Data::Printer;
+use Data::MultiValued;
+
+my $obj = Data::MultiValued->new();
+ok($obj,'constructor works');
+
+lives_ok {
+    $obj->set({
+        value => 1234,
+    });
+} 'setting';
+
+cmp_ok($obj->get({}),'==',1234,
+       'getting');
+
+lives_ok { $obj->clear } 'clearing the object';
+
+done_testing();