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