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