use strict;
use warnings;

use Test::More tests => 8;
use Data::Dumper;
BEGIN { use_ok('Cookie::XS'); }

$Data::Dumper::Sortkeys = 1;

{
    my $cookie = 'foo=a%20phrase;haha; bar=yes%2C%20a%20phrase; baz=%5Ewibble&leiyh; qux=%27';
    my $res = Cookie::XS->parse($cookie);
    is Dumper($res), <<'_EOC_';
$VAR1 = {
          'bar' => [
                     'yes, a phrase'
                   ],
          'baz' => [
                     '^wibble',
                     'leiyh'
                   ],
          'foo' => [
                     'a phrase'
                   ],
          'qux' => [
                     '\''
                   ]
        };
_EOC_
}

{
    my $cookie = 'foo=a%3A; ';
    my $res = Cookie::XS->parse($cookie);
    ok $res, 'res is not null';
    ok $res->{foo}, 'var foo defined';
    is $res->{foo}->[0], 'a:';
}

{
    my $cookie = 'foo=a%3A ';
    my $res = Cookie::XS->parse($cookie);
    ok $res, 'res is not null';
    ok $res->{foo}, 'var foo defined';
    is $res->{foo}->[0], 'a: ';
}