summaryrefslogtreecommitdiff
path: root/Data-MultiValued/t/more-overlapping-ranges.t
diff options
context:
space:
mode:
authorGianni Ceccarelli <dakkar@thenautilus.net>2011-11-10 15:10:26 +0000
committerGianni Ceccarelli <dakkar@thenautilus.net>2011-11-10 15:10:26 +0000
commitdc07be4ac45756a0e664ee29e888f86b7609784a (patch)
treedca7e4467f73625604886e8910a609ccc978b0ce /Data-MultiValued/t/more-overlapping-ranges.t
parent'clear' almost completely implemneted (diff)
downloaddata-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.tar.gz
data-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.tar.bz2
data-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.zip
move up a level
Diffstat (limited to 'Data-MultiValued/t/more-overlapping-ranges.t')
-rw-r--r--Data-MultiValued/t/more-overlapping-ranges.t79
1 files changed, 0 insertions, 79 deletions
diff --git a/Data-MultiValued/t/more-overlapping-ranges.t b/Data-MultiValued/t/more-overlapping-ranges.t
deleted file mode 100644
index 19e2fe5..0000000
--- a/Data-MultiValued/t/more-overlapping-ranges.t
+++ /dev/null
@@ -1,79 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use Test::Most 'die';
-use Data::Printer;
-use Data::MultiValued::Ranges;
-use Data::MultiValued::TagsAndRanges;
-
-sub test_it {
- my ($obj) = @_;
-
- $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");
- }
-}
-
-subtest 'ranges' => sub {
- my $obj = Data::MultiValued::Ranges->new();
- ok($obj,'constructor works');
-
- test_it($obj);
-};
-
-subtest 'tags and ranges' => sub {
- my $obj = Data::MultiValued::TagsAndRanges->new();
- ok($obj,'constructor works');
-
- test_it($obj);
-};
-
-done_testing();