t/mech.t

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4
   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 }
  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');