use HTTP::Headers::Util 'split_header_words';
my $expected = {
- Catalyst => [qw|Catalyst Cool path /bah|],
- Cool => [qw|Cool Catalyst path /|]
+ catalyst => [qw|catalyst cool path /bah|],
+ cool => [qw|cool catalyst path /|]
};
{
is_deeply( $cookies, $expected, 'Response Cookies' );
}
+# XXX: these fail on remote servers due to LWP max_redirect 0 bug:
+# http://rt.cpan.org/Ticket/Display.html?id=40260
{
ok( my $response = request('http://localhost/engine/response/cookies/two'),
'Request' );