t/09cookies.t

   1 package TestApp;
   2
   3 use Catalyst qw[-Engine=Test];
   4
   5 sub foo : Global {
   6   my ( $self, $c ) = @_;
   7   $c->res->cookies->{foo} = { value => 'bar' };
   8 }
   9
  10 __PACKAGE__->setup;
  11
  12 package main;
  13
  14 use Test::More tests => 1;
  15 use Catalyst::Test 'TestApp';
  16
  17 ok( request('/foo')->header('Set-Cookie') =~ /bar/ );