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
|
use FixMyStreet::TestMech;
my $mech = FixMyStreet::TestMech->new;
my $user = $mech->create_user_ok('test@example.com', name => 'Test User');
my $user2 = $mech->create_user_ok('test2@example.com', name => 'Test User 2');
my $superuser = $mech->create_user_ok(
'superuser@example.com',
name => 'Super User',
is_superuser => 1
);
my $iow = $mech->create_body_ok(2636, 'Isle of Wight Council', { can_be_devolved => 1 } );
my $iow_contact = $mech->create_contact_ok(
body_id => $iow->id,
category => 'Potholes',
email => 'potholes@example.com',
send_method => 'Triage'
);
$mech->create_contact_ok(
body_id => $iow->id,
category => 'Traffic lights',
email => 'lights@example.com'
);
my $dt = DateTime->now();
my ($report) = $mech->create_problems_for_body(
1,
$iow->id,
'TITLE',
{
areas => 2636,
category => 'Potholes',
whensent => $dt,
latitude => 50.71086,
longitude => -1.29573,
send_method_used => 'Triage',
}
);
warn $report->bodies_str;
FixMyStreet::override_config {
STAGING_FLAGS => { send_reports => 1, skip_checks => 0 },
ALLOWED_COBRANDS => [ 'isleofwight' ],
MAPIT_URL => 'http://mapit.uk/',
}, sub {
subtest "user can access triage page with triage permission" => sub {
$user->update({ from_body => $iow });
$mech->log_out_ok;
$mech->get_ok('/admin/triage');
$mech->log_in_ok($user->email);
$mech->get('/admin/triage');
is $mech->res->code, 403, 'permission denied';
$user->user_body_permissions->create( { body => $iow, permission_type => 'triage' } );
$mech->get_ok('/admin/triage');
};
subtest "reports marked for triage show triage interface" => sub {
$mech->log_out_ok;
$mech->log_in_ok( $user->email );
$mech->get_ok('/report/' . $report->id);
$mech->content_lacks('CONFIRM Subject');
$report->update( { state => 'for triage' } );
$mech->get_ok('/report/' . $report->id);
$mech->content_contains('CONFIRM Subject');
};
subtest "changing report category marks report as confirmed" => sub {
my $report_url = '/report/' . $report->id;
$mech->get_ok($report_url);
$mech->content_contains('Traffic lights');
$mech->submit_form_ok( {
with_fields => {
category => 'Traffic lights',
include_update => 0,
}
},
'triage form submitted'
);
$mech->content_contains('Potholes');
$report->discard_changes;
is $report->state, 'confirmed', 'report marked as confirmed';
ok !$report->whensent, 'report marked to resend';
my @comments = $report->comments;
my $comment = $comments[0];
my $extra = $comment->get_extra_metadata();
is $extra->{triage_report}, 1, 'comment indicates it is for triage in extra';
is $extra->{holding_category}, 'Potholes', 'comment extra has previous category';
is $extra->{new_category}, 'Traffic lights', 'comment extra has new category';
$mech->get_ok($report_url);
$mech->content_contains('Report triaged from Potholes to Traffic lights');
$mech->log_out_ok;
$mech->get_ok($report_url);
$mech->content_lacks('Report triaged from Potholes to Traffic lights');
};
};
done_testing();
|
