use strict; use warnings; use utf8; use Test::More; use Plack::Test; use Test::Requires qw/HTTP::Request::Common/, 'Data::Section::Simple'; use FindBin; use File::Spec; use lib File::Spec->catdir($FindBin::Bin, '../../lib'); use Amon2::Lite; sub config { +{ 'Text::Xslate' => { syntax => 'Kolon' } } } get '/' => sub { my ($c) = @_; return Amon2::Web::Response->new(200, [], 'OK'); }; get '/hello' => sub { my ($c) = @_; return $c->render('hello.tt', { name => $c->req->param('name')}); }; my $app = __PACKAGE__->to_app; test_psgi($app, sub { my $cb = shift; { my $res = $cb->(GET '/'); is $res->content, 'OK'; } { my $res = $cb->(GET '/hello?name=John'); is $res->content, "Hello, John\n"; } }); done_testing; __DATA__ @@ hello.tt Hello, <: $name :>