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

use strict;
use warnings;

use Test::More tests => 4;
use lib 't/lib';
use Test::WWW::Mechanize::Catalyst;

my $m = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'Catty');

$m->host('foo.com');
$m->get_ok('/host');
$m->content_contains('Host: foo.com:80');

$m->clear_host;
$m->get_ok('/host');
$m->content_contains('Host: localhost:80') or diag $m->content;
Commit	Line	Data
1f8dbf85	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 4;
	5	use lib 't/lib';
	6	use Test::WWW::Mechanize::Catalyst;
	7
	8	my $m = Test::WWW::Mechanize::Catalyst->new(catalyst_app => 'Catty');
	9
	10	$m->host('foo.com');
	11	$m->get_ok('/host');
	12	$m->content_contains('Host: foo.com:80');
	13
	14	$m->clear_host;
	15	$m->get_ok('/host');
	16	$m->content_contains('Host: localhost:80') or diag $m->content;