#!perl -T

use warnings;
use strict;

use Test::More tests => 11;

use List::Cycle;

my $cycle = List::Cycle->new( {vals=> [2112, 5150, 90125]} );
isa_ok( $cycle, 'List::Cycle' );

is( $cycle->next,  2112, q{We are the priests} );
$cycle->reset;
is( $cycle->next,  2112, q{We are the priests again} );
is( $cycle->next,  5150, q{Why can't this be love} );
is( $cycle->next, 90125, q{You can fool yourself} );
is( $cycle->next,  2112, q{What can this strange device be?} );
is( $cycle->next,  5150, q{That's what dreams are made of} );
is( $cycle->next, 90125, q{You can cheat until you're blind} );
is( $cycle->next,  2112, q{You don't get something for nothing} );
is( $cycle->next,  5150, q{Why can't this be love} );
$cycle->reset;
is( $cycle->next,  2112, q{We are the priests for a third time} );