blob: 2ac628367594f3316c220b7319e22b5dad9f9311 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
use strict;
use warnings;
use Test::More;
use Test::WWW::Mechanize::Catalyst 'FixMyStreet::App';
ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );
# check that we can get the page
$mech->get_ok('/about');
$mech->content_contains('FixMyStreet.com');
# check that geting the page as EHA produces a different page
ok $mech->host("www.reportemptyhomes.co.uk"), 'change host to reportemptyhomes';
$mech->get_ok('/about');
$mech->content_lacks('FixMyStreet.com');
done_testing();
|
