#!perl -T
BEGIN {
$Games::Tournament::Swiss::Config::algorithm
=
'Games::Tournament::Swiss::Procedure::Dummy'
;
$Games::Tournament::Swiss::Config::firstround
= 1;
use_ok(
'Games::Tournament::Contestant'
);
use_ok(
'Games::Tournament::Contestant::Swiss'
);
use_ok(
'Games::Tournament::Contestant::Swiss::Preference'
);
use_ok(
'Games::Tournament'
);
use_ok(
'Games::Tournament::Swiss::Config'
);
use_ok(
'Games::Tournament::Card'
);
use_ok(
'Games::Tournament::Swiss::Procedure::FIDE'
);
use_ok(
'Games::Tournament::Swiss::Procedure'
);
use_ok(
'Games::Tournament::Swiss::Procedure::Dummy'
);
use_ok(
'Games::Tournament::Swiss::Bracket'
);
use_ok(
'Games::Tournament::Swiss'
);
}
diag(
"Testing Games::Tournament::Swiss $Games::Tournament::Swiss::VERSION, Perl $], $^X"
);