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'); | |
a3b94530 | 12 | $m->content_contains('Host: foo.com'); |
1f8dbf85 | 13 | |
14 | $m->clear_host; | |
15 | $m->get_ok('/host'); | |
a3b94530 | 16 | $m->content_contains('Host: localhost') or diag $m->content; |