t/live-test.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 3;
   6
   7 # setup library path
   8 use FindBin qw($Bin);
   9 use lib "$Bin/lib";
  10
  11 # make sure testapp works
  12 use ok 'TestApp';
  13
  14 # a live test against TestApp, the test application
  15 use Test::WWW::Mechanize::Catalyst 'TestApp';
  16 my $mech = Test::WWW::Mechanize::Catalyst->new;
  17 $mech->get_ok('http://localhost/', 'get main page');
  18 $mech->content_like(qr/it works/i, 'see if it has our text');
  19