#!perl -T

use warnings;
use strict;

use Test::More tests => 7;

use List::Cycle;

my $cycle = List::Cycle->new({ vals=> [ qw(123 456) ] });
isa_ok( $cycle, 'List::Cycle' );

is( $cycle->next, 123, q{got first value} );
is( $cycle->next, 456, q{got second value} );
is( $cycle->next, 123, q{got first value} );

$cycle->set_values([ qw(101 999) ]);

is( $cycle->next, 101, q{got first value} );
is( $cycle->next, 999, q{got second value} );
is( $cycle->next, 101, q{got first value} );