This is an automated email from the git hooks/post-receive script.
js pushed a commit to tag 0.91
in repository libcatmandu-perl.
commit 8435f910ff5e8d58d092d6534da16b734124cff3
Author: Patrick Hochstenbach <patrick.hochstenb...@ugent.be>
Date: Fri May 9 20:23:36 2014 +0200
Finishing each test for each monad
---
t/Catmandu-Fix-Bind-each.t | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/t/Catmandu-Fix-Bind-each.t b/t/Catmandu-Fix-Bind-each.t
index ed0f2cf..81acab3 100644
--- a/t/Catmandu-Fix-Bind-each.t
+++ b/t/Catmandu-Fix-Bind-each.t
@@ -108,10 +108,14 @@ $fixer = Catmandu::Fix->new(fixes => [$fixes]);
is_deeply $fixer->fix({foo => 'bar'}), {foo => 'bar'} , 'testing nesting';
$fixes =<<EOF;
-do loop(count => 3 , index => i)
+add_field(test.\$append,0)
+add_field(test.\$append,1)
+add_field(test.\$append,2)
+do each(path => test, index => i)
copy_field(i,demo.\$append)
copy_field(i,demo2.\$append)
end
+remove_field(test)
EOF
$fixer = Catmandu::Fix->new(fixes => [$fixes]);
@@ -119,12 +123,16 @@ $fixer = Catmandu::Fix->new(fixes => [$fixes]);
is_deeply $fixer->fix({}), {demo => [(qw(0 1 2))] , demo2 => [qw(0 1 2 )]} ,
'testing specific loop';
$fixes =<<EOF;
-do loop(count => 3 , index => i)
+add_field(test.\$append,0)
+add_field(test.\$append,1)
+add_field(test.\$append,2)
+do each(path => test, index => i)
copy_field(i,demo.\$append)
do loop(count => 3)
copy_field(i,demo2.\$append)
end
end
+remove_field(test)
EOF
$fixer = Catmandu::Fix->new(fixes => [$fixes]);
--
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
