#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 4;
use FindBin;
use Bootylicious::Iterator;
use_ok('Bootylicious::IteratorSearchable');
my $i;
$i =
Bootylicious::IteratorSearchable->new(
Bootylicious::Iterator->new(elements => []));
ok not defined $i->find_first(sub { });
$i =
Bootylicious::IteratorSearchable->new(
Bootylicious::Iterator->new(elements => [1, 2, 3]));
is $i->find_first(sub { return unless $_[1] == 2; return $_[1] }) => 2;
$i =
Bootylicious::IteratorSearchable->new(
Bootylicious::Iterator->new(elements => [1, 2, 3]));
is $i->find_all(sub { return unless $_[1] == 2; return $_[1] })->size => 1;