blob: adbce8f2540a36a7c53c6e39ea6a2ab9131a6c68 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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("reportemptyhomes.co.uk"), 'change host to reportemptyhomes';
$mech->get_ok('/about');
$mech->content_contains('The Empty Homes Agency');
# check that geting the page as EHA in welsh produces a different page
ok $mech->host("cy.reportemptyhomes.co.uk"),
'change host to cy.reportemptyhomes';
$mech->get_ok('/about');
$mech->content_contains('Yr Asiantaeth Tai Gwag');
done_testing();
|
