[Oxfordshire] Old report archiving script

This script can be used for the bulk closure of old reports that haven't been
updated in a long time.

Reports that haven't been updated in a *really* long time (since 2014, by
default) are simply closed, and those that haven't been updated since 2015 (by
default) are closed and an email explaining the closure is sent to the report
creator.

This script can be used for other cobrands, but they'll need an
archive.{txt,html} template in order for the emails to be sent.

For mysociety/fixmystreetforcouncils#51

1 files changed, 163 insertions, 0 deletions

diff --git a/t/app/script/archive_old_enquiries.t b/t/app/script/archive_old_enquiries.t
new file mode 100644
index 000000000..e87d6a0f8
--- /dev/null
+++ b/t/app/script/archive_old_enquiries.t
@@ -0,0 +1,163 @@
+use strict;
+use warnings;
+use Test::More;
+use FixMyStreet::TestMech;
+use FixMyStreet::Script::ArchiveOldEnquiries;
+
+mySociety::Locale::gettext_domain( 'FixMyStreet' );
+
+my $mech = FixMyStreet::TestMech->new();
+
+$mech->clear_emails_ok;
+
+my $opts = {
+    commit => 1,
+};
+
+my $user = $mech->create_user_ok('test@example.com', name => 'Test User');
+my $oxfordshire = $mech->create_body_ok(2237, 'Oxfordshire County Council', id => 2237);
+my $west_oxon = $mech->create_body_ok(2420, 'West Oxfordshire District Council', id => 2420);
+
+subtest 'sets reports to the correct status' => sub {
+    FixMyStreet::override_config {
+          ALLOWED_COBRANDS => [ 'oxfordshire' ],
+    }, sub {
+        my ($report) = $mech->create_problems_for_body(1, $oxfordshire->id, 'Test', {
+            areas      => ',2237,',
+            user_id    => $user->id,
+        });
+
+        my ($report1) = $mech->create_problems_for_body(1, $oxfordshire->id . "," .$west_oxon->id, 'Test', {
+            areas      => ',2237,',
+            lastupdate => '2015-12-01 07:00:00',
+            user       => $user,
+        });
+
+        my ($report2) = $mech->create_problems_for_body(1, $oxfordshire->id, 'Test 2', {
+            areas      => ',2237,',
+            lastupdate => '2015-12-01 08:00:00',
+            user       => $user,
+            state      => 'investigating',
+        });
+
+        my ($report3, $report4) = $mech->create_problems_for_body(2, $oxfordshire->id, 'Test', {
+            areas      => ',2237,',
+            lastupdate => '2014-12-01 07:00:00',
+            user       => $user,
+        });
+
+        my ($report5) = $mech->create_problems_for_body(1, $oxfordshire->id . "," .$west_oxon->id, 'Test', {
+            areas      => ',2237,',
+            lastupdate => '2014-12-01 07:00:00',
+            user       => $user,
+            state      => 'in progress'
+        });
+
+        FixMyStreet::Script::ArchiveOldEnquiries::archive($opts);
+
+        $report->discard_changes;
+        $report1->discard_changes;
+        $report2->discard_changes;
+        $report3->discard_changes;
+        $report4->discard_changes;
+        $report5->discard_changes;
+
+        is $report1->state, 'closed', 'Report 1 has been set to closed';
+        is $report2->state, 'closed', 'Report 2 has been set to closed';
+        is $report3->state, 'closed', 'Report 3 has been set to closed';
+        is $report4->state, 'closed', 'Report 4 has been set to closed';
+        is $report5->state, 'closed', 'Report 5 has been set to closed';
+
+        is $report->state, 'confirmed', 'Recent report has been left alone';
+    };
+};
+
+subtest 'sends emails to a user' => sub {
+    FixMyStreet::override_config {
+      ALLOWED_COBRANDS => [ 'oxfordshire' ],
+    }, sub {
+        $mech->clear_emails_ok;
+        $mech->email_count_is(0);
+
+        $mech->create_problems_for_body(1, $oxfordshire->id, 'Shiny new report', {
+            areas      => ',2237,',
+            user       => $user,
+        });
+
+        $mech->create_problems_for_body(1, $oxfordshire->id, 'Problem the first', {
+            areas      => ',2237,',
+            lastupdate => '2015-12-01 07:00:00',
+            user       => $user,
+        });
+
+        $mech->create_problems_for_body(1, $oxfordshire->id, 'Problem the second', {
+            areas      => ',2237,',
+            lastupdate => '2015-12-01 07:00:00',
+            user       => $user,
+        });
+
+        $mech->create_problems_for_body(1, $oxfordshire->id, 'Problem the third', {
+            areas      => ',2237,',
+            lastupdate => '2015-12-01 07:00:00',
+            user       => $user,
+        });
+
+        $mech->create_problems_for_body(1, $oxfordshire->id, 'Really old report', {
+            areas      => ',2237,',
+            lastupdate => '2014-12-01 07:00:00',
+            user       => $user,
+        });
+
+        FixMyStreet::Script::ArchiveOldEnquiries::archive($opts);
+
+        my @emails = $mech->get_email;
+        $mech->email_count_is(1);
+
+        my $email = $emails[0];
+        my $body = $mech->get_text_body_from_email($email);
+
+        like $body, qr/Problem the first/, 'Email body matches report name';
+        like $body, qr/Problem the second/, 'Email body matches report name';
+        like $body, qr/Problem the third/, 'Email body matches report name';
+
+        unlike  $body, qr/Shiny new report/, 'Email body does not have new report';
+        unlike  $body, qr/Really old report/, 'Email body does not have old report';
+    };
+};
+
+subtest 'user with old reports does not get email' => sub {
+  $mech->clear_emails_ok;
+  $mech->email_count_is(0);
+
+  $mech->create_problems_for_body(4, $oxfordshire->id, 'Really old report', {
+      areas      => ',2237,',
+      lastupdate => '2014-12-01 07:00:00',
+      user       => $user,
+  });
+
+  FixMyStreet::Script::ArchiveOldEnquiries::archive($opts);
+
+  my @emails = $mech->get_email;
+  $mech->email_count_is(0);
+};
+
+subtest 'user with new reports does not get email' => sub {
+  $mech->clear_emails_ok;
+  $mech->email_count_is(0);
+
+  $mech->create_problems_for_body(4, $oxfordshire->id, 'Shiny new report', {
+      areas      => ',2237,',
+      user       => $user,
+  });
+
+  FixMyStreet::Script::ArchiveOldEnquiries::archive($opts);
+
+  $mech->email_count_is(0);
+};
+
+done_testing();
+
+END {
+    $mech->delete_user($user);
+    $mech->delete_body($oxfordshire);
+}