summaryrefslogtreecommitdiff
path: root/Data-MultiValued/t/simple-setting.t
diff options
context:
space:
mode:
Diffstat (limited to 'Data-MultiValued/t/simple-setting.t')
-rw-r--r--Data-MultiValued/t/simple-setting.t46
1 files changed, 0 insertions, 46 deletions
diff --git a/Data-MultiValued/t/simple-setting.t b/Data-MultiValued/t/simple-setting.t
deleted file mode 100644
index 9d9a9e2..0000000
--- a/Data-MultiValued/t/simple-setting.t
+++ /dev/null
@@ -1,46 +0,0 @@
-#!perl
-use strict;
-use warnings;
-use Test::Most 'die';
-use Data::Printer;
-use Data::MultiValued::Ranges;
-use Data::MultiValued::Tags;
-use Data::MultiValued::TagsAndRanges;
-
-sub test_it {
- my ($obj) = @_;
-
- lives_ok {
- $obj->set({
- value => 1234,
- });
- } 'setting';
-
- cmp_ok($obj->get({}),'==',1234,
- 'getting');
-
- lives_ok { $obj->clear } 'clearing the object';
-}
-
-subtest 'ranges' => sub {
- my $obj = Data::MultiValued::Ranges->new();
- ok($obj,'constructor works');
-
- test_it($obj);
-};
-
-subtest 'tags' => sub {
- my $obj = Data::MultiValued::Tags->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();