]>
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'); |