Changeset 202 for trunk/t

Timestamp:

04/15/09 13:35:12 (15 years ago)

Author:

nanardon

Message:

• more test

File:

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

trunk/t/10Vote_DB.t

@@ -8 +8 @@
 # Structure:
 #    {
-#        poll => { var => $val }
+#        poll => { var => $val },
+#        choices => [ qw() ],
 #        voting => [ qw(mail) ],
 #        ballot => {
 #        # signing from voting list
-#            signing => [ qw() ] # list of items
+#            signing => { sbal => [], fsbal => [] } # list of items
 #        },
+#        map => { from => to },
+#        results => { var => $val }, # wanted results 
 #    }
-    {}
+    { # an empty poll
+        poll => { label => 'empty poll' },
+        choices => [ qw(ch1 ch2) ],
+        results => {
+            ballot_count => 0,
+            absolute_majority => 1,
+        }
+    },
 ];
 
@@ -21 +31 @@
     3                        # Fixed test 
     + scalar(@$test_polls) * # number of tested polls scenario
-    1;                       # per poll number of tests
+    6;                       # per poll number of tests
 
 use_ok 'Vote', 'Vote';
@@ -33 +43 @@
 foreach my $tpoll (@$test_polls) {
     $count++;
+    diag("Testing vote #$count: " . ($tpoll->{poll}{label} || 'No name'));
     ok(my $pollid = $vote->create_poll('test@', "Vote test $count", "password"),
         "can create a new poll");
 
+    isa_ok(my $poll = $vote->poll($pollid), 'Vote::DB::Poll');
+
+    foreach (keys %{ $tpoll->{poll} || {}}) {
+        $poll->param($_ => $tpoll->{poll}{$_});
+    }
+
+    $poll->addupd_voting($_) foreach (@{ $tpoll->{voting} || [] });
+
+    foreach (@{ $tpoll->{choices} || [] }) {
+        $poll->add_choice($_);
+    }
+
+    ok(eq_set(
+            [ map { $poll->choice($_)->info->{label} } $poll->choices ],
+            $tpoll->{choices} || []), "choices were added");
+
+    foreach my $name (keys %{ $tpoll->{ballot} || {} }) {
+        $poll->register_ballot(
+            $name, $tpoll->{ballot}{$name}{sbal}, $tpoll->{ballot}{$name}{sbal}, "localtest"
+        );
+    }
+    
+    isa_ok(my $results = $vote->results($pollid), 'Vote::DB::Poll');
+
+    is($results->ballot_count, $tpoll->{results}{ballot_count} || 0,
+        "can get ballot count");
+    is($results->absolute_majority, $tpoll->{results}{absolute_majority},
+        "can get absolute majority");
+
+    my $res = $results->results_count;
+
     $vote->rollback;
 }