#!perl

use Test::More tests => 17;

use Moose;
use MooseX::Iterator;

my $test = MooseX::Iterator::Array->new( collection => [ 1, 2, 3, 4, 5, 6 ] );

my $count = 1;
while ( $test->has_next ) {
    my $peek = $test->peek;
    my $next = $test->next;

    is $next, $count, 'Current position value ' . $count;

    if ( $count < 6 ) {
        ok $test->has_next, 'has next';
    }
    else {
        ok !$test->has_next, 'does not have next';
        last;
    }

    is $peek, $count + 1, 'peek ahead of ' . $count . " ($peek)";

    $count += 1;
}