#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Plack::Test;
use HTTP::Request::Common;
{
package MyApp;
use Dancer2;
set template => 'template_toolkit';
get '/foo' => sub {
template 'environment_setting'
};
get '/bar' => sub {
set environment => 'development';
template 'environment_setting'
};
}
my $app = Dancer2->psgi_app;
is( ref $app, 'CODE', 'Got app' );
test_psgi $app, sub {
my $cb = shift;
my $res;
$res = $cb->(GET '/foo');
is $res->code, 200, 'Successful request';
like $res->content, qr/development/, 'Correct content';
$res = $cb->(GET '/bar');
is $res->code, 200, 'Successful request';
like $res->content, qr/development/, 'Correct content';
};
done_testing();