The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

DJERIUS / Iterator-Flex-0.18 / xt / author / leak.t 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

              
#! perl
use Test::More;
use Test::LeakTrace;
use Iterator::Flex::Common qw[ igrep iarray ];
no_leaks_ok {
    my $iter = igrep { $_ > 0 } iarray( [ -20 .. 20 ] );
    1 while <$iter>;
};
done_testing;