1#!/usr/bin/perl
2use strict;
3use warnings;
4use Test::More qw(no_plan);
5
6my @arr = qw(a b c);
7
8use_ok('Data::RoundRobin');
9
10my $rr = Data::RoundRobin->new(@arr);
11for(my $i = 0; $i < 3 * @arr ; $i++) {
12    cmp_ok(0+$rr, '==', 0, "Numeric Equal");
13}
14
15my $r1 = Data::RoundRobin->new(@arr);
16my $r2 = Data::RoundRobin->new(@arr);
17for(my $i = 0; $i < 3 * @arr ; $i++) {
18    is($r1, $r2, "Synchronized round robin data");
19    cmp_ok($r1, "eq", $r2, "Synchronized round robin data");
20}
21