#!perl

use strict;
use warnings;

use Test::More tests => 14;
use lib 't/lib';
require 'do_request.pl';

# Tests to check that our plugin doesn't mange cookie as it reads them.
# Note that because required defaults to 1, these cookies are processed fully.

# no need for a die() here because Cat will do that for us
BEGIN { use_ok('Catalyst::Test', ('PluginTestApp')); }

use HTTP::Request::Common;

{
    my $request = HTTP::Request::Common::GET(
        '/testrequest',
        'Cookie' => 'Catalyst=Cool; Cool=Catalyst',
    );

    my $creq = &do_request( $request );
   
    # plugin has not mangled cookies in request object
    
    isa_ok( $creq->cookies->{Catalyst}, 'CGI::Simple::Cookie',
        'Cookie "Catalyst"' );
    is( $creq->cookies->{Catalyst}->name, 'Catalyst',
        'Cookie "Catalyst" name is set' );
    is( $creq->cookies->{Catalyst}->value, 'Cool',
        'Cookie "Catalyst" value is set to "Cool"' );

    isa_ok( $creq->cookies->{Cool}, 'CGI::Simple::Cookie',
        'Cookie "Cool"' );
    is( $creq->cookies->{Cool}->name, 'Cool',
        'Cookie "Cool" name is set' );
    is( $creq->cookies->{Cool}->value, 'Catalyst',
        'Cookie "Cool" value is set to "Catalyst"' );
}