diff options
author | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 15:10:26 +0000 |
---|---|---|
committer | Gianni Ceccarelli <dakkar@thenautilus.net> | 2011-11-10 15:10:26 +0000 |
commit | dc07be4ac45756a0e664ee29e888f86b7609784a (patch) | |
tree | dca7e4467f73625604886e8910a609ccc978b0ce /Data-MultiValued/t/simple-setting.t | |
parent | 'clear' almost completely implemneted (diff) | |
download | data-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.tar.gz data-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.tar.bz2 data-multivalued-dc07be4ac45756a0e664ee29e888f86b7609784a.zip |
move up a level
Diffstat (limited to 'Data-MultiValued/t/simple-setting.t')
-rw-r--r-- | Data-MultiValued/t/simple-setting.t | 46 |
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(); |