view release on metacpan or  search on metacpan

t/42kfold.t  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use CPS::Functional qw( kfoldl kfoldr );

my $ret;

kfoldl(
   [ 1, 2, 3 ],
   sub {
      my ( $left, $right, $k ) = @_;
      $k->( "($left+$right)" );
   },
   sub {
      $ret = shift;
   },
);

is( $ret, "((1+2)+3)", 'kfoldl sync - @nums' );

kfoldr(
   [ 1, 2, 3 ],
   sub {
      my ( $left, $right, $k ) = @_;
      $k->( "($left+$right)" );
   },
   sub {
      $ret = shift;
   },
);

is( $ret, "(1+(2+3))", 'kfoldr sync - @nums' );

done_testing;