1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6use Test::More;
7
8use CPS::Functional qw( kunfold );
9
10my @nums;
11
12kunfold(
13   1,
14   sub {
15      my ( $n, $kmore, $kdone ) = @_;
16
17      if( $n < 5 ) {
18         $kmore->( $n + 1, $n );
19      }
20      else {
21         $kdone->();
22      }
23   },
24   sub {
25      @nums = @_;
26   }
27);
28
29is_deeply( \@nums, [ 1, 2, 3, 4 ], 'kunfold sync - @nums' );
30
31done_testing;
32