#! perl -w

use strict;
use warnings;

use Test::More tests =>
  + 4
;
use lib '.';
require t::make_ini;

&test;

sub test
{
	my $ret = t::make_ini::tltest({
		ini => {
			TL => {
				outputbuffering => 1,
			},
		},
		method => 'GET',
		param  => {},
		sub => sub{
			our $TL;
			$TL->startCgi(-main=>sub{
				$TL->setContentFilter('Tripletail::Filter::CSV');
				$TL->print([1]);
			});
		},
	});
	SKIP:{
		ok($ret->is_success, "[test1] fetch") or skip("[test1] fetch failed", 3);
		ok($ret->{content}, "[test1] has content");

		is($ret->{content}, "1\r\n", "[test1] valid content");
		is_deeply($ret->{headers}{'Content-Length'}, [3], "[test1] clen: 3");
	}
}

# -----------------------------------------------------------------------------
# End of File.
# -----------------------------------------------------------------------------