view release on metacpan or  search on metacpan

t/algorithm_odometer_tiny.t  view on Meta::CPAN

SKIP: {
	skip "need Perl >= v5.18 for overloaded <> in list context",
		2 if $] lt '5.018'; # [perl #47119]
	my $odo1 = Algorithm::Odometer::Tiny->new( ['foo','bar'], [3..5] );
	is_deeply [<$odo1>], ["foo3", "foo4", "foo5", "bar3", "bar4", "bar5"], 'list context <> ::Tiny';
	my $odo2 = Algorithm::Odometer::Gray->new( ['a','b','c'],[1,2] );
	is_deeply [<$odo2>], ["a1", "b1", "c1", "c2", "b2", "a2"], 'list context <> ::Gray';
}

subtest 'errors' => sub { plan tests=>4;
	like exception { Algorithm::Odometer::Tiny->new() }, qr/\bno wheels specified\b/i, 'no wheels specified';
	like exception { Algorithm::Odometer::Gray->new() }, qr/\bno wheels specified\b/i, 'no wheels specified ::Gray';
	like exception { Algorithm::Odometer::Gray->new(['x','y'],['z']) }, qr/\bat least two positions\b/i, 'Gray at least two positions 1/2';
	like exception { Algorithm::Odometer::Gray->new(['x','y'],[]) }, qr/\bat least two positions\b/i, 'Gray at least two positions 2/2';
};

if ( my $cnt = grep {!$_} Test::More->builder->summary )
	{ BAIL_OUT("$cnt tests failed") }
done_testing(TESTCOUNT);