1#!/usr/bin/perl 2 3# Last Edit: 2006 2月 10, 20時19分34秒 4# $Id$ 5 6use lib qw/t lib/; 7use strict; 8use warnings; 9use Test::More tests => 8; 10 11use Games::Tournament::RoundRobin; 12use Games::League::Member; 13 14my $m = Games::League::Member->new( index => 0, name => 'Me' ); 15my $y = Games::League::Member->new( index => 1, name => 'You' ); 16my $i = Games::League::Member->new( index => 2, name => 'It' ); 17my $u = Games::League::Member->new( index => 3, name => 'Us' ); 18my $yy = Games::League::Member->new( index => 4, name => 'Youall' ); 19my $t = Games::League::Member->new( index => 5, name => 'Them' ); 20 21my $o = Games::Tournament::RoundRobin->new( v => 6, league => [ qw/Me You It Us Youall Them/ ] ); 22is($o->partner($m,3), $u, 'stringleague no dupes: partner Me, 3'); 23is($o->partner($yy,4), $m, 'stringleague no dupes: partner Youall, 5'); 24 25$o = Games::Tournament::RoundRobin->new( v => 5 ); 26is($o->partner(1,3), 5, 'numberleague no dupes: partner 1, 3'); 27 28$o = Games::Tournament::RoundRobin->new( v => 6, league => [ qw/Me You It Us You Them/ ] ); 29is($o->partner('Them',1), 'It', 'stringleague, dupes: partner 1'); 30is($o->partner('Me',2), 'It', 'stringleague, dupes: partner 1'); 31is($o->partner('Us',2), 'You', 'stringleague, dupes: partner 1'); 32 33$o = Games::Tournament::RoundRobin->new( v => 6, league => [ $m, $y, $i, $u, $yy, $t ] ); 34is($o->partner($yy,5), $y, 'object league, no dupes: partner 1'); 35 36$yy = Games::League::Member->new( index => 4, name => 'You' ); 37$o = Games::Tournament::RoundRobin->new( v => 6, league => [ $m, $y, $i, $u, $yy, $t ] ); 38is($o->partner($m,1), $y, 'objectleague, dupes: partner 1'); 39