[Zurich] log admin changes

To allow us to infer additional stats changes requirements such
as in mysociety/FixMyStreet-Commercial#459 better in future.

1 files changed, 10 insertions, 0 deletions

diff --git a/t/cobrand/zurich.t b/t/cobrand/zurich.t
index 3d25e3585..a03099aac 100644
--- a/t/cobrand/zurich.t
+++ b/t/cobrand/zurich.t
@@ -555,6 +555,16 @@ subtest "test stats" => sub {
     $mech->log_out_ok;
 };
 
+subtest "test admin_log" => sub {
+    diag $report->id;
+    my @entries = FixMyStreet::App->model('DB::AdminLog')->search({
+        object_type => 'problem',
+        object_id   => $report->id,
+    });
+    is scalar @entries, 4, 'State changes logged'; 
+    is $entries[-1]->action, 'state change to hidden', 'State change logged as expected';
+};
+
 cleanup();
 
 ok $mech->host("www.fixmystreet.com"), "change host back";