[libcatmandu-perl] 49/101: fix tests

[Jonas Smedegaard]

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