view release on metacpan or  search on metacpan

t/04_headers.t  view on Meta::CPAN

    if ( ok $page, "$name not empty" ) {
        my $http_status  = $page->is_ok() ? 200 : $page->error_code();
        is   $http_status,  $http_status_exp, "$name HTTP status";

        my $http_headers = $ct->http_headers;

        for my $want_hdr ( keys %$expected_headers ) {
            ok exists $http_headers->{ $want_hdr },
                "$name $want_hdr exists";

            my $want = $expected_headers->{ $want_hdr };
            my $have = $http_headers->{ $want_hdr };
            my $desc = "$name $want_hdr value";

            if ( 'Regexp' eq ref $want ) {
                like $have, $want, $desc or diag explain $page;
            }
            else {
                is $have, $want, $desc   or diag explain $page;
            }
        };

        $page->delete();
    };
};

__DATA__
[
    { name => 'One parameter', method => 'POST', http_status => 200,
      url => '/header1', input_content => undef,
      http_headers => {
        'Status'            => '200 OK',
        'Content-Type'      => qr{^application/json},
        'Content-Length'    => '44',
      },
    },
    { name => 'Two parameters', method => 'POST', http_status => 200,
      url => '/header2', input_content => undef,
      http_headers => {
        'Status'            => '200 OK',
        'Content-Type'      => qr{^application/json},
        'Content-Length'    => '44',
      },
    },
    { name => 'Charset override', method => 'POST', http_status => 200,
      url => '/header3', input_content => undef,
      http_headers => {
        'Status'            => '204 No Response',
        'Content-Type'      => qr{^text/plain},
        'Content-Length'    => '44',
      },
    },
    { name => 'Event provider cookie headers', method => 'POST',
      http_status => 200,
      url => '/header4', input_content => undef,
      http_headers => {
        'Status'            => '204 No Response',
        'Content-Type'      => qr{^text/plain},
        'Content-Length'    => '44',
        'Set-Cookie'        => 'sessionID=xyzzy; domain=.capricorn.org; '.
                               'path=/cgi-bin/database; expires=Thursday, '.
                               '25-Apr-1999 00:40:33 GMT; secure',
      },
    },
    { name => 'API cookie headers', method => 'POST', http_status => 200,
      url => '/api4', input_content => undef,
      http_headers => {
        'Status'            => '204 No Response',
        'Content-Type'      => qr{^text/plain},
        'Content-Length'    => '1394',
        'Set-Cookie'        => 'sessionID=xyzzy; domain=.capricorn.org; '.
                               'path=/cgi-bin/database; expires=Thursday, '.
                               '25-Apr-1999 00:40:33 GMT; secure',
      },
    },
    { name => 'Router cookie headers', method => 'POST', http_status => 200,
      url => '/router3',
      input_content => raw_post(
            'http://localhost/router',
            '{"type":"rpc","tid":1,"action":"Qux",'.
            ' "method":"foo_foo","data":["bar"]}'),
      http_headers => {
        'Status'            => '204 No Response',
        'Content-Type'      => qr{^text/plain},
        'Content-Length'    => '78',
        'Set-Cookie'        => 'sessionID=xyzzy; domain=.capricorn.org; '.
                               'path=/cgi-bin/database; expires=Thursday, '.
                               '25-Apr-1999 00:40:33 GMT; secure',
      },
    },
]