more overlapping tests

1 files changed, 63 insertions, 0 deletions

diff --git a/Data-TagsAndRanges/t/more-overlapping-ranges.t b/Data-TagsAndRanges/t/more-overlapping-ranges.t
new file mode 100644
index 0000000..899127f
--- /dev/null
+++ b/Data-TagsAndRanges/t/more-overlapping-ranges.t
@@ -0,0 +1,63 @@
+#!perl
+use strict;
+use warnings;
+use Test::Most 'die';
+use Data::Printer;
+use Data::TagsAndRanges;
+
+my $obj = Data::TagsAndRanges->new();
+ok($obj,'constructor works');
+
+$obj->set({
+    from=>10,
+    to=>20,
+    value=>1,
+});
+$obj->set({
+    from=>30,
+    to => 50,
+    value => 2,
+});
+$obj->set({
+    from=>15,
+    to => 35,
+    value => 3,
+});
+$obj->set({
+    from => undef,
+    to => 12,
+    value => 4,
+});
+$obj->set({
+    from => 40,
+    to => undef,
+    value => 5,
+});
+
+my %points = (
+    1,4,
+    9,4,
+    10,4,
+    11,4,
+    12,1,
+    13,1,
+    14,1,
+    15,3,
+    19,3,
+    20,3,
+    30,3,
+    34,3,
+    35,2,
+    39,2,
+    40,5,
+    50,5,
+    200,5,
+);
+while (my ($at,$v) = each %points) {
+    cmp_ok($obj->get({at=>$at}),
+           '==',
+           $v,
+           "value at $at");
+}
+
+done_testing();