9 eval { require Test::WWW::Mechanize::Catalyst }
11 "Test::WWW::Mechanize::Catalyst is required for this test";
17 use Test::WWW::Mechanize::Catalyst "CacheTestApp";
19 my $ua = Test::WWW::Mechanize::Catalyst->new;
21 $ua->get_ok("http://localhost/bar");
22 $ua->content_is("not found");
24 $ua->get_ok("http://localhost//foo");
26 $ua->get_ok("http://localhost/bar");
27 $ua->content_is("Foo");