#!/usr/bin/env perl
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>'
);