Changeset 225 for trunk/t

Timestamp:

04/20/09 23:19:57 (15 years ago)

Author:

nanardon

Message:

• fix and check poll uid

File:

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

trunk/t/10Vote_DB.t

@@ -121 +121 @@
 plan tests => 
     3                          # Fixed test 
-    + scalar(@$test_polls) * 4 # number of tested polls scenario
+    + scalar(@$test_polls) * 6 # number of tested polls scenario
     + $poll_test_count;        # poll test
 
@@ -137 +137 @@
 
     isa_ok(my $poll = $vote->poll($pollid), 'Vote::DB::Poll');
+
+    ok(my $puid = $poll->uid, "can get poll uid");
+    is($vote->poll_id_from_uid($puid), $pollid, "can get id from uid");
 
     foreach (keys %{ $tpoll->{poll} || {}}) {