Changeset 228 for trunk/t

Timestamp:

04/21/09 01:42:49 (15 years ago)

Author:

nanardon

Message:

• add test on url using poll uid

File:

• trunk/t/20Vote_Web.t (modified) (5 diffs)

trunk/t/20Vote_Web.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 33;
+use Test::More tests => 38;
 
 # $Id$
@@ -18 +18 @@
 ok(my $poll = $vote->poll($pollid), "Can get poll object");
 
+ok(my $vote_uid = $poll->uid, "Can get uid");
+
 ok($poll->addupd_voting('user@', 'id'), "Can add a voting");
 ok(my $votingpass = $poll->voting_from_mail('user@')->gen_passwd,
@@ -25 +27 @@
 ok( request('/')->is_success, 'Request should succeed' );
 ok( request("/poll/$pollid")->is_success, "Request /poll/$pollid should succeed" );
+ok( request("/poll/$vote_uid")->is_success, "Request /poll/$vote_uid should succeed" );
 
 ok( request("/admin/$pollid?vpass$pollid=password")->is_success,
@@ -54 +57 @@
 
 ok( request("/ballot/$pollid")->is_success, "Request /admin/$pollid should succeed" );
+ok( request("/ballot/$vote_uid")->is_success, "Request /admin/$vote_uid should succeed" );
 ok( request("/ballot/$pollid?mail=user@;password=$votingpass")->is_success,
     "Request /admin/$pollid should succeed" );
@@ -64 +68 @@
 ok( request('/')->is_success, 'Request should succeed' );
 ok( request("/poll/$pollid")->is_success, "Request /poll/$pollid should succeed" );
+ok( request("/poll/$vote_uid")->is_success, "Request /poll/$vote_uid should succeed" );
 ok( request("/poll/$pollid/report.pdf")->is_success, "Request /poll/$pollid/report.pdf should succeed" );
 ok( request("/poll/$pollid/results.pdf")->is_success, "Request /poll/$pollid/results.pdf should succeed" );
+ok( request("/poll/$vote_uid/results.pdf")->is_success, "Request /poll/$vote_uid/results.pdf should succeed" );
 
 ok( request("/admin/$pollid?vpass$pollid=password")->is_success,