X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=trunk%2Ft%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FCookies.pm;fp=trunk%2Ft%2Flib%2FTestApp%2FController%2FEngine%2FResponse%2FCookies.pm;h=0000000000000000000000000000000000000000;hb=f436bc1bece2bcc2a04138068e5c22e70d9d6d35;hp=320c2e134fb8c5fcdf95db68b64e34518b95f13b;hpb=e28a6876ad3e11890226e5bab6df4b0725e0981e;p=catagits%2FCatalyst-Runtime.git diff --git a/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm b/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm deleted file mode 100644 index 320c2e1..0000000 --- a/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm +++ /dev/null @@ -1,35 +0,0 @@ -package TestApp::Controller::Engine::Response::Cookies; - -use strict; -use base 'Catalyst::Controller'; - -sub one : Local { - my ( $self, $c ) = @_; - $c->res->cookies->{catalyst} = { value => 'cool', path => '/bah' }; - $c->res->cookies->{cool} = { value => 'catalyst', path => '/' }; - $c->forward('TestApp::View::Dump::Request'); -} - -sub two : Local { - my ( $self, $c ) = @_; - $c->res->cookies->{catalyst} = { value => 'cool', path => '/bah' }; - $c->res->cookies->{cool} = { value => 'catalyst', path => '/' }; - $c->res->redirect('http://www.google.com/'); -} - -sub three : Local { - my ( $self, $c ) = @_; - - $c->res->cookies->{object} = CGI::Simple::Cookie->new( - -name => "this_is_the_real_name", - -value => [qw/foo bar/], - ); - - $c->res->cookies->{hash} = { - value => [qw/a b c/], - }; - - $c->forward('TestApp::View::Dump::Request'); -} - -1;