renaming

1 files changed, 60 insertions, 0 deletions

diff --git a/Data-MultiValued/t/ranges-setting.t b/Data-MultiValued/t/ranges-setting.t
new file mode 100644
index 0000000..148a4c6
--- /dev/null
+++ b/Data-MultiValued/t/ranges-setting.t
@@ -0,0 +1,60 @@
+#!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({
+        from => 10,
+        to => 20,
+        value => [1,2,3],
+    });
+} 'setting 10-20';
+lives_ok {
+    $obj->set({
+        from => 30,
+        to => 50,
+        value => [4,5,6],
+    });
+} 'setting 30-50';
+
+cmp_deeply($obj->get({at => 15}),
+           [1,2,3],
+           'getting 15');
+cmp_deeply($obj->get({at => 10}),
+           [1,2,3],
+           'getting 10');
+cmp_deeply($obj->get({at => 19.999}),
+           [1,2,3],
+           'getting 19.999');
+dies_ok {
+    $obj->get({at => 20})
+} 'getting 20 dies';
+
+cmp_deeply($obj->get({at => 40}),
+           [4,5,6],
+           'getting 40');
+cmp_deeply($obj->get({at => 30}),
+           [4,5,6],
+           'getting 30');
+cmp_deeply($obj->get({at => 49.999}),
+           [4,5,6],
+           'getting 49.999');
+dies_ok {
+    $obj->get({at => 50})
+} 'getting 50 dies';
+
+dies_ok {
+    $obj->get({at => 0})
+} 'getting 0 dies';
+
+dies_ok {
+    $obj->get({});
+} 'default get dies';
+
+done_testing();