4 use Test::More tests => 4;
6 use Test::WWW::Mechanize::Catalyst;
8 my $m = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'Catty');
12 $m->content_contains('Host: foo.com:80');
16 $m->content_contains('Host: localhost:80') or diag $m->content;