1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More; 5 6my @arr = qw(a b c); 7plan tests => (1 + 3*scalar(@arr)); 8use_ok('Data::RoundRobin'); 9 10my $rr = Data::RoundRobin->new(@arr); 11for(my $i = 0; $i < 3 * @arr ; $i++) { 12 ok("$rr" eq $arr[$i % 3]) 13} 14