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();