ACIL FM

Pilih semua

Nama	Ukuran	Aksi
lib	-	Open
00-report-prereqs.dd	3.22 MB	View DL Edit
00-report-prereqs.t	5.79 MB	View DL Edit
add.t	8.61 MB	View DL Edit
cookies_for.t	1.26 MB	View DL Edit
examples.t	1.47 MB	View DL Edit
parse.t	2.64 MB	View DL Edit
publicsuffix.t	3.03 MB	View DL Edit
save.t	2.12 MB	View DL Edit
sort.t	1.47 MB	View DL Edit
zzz-lwp.t	21.79 MB	View DL Edit

Edit file: /home/.cpan/build/HTTP-CookieJar-0.014-0/t/parse.t

use 5.008001;
use strict;
use warnings;
use Test::More 0.96;
use Test::Deep '!blessed';

use HTTP::CookieJar;

my @cases = (
    {
        cookie => "",
        parse  => undef,
    },
    {
        cookie => "SID=",
        parse  => {
            name  => "SID",
            value => "",
        }
    },
    {
        cookie => "=31d4d96e407aad42",
        parse  => undef,
    },
    {
        cookie => "; Max-Age: 1360343635",
        parse  => undef,
    },
    {
        cookie => "SID=31d4d96e407aad42",
        parse  => {
            name  => "SID",
            value => "31d4d96e407aad42",
        }
    },
    {
        cookie => "SID=ID=31d4d96e407aad42",
        parse  => {
            name  => "SID",
            value => "ID=31d4d96e407aad42",
        }
    },
    {
        cookie => "SID=31d4d96e407aad42 ; ; ; ",
        parse  => {
            name  => "SID",
            value => "31d4d96e407aad42",
        }
    },
    {
        cookie => "SID=31d4d96e407aad42; Path=/; Secure; HttpOnly",
        parse  => {
            name     => "SID",
            value    => "31d4d96e407aad42",
            path     => "/",
            secure   => 1,
            httponly => 1,
        }
    },
    {
        cookie => "SID=31d4d96e407aad42; Domain=.example.com",
        parse  => {
            name   => "SID",
            value  => "31d4d96e407aad42",
            domain => "example.com",
        }
    },
    {
        cookie => "SID=31d4d96e407aad42; Path=/; Domain=example.com",
        parse  => {
            name   => "SID",
            value  => "31d4d96e407aad42",
            path   => "/",
            domain => "example.com",
        }
    },
    {
        cookie => "SID=31d4d96e407aad42; Path=/; Domain=",
        parse  => {
            name  => "SID",
            value => "31d4d96e407aad42",
            path  => "/",
        }
    },
    {
        cookie => "lang=en-US; Expires = Sun, 09 Jun 2041 10:18:14 GMT",
        parse  => {
            name    => "lang",
            value   => "en-US",
            expires => 2254385894,
        }
    },
    {
        cookie => "lang=en-US; Expires = Sun, 09 Jun 2041 10:18:14 GMT; Max-Age=3600",
        parse  => {
            name      => "lang",
            value     => "en-US",
            expires   => 2254385894,
            'max-age' => 3600,
        }
    },
);

for my $c (@cases) {
    my $got = HTTP::CookieJar::_parse_cookie( $c->{cookie} );
    cmp_deeply $got, $c->{parse}, $c->{cookie} || q{''};
}

done_testing;
#
# This file is part of HTTP-CookieJar
#
# This software is Copyright (c) 2013 by David Golden.
#
# This is free software, licensed under:
#
#   The Apache License, Version 2.0, January 2004
#

Batal

Isi Zip:

Create