[plack-app-gruntmaster.git] / t / mech.t

#!/usr/bin/perl -w
use strict;
use warnings;

use Test::More tests => 5;
use Test::WWW::Mechanize::PSGI;

my $mech = Test::WWW::Mechanize::PSGI->new(app => do 'app.psgi');
$mech->get_ok('/');
$mech->title_is('Gruntmaster 6000');

$mech->get_ok('/pb/');
$mech->title_is('Problems');
$mech->content_contains('Spell');
Commit	Line	Data
b7bd0bad MG	1	#!/usr/bin/perl -w
	2	use strict;
	3	use warnings;
	4
	5	use Test::More tests => 5;
	6	use Test::WWW::Mechanize::PSGI;
	7
	8	my $mech = Test::WWW::Mechanize::PSGI->new(app => do 'app.psgi');
	9	$mech->get_ok('/');
	10	$mech->title_is('Gruntmaster 6000');
	11
	12	$mech->get_ok('/pb/');
	13	$mech->title_is('Problems');
	14	$mech->content_contains('Spell');