blob: 3122974363f5a710b2a8183c7696ec7f38870652 (
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
27
28
29
30
31
32
33
34
|
use strict;
use warnings;
use Test::More;
use Test::WWW::Mechanize::Catalyst 'FixMyStreet::App';
use mySociety::MaPit;
ok( my $mech = Test::WWW::Mechanize::Catalyst->new, 'Created mech object' );
# check that we can get the page
$mech->get_ok('/reports');
$mech->title_like(qr{Summary reports});
$mech->content_contains('Birmingham');
$mech->follow_link_ok( { text_regex => qr/Birmingham/ } );
SKIP: {
skip( "Need 'emptyhomes' in ALLOWED_COBRANDS config", 8 )
unless FixMyStreet::App->config->{ALLOWED_COBRANDS} =~ m{emptyhomes};
ok $mech->host("reportemptyhomes.com"), 'change host to reportemptyhomes';
$mech->get_ok('/reports');
# EHA lacks one column the others have
$mech->content_lacks('state unknown');
# FIXME To do the below, need a way of altering where MaPit is pointing
# skip( "Need 'fiksgatami' in ALLOWED_COBRANDS config", 8 )
# unless FixMyStreet::App->config->{ALLOWED_COBRANDS} =~ m{fiksgatami};
# ok $mech->host("fiksgatami.no"), 'change host to fiksgatami';
# $mech->get_ok('/reports');
# # There should only be one Oslo
# $mech->content_contains('Oslo');
# $mech->content_unlike(qr{Oslo.*Oslo}s);
}
done_testing();
|
