[catagits/Test-WWW-Mechanize-Catalyst.git] / t / useragent.t

#!perl 
use strict;
use warnings;
use lib 'lib';
use Encode qw();
use Test::More tests => 2;
use lib 't/lib';
use Test::WWW::Mechanize::Catalyst 'Catty';

my $root = "http://localhost";
my $agent = 'TestAgent/1.0';
my $m = Test::WWW::Mechanize::Catalyst->new(agent => $agent);

$m->get_ok("$root/user_agent");
$m->title_is($agent, "title is correct: $agent");
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");