This is an automated email from the git hooks/post-receive script. js pushed a commit to branch master in repository libcatmandu-perl.
commit a0739250690ee71f80bb7b6c54a6c219c3ed922b Author: Nicolas Steenlant <nicolas.steenl...@ugent.be> Date: Mon Jan 18 14:05:34 2016 +0100 fix tests --- t/Catmandu-Bag.t | 21 --------------------- t/Catmandu-Store.t | 5 ----- 2 files changed, 26 deletions(-) diff --git a/t/Catmandu-Bag.t b/t/Catmandu-Bag.t index 86f7517..c73b42b 100644 --- a/t/Catmandu-Bag.t +++ b/t/Catmandu-Bag.t @@ -21,28 +21,18 @@ require_ok $pkg; sub add {} sub delete {} sub delete_all {} - sub drop {} package T::BagWithoutDelete; use Moo; sub generator {} sub add {} sub get {} sub delete_all {} - sub drop {} package T::BagWithoutDeleteAll; use Moo; sub generator {} sub add {} sub get {} sub delete {} - sub drop {} - package T::BagWithoutDrop; - use Moo; - sub generator {} - sub add {} - sub get {} - sub delete {} - sub delete_all {} package T::Bag; #mock array based bag use Moo; @@ -101,12 +91,6 @@ require_ok $pkg; splice @$bag; } - sub drop { - my ($self) = @_; - my $bag = $self->bag; - splice @$bag; - } - package T::BagData; use Moo; } @@ -114,7 +98,6 @@ require_ok $pkg; throws_ok { Role::Tiny->apply_role_to_package('T::BagWithoutGet', $pkg) } qr/missing get/; throws_ok { Role::Tiny->apply_role_to_package('T::BagWithoutDelete', $pkg) } qr/missing delete/; throws_ok { Role::Tiny->apply_role_to_package('T::BagWithoutDeleteAll', $pkg) } qr/missing delete_all/; -throws_ok { Role::Tiny->apply_role_to_package('T::BagWithoutDrop', $pkg) } qr/missing drop/; my $b = T::Bag->new; ok $b->does('Catmandu::Iterable'); @@ -123,7 +106,6 @@ can_ok $b, 'generate_id'; can_ok $b, 'commit'; can_ok $b, 'get_or_add'; can_ok $b, 'to_hash'; -can_ok $b, 'drop'; ok Catmandu::Util::is_value($b->generate_id); @@ -157,7 +139,4 @@ is_deeply $b->get_or_add($data->{_id}, {a=>{pony=>'wails'}}), $data; is_deeply $b->to_hash, {$data->{_id}=>$data}; -$b->drop; -is $b->count, 0; - done_testing; diff --git a/t/Catmandu-Store.t b/t/Catmandu-Store.t index 828bfa6..d712512 100644 --- a/t/Catmandu-Store.t +++ b/t/Catmandu-Store.t @@ -14,12 +14,9 @@ BEGIN { require_ok $pkg; { - package T::StoreWithoutDrop; - use Moo; package T::Store; use Moo; with $pkg; - sub drop {} package T::Store::Bag; use Moo; package T::CustomBagClass; @@ -29,8 +26,6 @@ require_ok $pkg; has prop => (is => 'ro'); } -throws_ok { Role::Tiny->apply_role_to_package('T::StoreWithoutDrop', $pkg) } qr/missing drop/; - my $s = T::Store->new; can_ok $s, 'bag_class'; can_ok $s, 'default_bag'; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits