use Kelp::Base -strict;

use Kelp;
use Kelp::Response;
use Test::More;

my $app = Kelp->new( mode => 'test' );
my $r = Kelp::Response->new( app => $app );

$r->text;
$r->set_code(200);
my $A = $r->finalize;

$r->partial(1);
my $B = $r->finalize;

is scalar(@$A), 3;
is scalar(@$B), 2;
is $A->[0], $B->[0];
is_deeply $A->[1], $B->[1];

done_testing;