root/lang/perl/HTTP-Engine/trunk/t/010_core/response_finalizer.t @ 17758

use Test::Base;
use HTTP::Engine::ResponseFinalizer;
use HTTP::Engine;
use t::Utils;

plan tests => 9+(1*blocks);

filters {
    req => [qw/yaml/],
    res => [qw/yaml/],
};

run {
    my $block = shift;
    my $req = req(
        %{ $block->req || {} }
    );
    my $res = HTTP::Engine::Response->new(
        %{ $block->res || {} }
    );
    HTTP::Engine::ResponseFinalizer->finalize( $req, $res );
    eval $block->test;
    die $@ if $@;

    do {
        local $@;
        eval { HTTP::Engine::ResponseFinalizer->finalize( $req ) };
        like $@, qr/argument missing: \$res/;
    };
};

__END__

=== default protocol
--- req
protocol: HTTP/1.0
method: GET
--- res
status: 200
--- test
is $res->protocol, 'HTTP/1.0';
is $res->header('Status'), 200;

=== calcurate content_length
--- req
method: GET
--- res
body: foo
--- test
is $res->content_length, 3;

=== if error
--- req
method: GET
--- res
status: 304
body: FOO
--- test
is $res->content_length, undef;
is $res->body, '';
is $res->status, 304;


=== default content type
--- req
method: GET
--- res
--- test
is $res->content_type, 'text/html';

=== truncate content in HEAD request(XXX is this valid response?)
--- req
method: HEAD
--- res
body: fooo
--- test
is $res->content_length, 4;
is $res->body, '';