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
|
use FixMyStreet::TestMech;
# disable info logs for this test run
FixMyStreet::App->log->disable('info');
END { FixMyStreet::App->log->enable('info'); }
my $mech = FixMyStreet::TestMech->new;
my $body_edin = $mech->create_body_ok(2651, 'City of Edinburgh Council', { send_method => 'Refused' });
my $body_chelt = $mech->create_body_ok(2326, 'Cheltenham Borough Council');
$mech->create_contact_ok(body_id => $body_edin->id, category => 'Street lighting', email => 'highways@example.com');
my $contact = $mech->create_contact_ok(body_id => $body_chelt->id, category => 'Trees', email => 'trees@example.org');
$mech->create_contact_ok(body_id => $body_edin->id, category => 'Trees', email => 'trees@example.com');
my $user = $mech->create_user_ok('test-2@example.com');
FixMyStreet::override_config {
ALLOWED_COBRANDS => 'fixmystreet',
MAPIT_URL => 'http://mapit.uk/',
}, sub {
subtest "unresponsive body handling, body-level send method" => sub {
my $body_id = $body_edin->id;
my $extra_details = $mech->get_ok_json('/report/new/ajax?latitude=55.952055&longitude=-3.189579');
like $extra_details->{top_message}, qr{Edinburgh.*accept reports.*/unresponsive\?body=$body_id};
is_deeply $extra_details->{unresponsive}, { $body_id => 1 }, "unresponsive json set";
$extra_details = $mech->get_ok_json('/report/new/category_extras?category=Street%20lighting&latitude=55.952055&longitude=-3.189579');
is_deeply $extra_details->{unresponsive}, { $body_id => 1 }, "unresponsive json set";
make_report('EH1 1BB');
like $mech->get_text_body_from_email, qr/despite not being sent/i, "correct email sent";
$user->problems->delete;
};
subtest "unresponsive body handling from mobile app" => sub {
$mech->log_out_ok;
$mech->post_ok( '/report/new/mobile', {
title => "Test Report at café",
detail => 'Test report details.',
photo1 => '',
name => 'Joe Bloggs',
email => $user->email,
may_show_name => '1',
phone => '07903 123 456',
category => 'Trees',
service => 'iOS',
lat => 55.952055,
lon => -3.189579,
pc => '',
used_map => '1',
submit_register => '1',
password_register => '',
});
my $res = $mech->response;
ok $res->header('Content-Type') =~ m{^application/json\b}, 'response should be json';
my $report = $user->problems->first;
ok $report, "Found the report";
is $report->bodies_str, undef, "Report not going anywhere";
like $mech->get_text_body_from_email, qr/despite not being sent/i, "correct email sent";
$body_edin->update({ send_method => undef });
$user->problems->delete;
};
subtest "unresponsive body handling, per-category refusing" => sub {
$contact->update({ email => 'REFUSED' });
my $extra_details = $mech->get_ok_json('/report/new/ajax?latitude=51.896268&longitude=-2.093063');
like $extra_details->{by_category}{Trees}{category_extra}, qr/Cheltenham.*Trees.*unresponsive.*category=Trees/s;
$extra_details = $mech->get_ok_json('/report/new/category_extras?category=Trees&latitude=51.896268&longitude=-2.093063');
is_deeply $extra_details->{unresponsive}, { $body_chelt->id => 1 }, "unresponsive json set";
make_report('GL50 2PR');
$contact->update({ email => 'trees@example.org' });
};
subtest "unresponsive body page works" => sub {
my $url = "/unresponsive?body=" . $body_edin->id;
is $mech->get($url)->code, 404, "page not found";
$body_edin->update({ send_method => 'Refused' });
$mech->get_ok($url);
$mech->content_contains('Edinburgh');
$body_edin->update({ send_method => undef });
$url = "/unresponsive?body=" . $body_chelt->id . ";category=Trees";
is $mech->get($url)->code, 404, "page not found";
$contact->update({ email => 'REFUSED' });
$mech->get_ok($url);
$mech->content_contains('Cheltenham');
$mech->content_contains('Trees');
};
};
done_testing;
sub make_report {
my $pc = shift;
$mech->get_ok('/around');
$mech->submit_form_ok( { with_fields => { pc => $pc } }, "submit location" );
$mech->follow_link_ok( { text_regex => qr/skip this step/i, }, "follow 'skip this step' link" );
$mech->submit_form_ok(
{
with_fields => {
title => "Test Report at café",
detail => 'Test report details.',
photo1 => '',
name => 'Joe Bloggs',
username => $user->email,
may_show_name => '1',
phone => '07903 123 456',
category => 'Trees',
}
},
"submit good details"
);
my $report = $user->problems->first;
ok $report, "Found the report";
is $report->bodies_str, undef, "Report not going anywhere";
}
|
