projects
/
catagits/Test-WWW-Mechanize-Catalyst.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
adding utf8 redirection test
[catagits/Test-WWW-Mechanize-Catalyst.git]
/
t
/
white_label.t
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');
13
14
$m->clear_host;
15
$m->get_ok('/host');
16
$m->content_contains('Host: localhost') or diag $m->content;