view release on metacpan or  search on metacpan

t/00_internal.t  view on Meta::CPAN

    '-content_length' => 42,
    '-status'         => '123 blah',
    '-charset'        => 'utf-8',
);

my @have = hash_sort $c->_munge_headers('content/foo', '123 blah', 42);

is_deeply \@have, \@want, "First form"
    or diag explain "Want:", \@want, "Have:", \@have;

# Second CGI-like form, content-type override
@want = hash_sort (
    '-type'           => 'content/foo',
    '-content_length' => 123,
    '-charset'        => 'utf-8',
    '-status'         => '321 bleh',
);

@have = hash_sort $c->_munge_headers(
    'content/foo', '321 bleh', 123, 'content/bar'
);

is_deeply \@have, \@want, "Second form",
    or diag explain "Want:", \@want, "Have:", \@have;

# Third CGI-like form, both content-type and status are overridden
@want = hash_sort (
    '-type'           => 'content/foo',
    '-content_length' => 321,
    '-charset'        => 'utf-8',
    '-status'         => '111 blerg',
);

@have = hash_sort $c->_munge_headers(
    'content/foo', '111 blerg', 321, 'content/bar', '321 bleh',
);