[IsleOfWight] add an admin interface to triage reports

On reports with a state of `for_triage` override the `_inspect.html`
template to display one which allows only allows the user to change the
category from one with a 'Triage' send_method to a non Triage
send_method.

When saved this records a comment with the original category and the
category it was triaged to. This is hidden from the site as it's only
used for audit purposes and sending over Open311.

This assumes that the triage categories have the same names as the
groups of the confirm categories. It uses this to select the first
confirm category in the group corresponding to the triage category.

This also makes the sidebar geolocation onclick handler check for the
presence of the button, as the triage inspect form does not have it.

1 files changed, 112 insertions, 0 deletions

diff --git a/t/app/controller/admin/triage.t b/t/app/controller/admin/triage.t
new file mode 100644
index 000000000..81eb28a5d
--- /dev/null
+++ b/t/app/controller/admin/triage.t
@@ -0,0 +1,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();