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 strict;
use warnings;
use Test::More;
use FixMyStreet::TestMech;
my $mech = FixMyStreet::TestMech->new;
# Create test data
my $user = $mech->create_user_ok( 'bromley@example.com' );
my $body = $mech->create_body_ok( 2482, 'Bromley Council', id => 2482 );
$mech->create_contact_ok(
body_id => $body->id,
category => 'Other',
email => 'LIGHT',
);
my @reports = $mech->create_problems_for_body( 1, $body->id, 'Test', {
cobrand => 'bromley',
user => $user,
});
my $report = $reports[0];
for my $update ('in progress', 'unable to fix') {
FixMyStreet::DB->resultset('Comment')->find_or_create( {
problem_state => $update,
problem_id => $report->id,
user_id => $user->id,
name => 'User',
mark_fixed => 'f',
text => "This update marks it as $update",
state => 'confirmed',
confirmed => 'now()',
anonymous => 'f',
} );
}
# Test Bromley special casing of 'unable to fix'
$mech->get_ok( '/report/' . $report->id );
$mech->content_contains( 'marks it as in progress' );
$mech->content_contains( 'marked as in progress' );
$mech->content_contains( 'marks it as unable to fix' );
$mech->content_contains( 'marked as no further action' );
subtest 'testing special Open311 behaviour', sub {
$report->set_extra_fields();
$report->update;
$body->update( { send_method => 'Open311', endpoint => 'http://bromley.endpoint.example.com', jurisdiction => 'FMS', api_key => 'test' } );
FixMyStreet::override_config {
SEND_REPORTS_ON_STAGING => 1,
}, sub {
FixMyStreet::DB->resultset('Problem')->send_reports();
};
$report->discard_changes;
ok $report->whensent, 'Report marked as sent';
is $report->send_method_used, 'Open311', 'Report sent via Open311';
is $report->external_id, 248, 'Report has right external ID';
};
for my $test (
{
cobrand => 'bromley',
fields => {
submit_update => 1,
rznvy => 'unregistered@example.com',
update => 'Update from an unregistered user',
add_alert => undef,
first_name => 'Unreg',
last_name => 'User',
fms_extra_title => 'DR',
may_show_name => undef,
}
},
{
cobrand => 'fixmystreet',
fields => {
submit_update => 1,
rznvy => 'unregistered@example.com',
update => 'Update from an unregistered user',
add_alert => undef,
name => 'Unreg User',
fms_extra_title => 'DR',
may_show_name => undef,
}
},
)
{
subtest 'check Bromley update emails via ' . $test->{cobrand} . ' cobrand are correct' => sub {
$mech->log_out_ok();
$mech->clear_emails_ok();
my $report_id = $report->id;
FixMyStreet::override_config {
ALLOWED_COBRANDS => [ $test->{cobrand} ],
}, sub {
$mech->get_ok("/report/$report_id");
$mech->submit_form_ok(
{
with_fields => $test->{fields}
},
'submit update'
);
};
$mech->content_contains('Nearly done! Now check your email');
my $email = $mech->get_email;
ok $email, "got an email";
like $email->body, qr/This update will be sent to Bromley Council/i, "Email indicates problem will be sent to Bromley";
unlike $email->body, qr/Note that we do not send updates to/i, "Email does not say updates aren't sent to Bromley";
my $unreg_user = FixMyStreet::App->model( 'DB::User' )->find( { email => 'unregistered@example.com' } );
ok $unreg_user, 'found user';
$mech->delete_user( $unreg_user );
};
}
# Clean up
$mech->delete_user($user);
$mech->delete_body($body);
done_testing();
|
