[libcatmandu-perl] 23/101: Adding each test
Jonas Smedegaard
dr at jones.dk
Tue Feb 23 13:43:50 UTC 2016
This is an automated email from the git hooks/post-receive script.
js pushed a commit to branch master
in repository libcatmandu-perl.
commit 25f291660350d7c07599b763e17e2b9e8317b3d3
Author: Patrick Hochstenbach <patrick.hochstenbach at ugent.be>
Date: Fri Dec 11 12:36:35 2015 +0100
Adding each test
---
t/Catmandu-ArrayIterator.t | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/t/Catmandu-ArrayIterator.t b/t/Catmandu-ArrayIterator.t
index 775779a..4ba7312 100644
--- a/t/Catmandu-ArrayIterator.t
+++ b/t/Catmandu-ArrayIterator.t
@@ -32,4 +32,11 @@ is_deeply $it->next, {n=>2};
$it->rewind;
is_deeply $it->next, {n=>1};
-done_testing 10;
+$it->rewind;
+
+my $count = 0;
+$it->each(sub {
+ is shift->{n} , ++$count , "each ($count)";
+});
+
+done_testing 13;
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatmandu-perl.git
More information about the Pkg-perl-cvs-commits
mailing list