[gruntmaster-page.git] / t / mech.t

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

use Test::More;
BEGIN {
	plan skip_all => '$ENV{AUTHOR_TESTING} is false, skipping tests' unless $ENV{AUTHOR_TESTING};
	plan 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
f0659816 MG	5	use Test::More;
	6	BEGIN {
	7	plan skip_all => '$ENV{AUTHOR_TESTING} is false, skipping tests' unless $ENV{AUTHOR_TESTING};
	8	plan tests => 5;
	9	}
b7bd0bad MG	10	use Test::WWW::Mechanize::PSGI;
	11
	12	my $mech = Test::WWW::Mechanize::PSGI->new(app => do 'app.psgi');
	13	$mech->get_ok('/');
	14	$mech->title_is('Gruntmaster 6000');
	15
	16	$mech->get_ok('/pb/');
	17	$mech->title_is('Problems');
	18	$mech->content_contains('Spell');