The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
% my $class = shift;
use strict;
use warnings;
use Test::MBD '-autostart';
use Test::More tests => 9;
use Test::Mojo;

use_ok('<%= $class %>');

my $t = Test::Mojo->new('<%= $class %>');

$t->get_ok('/')->status_is(200)->content_type_like(qr[text/html])
  ->content_like(qr/welcome/i);


$t->post_ok('/clustericious', { "Content-Type" => "application/json" },
          qq[{ "app": "<%= $class %>", "version" : "$<%= $class %>::VERSION" }])
        ->status_is(200, "posted version");

$t->get_ok('/clustericious/<%= $class %>')
  ->json_is('', { app => "<%= $class %>", version => $<%= $class %>::VERSION }, "DB version is $<%= $class %>::VERSION " );