t/useragent.t

   1 #!perl
   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");