t/mech.t

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