source: trunk/t/20Vote_Web.t @ 219

use strict;
use warnings;
use Test::More tests => 32;

# $Id$

$ENV{EPOLL_NO_COMMIT} = 1;

use_ok 'Vote', 'Vote';
use_ok 'Vote::DB';
use_ok 'Catalyst::Test', 'Vote'; 

my $vote = Vote->model('Vote');

ok(my $pollid = $vote->create_poll('test@', 'Test poll', 'password'),
    "Can get new poll id");

ok(my $poll = $vote->poll($pollid), "Can get poll object");

ok($poll->addupd_voting('user@', 'id'), "Can add a voting");
ok(my $votingpass = $poll->voting_from_mail('user@')->gen_passwd,
    'can get voting password');

diag("Test request before poll");
ok( request('/')->is_success, 'Request should succeed' );
ok( request("/poll/$pollid")->is_success, "Request /poll/$pollid should succeed" );

ok( request("/admin/$pollid?vpass$pollid=password")->is_success,
    "Request /admin/$pollid should succeed" );
ok( request("/admin/$pollid/voting?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/voting should succeed" );
ok( request("/admin/$pollid/ballot?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/ballot should succeed" );

ok( request("/ballot/$pollid")->is_success, "Request /admin/$pollid should succeed" );
ok( request("/ballot/$pollid?mail=user@;password=$votingpass")->is_success,
    "Request /admin/$pollid should succeed" );

# Be sure today is included:
diag("Test request during poll");
ok($poll->param( start => '1/1/2000', end => '2/1/3000'),
    "Can set poll date");

ok( request('/')->is_success, 'Request should succeed' );
ok( request("/poll/$pollid")->is_success, "Request /poll/$pollid should succeed" );
ok( request("/poll/$pollid/report.pdf")->is_success, "Request /poll/$pollid/report.pdf should succeed" );

ok( request("/admin/$pollid?vpass$pollid=password")->is_success,
    "Request /admin/$pollid should succeed" );
ok( request("/admin/$pollid/voting?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/voting should succeed" );
ok( request("/admin/$pollid/ballot?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/ballot should succeed" );

ok( request("/ballot/$pollid")->is_success, "Request /admin/$pollid should succeed" );
ok( request("/ballot/$pollid?mail=user@;password=$votingpass")->is_success,
    "Request /admin/$pollid should succeed" );


diag("Test request after poll");
ok($poll->param( start => '1/1/1900', end => '2/1/1900'),
    "Can set poll date");

ok( request('/')->is_success, 'Request should succeed' );
ok( request("/poll/$pollid")->is_success, "Request /poll/$pollid should succeed" );
ok( request("/poll/$pollid/report.pdf")->is_success, "Request /poll/$pollid/report.pdf should succeed" );

ok( request("/admin/$pollid?vpass$pollid=password")->is_success,
    "Request /admin/$pollid should succeed" );
ok( request("/admin/$pollid/voting?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/voting should succeed" );
ok( request("/admin/$pollid/ballot?vpass$pollid=password")->is_success,
    "Request /admin/$pollid/ballot should succeed" );

ok( request("/ballot/$pollid")->is_success, "Request /admin/$pollid should succeed" );
ok( request("/ballot/$pollid?mail=user@;password=$votingpass")->is_success,
    "Request /admin/$pollid should succeed" );