summaryrefslogtreecommitdiff
path: root/Data-MultiValued/t/ranges-setting.t
diff options
context:
space:
mode:
Diffstat (limited to 'Data-MultiValued/t/ranges-setting.t')
-rw-r--r--Data-MultiValued/t/ranges-setting.t93
1 files changed, 0 insertions, 93 deletions
diff --git a/Data-MultiValued/t/ranges-setting.t b/Data-MultiValued/t/ranges-setting.t
deleted file mode 100644
index b8d2a57..0000000
--- a/Data-MultiValued/t/ranges-setting.t
+++ /dev/null
@@ -1,93 +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) = @_;
-
- 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';
-
- $obj->clear({from=>10,to=>20});
-
- dies_ok {
- $obj->get({at => 15})
- } 'getting 15 after clearing dies';
-
- cmp_deeply($obj->get({at => 30}),
- [4,5,6],
- 'getting 30 after clearing');
-
- $obj->clear();
-
- dies_ok {
- $obj->get({at => 30})
- } 'getting 30 after clearing all dies';
-
-}
-
-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();