my $tenesseechoices = { CHATTANOOGA => 1, KNOXVILLE => 1, MEMPHIS => 1, NASHVILLE =>1 } ;

my $WAT = Vote::Count::Method::WinnableAlternatives->new( BallotSet => read_ballots 't/data/tennessee.txt', );

ok $WAT;

};

p $Election1; is_deeply( $Election1->BallotSet()->{'choices'}, $tenesseechoices, 'verify read of data file by StartElection with filename' , );

my $ballotset2 = read_ballots( 't/data/irvtie.txt'); my $Election2 = StartElection( 'BallotSet' => $ballotset2 , 'FloorRule' => 'Approval', 'FloorValue' => 6 );

note $Election2->logv; # p $Election;

done_testing();

# example uses biggerset1 from the distribution test data. my $ballotset = read_ballots 't/data/biggerset1.txt' ; my $CondorcetElection = Vote::Count::Method::CondorcetDropping->new( 'BallotSet' => $ballotset , 'DropStyle' => 'all', 'DropRule' => 'topcount', ); # ChoicesAfterFloor a hashref of choices meeting the # ApprovalFloor which defaulted to 5%. my $ChoicesAfterFloor = $CondorcetElection->ApprovalFloor(); # Apply the ChoicesAfterFloor to the Election. $CondorcetElection->Active( $ChoicesAfterFloor ); # Get Smith Set and the Election with it as the Active List. my $SmithSet = $CondorcetElection->Matrix()->SmithSet() ; $CondorcetElection->logt( "Dominant Set Is: " . join( ', ', keys( $SmithSet->%* ))); my $Winner = $CondorcetElection->RunCondorcetDropping( $SmithSet )->{'winner'};

# Create an object for IRV, use the same Floor as Condorcet my $IRVElection = Vote::Count->new( 'BallotSet' => $ballotset, 'Active' => $ChoicesAfterFloor ); # Get a RankCount Object for the my $Plurality = $IRVElection->TopCount(); # In case of ties RankCount objects return top as an array, log the result. my $PluralityWinner = $Plurality->Leader(); $IRVElection->logv( "Plurality Results", $Plurality->RankTable); if ( $PluralityWinner->{'winner'}) { $IRVElection->logt( "Plurality Winner: ", $PluralityWinner->{'winner'} ) } else { $IRVElection->logt( "Plurality Tie: " . join( ', ', $PluralityWinner->{'tied'}->@*) ) } my $IRVResult = $IRVElection->RunIRV();

# Now print the logs and winning information. note $CondorcetElection->logv(); note $IRVElection->logv(); note '******************'; note "Plurality Winner: $PluralityWinner->{'winner'}"; note "IRV Winner: $IRVResult->{'winner'}"; note "Winner: $Winner";

is($PluralityWinner->{'winner'}, 'VANILLA', 'Check Plurality Winner' ); is($IRVResult->{'winner'}, 'MINTCHIP', 'Check the IRV Result'); is( $Winner, 'MINTCHIP', 'The Condorcet Result');

done_testing() ;