The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
ALEXMV / Jifty-1.50430 / t / TestApp-Template-Declare / t / td.t 
#!/usr/bin/env perl
use strict;
use warnings;
use Jifty::Test::Dist;
use Jifty::Test::WWW::Mechanize;

plan tests => 9;

my $server = Jifty::Test->make_server;
isa_ok( $server, 'Jifty::TestServer' );
my $URL = $server->started_ok;

my $mech = Jifty::Test::WWW::Mechanize->new;
$mech->get_ok( $URL . '/' , "testing template declare buffer" );
$mech->content_contains( '<html' );
$mech->content_contains( '<head title="tdpage_test">' , "find page header" );
$mech->content_contains( '</head>' );
$mech->content_contains( '<body>' , "find page body" );
$mech->content_contains( '<h2>TDPAGE</h2>');
$mech->content_contains( '</body>'  );