- Timestamp:
- 06/13/09 15:27:17 (15 years ago)
- Location:
- trunk/t
- Files:
-
- 7 edited
- 5 moved
Legend:
- Unmodified
- Added
- Removed
-
trunk/t/01app.t
r2 r242 3 3 use Test::More tests => 2; 4 4 5 BEGIN { use_ok 'Catalyst::Test', ' Vote' }5 BEGIN { use_ok 'Catalyst::Test', 'Epoll' } 6 6 7 7 ok( request('/')->is_success, 'Request should succeed' ); -
trunk/t/10Epoll_DB.t
r225 r242 124 124 + $poll_test_count; # poll test 125 125 126 use_ok ' Vote', 'Vote';127 use_ok ' Vote::DB';126 use_ok 'Epoll', 'Epoll'; 127 use_ok 'Epoll::DB'; 128 128 $ENV{EPOLL_NO_COMMIT} = 1; 129 isa_ok(my $vote = Vote::DB->new(Vote->config->{db}), 'Vote::DB');129 isa_ok(my $vote = Epoll::DB->new(Epoll->config->{db}), 'Epoll::DB'); 130 130 131 131 my $count = 0; … … 136 136 "can create a new poll"); 137 137 138 isa_ok(my $poll = $vote->poll($pollid), ' Vote::DB::Poll');138 isa_ok(my $poll = $vote->poll($pollid), 'Epoll::DB::Poll'); 139 139 140 140 ok(my $puid = $poll->uid, "can get poll uid"); … … 161 161 } 162 162 163 isa_ok(my $results = $vote->results($pollid), ' Vote::DB::Poll');163 isa_ok(my $results = $vote->results($pollid), 'Epoll::DB::Poll'); 164 164 165 165 $tpoll->{tests}->($results); -
trunk/t/11Epoll_DB_crypted.t
r219 r242 5 5 # $Id$ 6 6 7 use_ok ' Vote', 'Vote';8 use_ok ' Vote::DB';7 use_ok 'Epoll', 'Epoll'; 8 use_ok 'Epoll::DB'; 9 9 $ENV{EPOLL_NO_COMMIT} = 1; 10 isa_ok(my $vote = Vote::DB->new(Vote->config->{db}), 'Vote::DB');10 isa_ok(my $vote = Epoll::DB->new(Epoll->config->{db}), 'Epoll::DB'); 11 11 12 12 ok(my $pollid = $vote->create_poll('test@', "Vote test", "password"), 13 13 "can create a new poll"); 14 14 15 isa_ok(my $poll = $vote->poll($pollid), ' Vote::DB::Poll');15 isa_ok(my $poll = $vote->poll($pollid), 'Epoll::DB::Poll'); 16 16 17 17 ok($poll->gen_poll_keys('keypass'), 'can generate poll keys'); … … 23 23 $poll->register_ballot('c', [], 'localhost'); 24 24 25 isa_ok(my $results = $vote->results($pollid), ' Vote::DB::Poll');25 isa_ok(my $results = $vote->results($pollid), 'Epoll::DB::Poll'); 26 26 27 27 ok($results->decrypted_ballots('keypass'), "Can decrypt ballot"); -
trunk/t/20Epoll_Web.t
r228 r242 7 7 $ENV{EPOLL_NO_COMMIT} = 1; 8 8 9 use_ok ' Vote', 'Vote';10 use_ok ' Vote::DB';11 use_ok 'Catalyst::Test', ' Vote';9 use_ok 'Epoll', 'Epoll'; 10 use_ok 'Epoll::DB'; 11 use_ok 'Catalyst::Test', 'Epoll'; 12 12 13 my $vote = Vote->model('Vote');13 my $vote = Epoll->model('Vote'); 14 14 15 15 ok(my $pollid = $vote->create_poll('test@', 'Test poll', 'password'), -
trunk/t/controller_Admin.t
r200 r242 3 3 use Test::More tests => 3; 4 4 5 BEGIN { use_ok 'Catalyst::Test', ' Vote' }6 BEGIN { use_ok ' Vote::Controller::Admin' }5 BEGIN { use_ok 'Catalyst::Test', 'Epoll' } 6 BEGIN { use_ok 'Epoll::Controller::Admin' } 7 7 8 8 ok( request('/admin')->is_redirect, 'Request should succeed' ); -
trunk/t/controller_Ballot.t
r200 r242 3 3 use Test::More tests => 3; 4 4 5 BEGIN { use_ok 'Catalyst::Test', ' Vote' }6 BEGIN { use_ok ' Vote::Controller::Ballot' }5 BEGIN { use_ok 'Catalyst::Test', 'Epoll' } 6 BEGIN { use_ok 'Epoll::Controller::Ballot' } 7 7 8 8 ok( request('/ballot')->is_redirect, 'Request should succeed' ); -
trunk/t/controller_Epoll.t
r213 r242 3 3 use Test::More tests => 3; 4 4 5 BEGIN { use_ok 'Catalyst::Test', ' Vote' }6 BEGIN { use_ok ' Vote::Controller::Vote' }5 BEGIN { use_ok 'Catalyst::Test', 'Epoll' } 6 BEGIN { use_ok 'Epoll::Controller::Vote' } 7 7 8 8 ok( request('/vote')->is_redirect, 'Request should succeed' ); -
trunk/t/controller_Newpoll.t
r30 r242 3 3 use Test::More tests => 3; 4 4 5 BEGIN { use_ok 'Catalyst::Test', ' Vote' }6 BEGIN { use_ok ' Vote::Controller::Newpoll' }5 BEGIN { use_ok 'Catalyst::Test', 'Epoll' } 6 BEGIN { use_ok 'Epoll::Controller::Newpoll' } 7 7 8 8 ok( request('/newpoll')->is_success, 'Request should succeed' ); -
trunk/t/model_Epoll.t
r213 r242 3 3 use Test::More tests => 1; 4 4 5 BEGIN { use_ok ' Vote::Model::Vote' }5 BEGIN { use_ok 'Epoll::Model::Vote' } 6 6 -
trunk/t/view_Latex.t
r183 r242 3 3 use Test::More tests => 1; 4 4 5 BEGIN { use_ok ' Vote::View::Latex' }5 BEGIN { use_ok 'Epoll::View::Latex' } 6 6 -
trunk/t/view_Mail.t
r180 r242 3 3 use Test::More tests => 1; 4 4 5 BEGIN { use_ok ' Vote::View::Mail' }5 BEGIN { use_ok 'Epoll::View::Mail' } 6 6 -
trunk/t/view_TT.t
r3 r242 3 3 use Test::More tests => 1; 4 4 5 BEGIN { use_ok ' Vote::View::TT' }5 BEGIN { use_ok 'Epoll::View::TT' } 6 6
Note: See TracChangeset
for help on using the changeset viewer.