testing List::Gather #perl #prototype

gistfile1.pl

use 5.014;
use Test::Most;
use List::Gather;

sub evens_up_to {
    my $max_number   = shift;
    my @even_numbers = gather {
        for my $number ( 0 .. $max_number ) {
            take $number unless $number % 2;
        }
    };
    return @even_numbers;
}

is_deeply(
    [ 0, 2, 4, 6, 8, 10 ],
    [ evens_up_to(10) ],
    'evens_up_to(10) => [ 0, 2, 4, 6, 8, 10 ]',
);

done_testing;