Changeset 216 for trunk/t

Timestamp:

04/17/09 21:50:40 (15 years ago)

Author:

nanardon

Message:

• add more tests

File:

• trunk/t/10Vote_DB.t (modified) (3 diffs)

trunk/t/10Vote_DB.t

@@ -48 +48 @@
             is($r->voting_count, 6, "can get voting count");
             is($r->signing_count, 4, "can get signing count");
-            my $res = $r->results_nonull;
+            my $res = $r->results;
             is($res->[0]->{value}, 'ch1', "winner is ch1");
             is($res->[0]->{count}, 3, "winner has 3 voices");
@@ -63 +63 @@
             f => {},
         },
-        test_count => 10,
+        test_count => 14,
         tests => sub {
             my ($r) = @_;
@@ -76 +76 @@
             is($res->[0]->{value}, 'ch1', "winner is ch1");
             is($res->[0]->{count}, 3, "winner has 3 voices");
+            ok($res->[0]->{abs_maj}, "winner has absolute majority");
+            ok($res->[0]->{elected}, "winner is set as elected");
             is(@$res, 4, "count of winners");
             is($res->[3]->{count}, 0, "last has 0 voices");
+            ok(!$res->[3]->{abs_maj}, "last has not absolute majority");
+            ok(!$res->[3]->{elected}, "last is not set as elected");
         }
     },