6 use Test::More tests => 2;
8 use Test::WWW::Mechanize::Catalyst 'Catty';
10 my $root = "http://localhost";
11 my $agent = 'TestAgent/1.0';
12 my $m = Test::WWW::Mechanize::Catalyst->new(agent => $agent);
14 $m->get_ok("$root/user_agent");
15 $m->title_is($agent, "title is correct: $agent");