blob: aeca47d86f2a7e5313ead02436ec253278848b7e (
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_contains('About Us :: 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_contains('About us :: 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_contains('Amdanom ni :: Adrodd am Eiddo Gwag');
$mech->content_contains('html lang="cy"');
done_testing();
|
