[libcatmandu-perl] 16/85: Finishing each test for each monad

[Jonas Smedegaard]

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.hochstenbach at 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