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:80');
  13
  14 $m->clear_host;
  15 $m->get_ok('/host');
  16 $m->content_contains('Host: localhost:80') or diag $m->content;