use Test::More tests => 10;
use Catalyst::Test 'TestApp';
-
use HTTP::Headers::Util 'split_header_words';
my $expected = {
- Catalyst => [qw( Catalyst Cool path / )],
- Cool => [qw( Cool Catalyst path / )]
+ Catalyst => [qw|Catalyst Cool path /|],
+ Cool => [qw|Cool Catalyst path /|]
};
{
my $cookies = {};
- for my $cookie ( split_header_words( $response->header('Set-Cookie') ) ) {
- $cookies->{ $cookie->[0] } = $cookie;
+ for my $string ( $response->header('Set-Cookie') ) {
+ my $cookie = [ split_header_words $string];
+ $cookies->{ $cookie->[0]->[0] } = $cookie->[0];
}
is_deeply( $cookies, $expected, 'Response Cookies' );
my $cookies = {};
- for my $cookie ( split_header_words( $response->header('Set-Cookie') ) ) {
- $cookies->{ $cookie->[0] } = $cookie;
+ for my $string ( $response->header('Set-Cookie') ) {
+ my $cookie = [ split_header_words $string];
+ $cookies->{ $cookie->[0]->[0] } = $cookie->[0];
}
is_deeply( $cookies, $expected, 'Response Cookies' );