Commit | Line | Data |
---|---|---|
5b9187af | 1 | #!perl |
d6fc3a22 | 2 | use strict; |
3 | use warnings; | |
4 | use lib 'lib'; | |
5 | use Encode qw(); | |
6 | use Test::More tests => 2; | |
7 | use lib 't/lib'; | |
8 | use Test::WWW::Mechanize::Catalyst 'Catty'; | |
9 | ||
10 | my $root = "http://localhost"; | |
11 | my $agent = 'TestAgent/1.0'; | |
12 | my $m = Test::WWW::Mechanize::Catalyst->new(agent => $agent); | |
13 | ||
14 | $m->get_ok("$root/user_agent"); | |
15 | $m->title_is($agent, "title is correct: $agent"); |