blob: a086be98d0c7b052a8155c3ec42c327fdfd47e42 (
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
25
26
|
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_like(qr{About Us ::\s+FixMyStreet.com});
$mech->content_contains('html lang="en-gb"');
# 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_like(qr{About us ::\s+Report Empty Homes});
$mech->content_contains('html lang="en-gb"');
# check that geting the page as EHA in welsh produces a different page
ok $mech->host("cy.reportemptyhomes.co.uk"), 'host to cy.reportemptyhomes';
$mech->get_ok('/about');
$mech->content_like(qr{Amdanom ni ::\s+Adrodd am Eiddo Gwag});
$mech->content_contains('html lang="cy"');
done_testing();
|
