Changeset 200

Timestamp:

04/15/09 05:39:29 (15 years ago)

Author:

nanardon

Message:

• fix test

Location:

trunk

Files:

• lib/Vote/Controller/Root.pm (modified) (1 diff)
• lib/Vote/View/Mail.pm (modified) (1 diff)
• lib/Vote/View/TT.pm (modified) (1 diff)
• t/controller_Admin.t (modified) (1 diff)
• t/controller_Ballot.t (modified) (1 diff)
• t/controller_Vote.t (modified) (1 diff)

trunk/lib/Vote/Controller/Root.pm

@@ -34 +34 @@
 sub default : Private {
     my ( $self, $c ) = @_;
-    $c->stash->{page}{title} = 'Epoll ' . $Vote::VERSION;
+    $c->stash->{page}{title} = 'Epoll ' . $Vote::DB::VERSION;
 }
 

trunk/lib/Vote/View/Mail.pm

@@ -4 +4 @@
 use base 'Catalyst::View::TT';
 use Mail::Mailer;
+use Vote;
 use Vote::DB;
 

trunk/lib/Vote/View/TT.pm

@@ -3 +3 @@
 use strict;
 use base 'Catalyst::View::TT';
+use Vote;
 use Vote::DB;
 

trunk/t/controller_Admin.t

@@ -6 +6 @@
 BEGIN { use_ok 'Vote::Controller::Admin' }
 
-ok( request('/admin')->is_success, 'Request should succeed' );
+ok( request('/admin')->is_redirect, 'Request should succeed' );
 
 

trunk/t/controller_Ballot.t

@@ -6 +6 @@
 BEGIN { use_ok 'Vote::Controller::Ballot' }
 
-ok( request('/ballot')->is_success, 'Request should succeed' );
+ok( request('/ballot')->is_redirect, 'Request should succeed' );
 
 

trunk/t/controller_Vote.t

@@ -6 +6 @@
 BEGIN { use_ok 'Vote::Controller::Vote' }
 
-ok( request('/vote')->is_success, 'Request should succeed' );
+ok( request('/vote')->is_redirect, 'Request should succeed' );