Dancer2 0.153 Unit testing example

002_index_route.t

#!/usr/bin/perl

use Test::More tests => 2;
use strict;
use warnings;

use Plack::Test;
use HTTP::Request::Common;

use GuArt::Controller;

my $app = GuArt::Controller->psgi_app;
my $test = Plack::Test->create($app);

my $res = $test->request( GET "/");
is $res->code, 302,  'response status is 302 for / without logging in';

$res = $test->request( POST "/",[
       login_user => 'Andrew'
]);

is($res->code, 200, 'successful 200 response on login');