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