t/live_app.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 BEGIN {
   9     eval { require Test::WWW::Mechanize::Catalyst }
  10       or plan skip_all =>
  11       "Test::WWW::Mechanize::Catalyst is required for this test";
  12
  13     plan tests => 5;
  14 }
  15
  16 use lib "t/lib";
  17 use Test::WWW::Mechanize::Catalyst "CacheTestApp";
  18
  19 my $ua = Test::WWW::Mechanize::Catalyst->new;
  20
  21 $ua->get_ok("http://localhost/bar");
  22 $ua->content_is("not found");
  23
  24 $ua->get_ok("http://localhost//foo");
  25
  26 $ua->get_ok("http://localhost/bar");
  27 $ua->content_is("Foo");