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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
use CGI::Simple;
use Test::MockModule;
use FixMyStreet::TestMech;
use FixMyStreet::Script::Reports;
use_ok 'FixMyStreet::Cobrand::Bexley';
my $ukc = Test::MockModule->new('FixMyStreet::Cobrand::UKCouncils');
$ukc->mock('lookup_site_code', sub {
my ($self, $row, $buffer) = @_;
is $row->latitude, 51.408484, 'Correct latitude';
return "Road ID";
});
FixMyStreet::override_config {
COBRAND_FEATURES => {
contact_email => {
bexley => 'foo@bexley',
}
},
}, sub {
my $cobrand = FixMyStreet::Cobrand::Bexley->new;
like $cobrand->contact_email, qr/bexley/;
is $cobrand->on_map_default_status, 'open';
is_deeply $cobrand->disambiguate_location->{bounds}, [ 51.408484, 0.074653, 51.515542, 0.2234676 ];
};
my $mech = FixMyStreet::TestMech->new;
my $body = $mech->create_body_ok(2494, 'London Borough of Bexley', {
send_method => 'Open311', api_key => 'key', 'endpoint' => 'e', 'jurisdiction' => 'j' });
$mech->create_contact_ok(body_id => $body->id, category => 'Abandoned and untaxed vehicles', email => "ABAN");
$mech->create_contact_ok(body_id => $body->id, category => 'Lamp post', email => "LAMP");
$mech->create_contact_ok(body_id => $body->id, category => 'Parks and open spaces', email => "PARK");
$mech->create_contact_ok(body_id => $body->id, category => 'Dead animal', email => "ANIM");
$mech->create_contact_ok(body_id => $body->id, category => 'Something dangerous', email => "DANG");
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ 'bexley' ],
MAPIT_URL => 'http://mapit.uk/',
STAGING_FLAGS => { send_reports => 1, skip_checks => 0 },
COBRAND_FEATURES => { open311_email => { bexley => { p1 => 'p1@bexley', lighting => 'thirdparty@notbexley.example.com' } } },
}, sub {
subtest 'cobrand displays council name' => sub {
ok $mech->host("bexley.fixmystreet.com"), "change host to bexley";
$mech->get_ok('/');
$mech->content_contains('Bexley');
};
subtest 'cobrand displays council name' => sub {
$mech->get_ok('/reports/Bexley');
$mech->content_contains('Bexley');
};
foreach my $test (
{ category => 'Abandoned and untaxed vehicles', email => 1, code => 'ABAN',
extra => { 'name' => 'burnt', description => 'Was it burnt?', 'value' => 'Yes' } },
{ category => 'Abandoned and untaxed vehicles', code => 'ABAN',
extra => { 'name' => 'burnt', description => 'Was it burnt?', 'value' => 'No' } },
{ category => 'Dead animal', email => 1, code => 'ANIM' },
{ category => 'Something dangerous', email => 1, code => 'DANG',
extra => { 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'Yes' } },
{ category => 'Something dangerous', code => 'DANG',
extra => { 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'No' } },
{ category => 'Parks and open spaces', email => 1, code => 'PARK',
extra => { 'name' => 'reportType', description => 'Type of report', 'value' => 'Wild animal' } },
{ category => 'Parks and open spaces', code => 'PARK',
extra => { 'name' => 'reportType', description => 'Type of report', 'value' => 'Maintenance' } },
{ category => 'Parks and open spaces', code => 'PARK',
extra => { 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'Yes' } },
{ category => 'Parks and open spaces', email => 1, code => 'PARK',
extra => [
{ 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'Yes' },
{ 'name' => 'reportType', description => 'Type of report', 'value' => 'Vandalism' },
] },
{ category => 'Lamp post', code => 'LAMP', email => 'thirdparty',
extra => { 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'No' } },
{ category => 'Lamp post', code => 'LAMP', email => 'p1.*thirdparty',
extra => { 'name' => 'dangerous', description => 'Was it dangerous?', 'value' => 'Yes' } },
) {
my ($report) = $mech->create_problems_for_body(1, $body->id, 'On Road', {
category => $test->{category}, cobrand => 'bexley',
latitude => 51.408484, longitude => 0.074653,
});
if ($test->{extra}) {
$report->set_extra_fields(ref $test->{extra} eq 'ARRAY' ? @{$test->{extra}} : $test->{extra});
$report->update;
}
subtest 'NSGRef and correct email config' => sub {
my $test_data = FixMyStreet::Script::Reports::send();
my $req = $test_data->{test_req_used};
my $c = CGI::Simple->new($req->content);
is $c->param('service_code'), $test->{code};
is $c->param('attribute[NSGRef]'), 'Road ID';
if (my $t = $test->{email}) {
my $email = $mech->get_email;
if ($t eq 1) {
like $email->header('To'), qr/"Bexley P1 email".*bexley/;
} else {
like $email->header('To'), qr/$t/;
}
like $mech->get_text_body_from_email($email), qr/NSG Ref: Road ID/;
$mech->clear_emails_ok;
} else {
$mech->email_count_is(0);
}
};
}
};
subtest 'nearest road returns correct road' => sub {
my $cobrand = FixMyStreet::Cobrand::Bexley->new;
my $cfg = {
accept_feature => sub { 1 },
property => 'fid',
};
my $features = [
{ geometry => { type => 'Polygon' } },
{ geometry => { type => 'MultiLineString',
coordinates => [ [ [ 545499, 174361 ], [ 545420, 174359 ], [ 545321, 174352 ] ] ] },
properties => { fid => '20101226' } },
{ geometry => { type => 'LineString',
coordinates => [ [ 545420, 174359 ], [ 545419, 174375 ], [ 545418, 174380 ], [ 545415, 174391 ] ] },
properties => { fid => '20100024' } },
];
is $cobrand->_nearest_feature($cfg, 545451, 174380, $features), '20101226';
};
done_testing();
|
