add flagged checkbox to user edit admin page

1 files changed, 20 insertions, 0 deletions

diff --git a/t/app/controller/admin.t b/t/app/controller/admin.t
index 08cb4fb0d..324d13890 100644
--- a/t/app/controller/admin.t
+++ b/t/app/controller/admin.t
@@ -994,6 +994,9 @@ $log_entries = FixMyStreet::App->model('DB::AdminLog')->search(
 
 is $log_entries->count, 0, 'no admin log entries';
 
+$user->flagged( 0 );
+$user->update;
+
 for my $test (
     {
         desc => 'edit user name',
@@ -1001,6 +1004,7 @@ for my $test (
             name => 'Test User',
             email => 'test@example.com',
             council => 2509,
+            flagged => undef,
         },
         changes => {
             name => 'Changed User',
@@ -1014,6 +1018,7 @@ for my $test (
             name => 'Changed User',
             email => 'test@example.com',
             council => 2509,
+            flagged => undef,
         },
         changes => {
             email => 'changed@example.com',
@@ -1027,6 +1032,7 @@ for my $test (
             name => 'Changed User',
             email => 'changed@example.com',
             council => 2509,
+            flagged => undef,
         },
         changes => {
             council => 2607,
@@ -1034,6 +1040,20 @@ for my $test (
         log_count => 3,
         log_entries => [qw/edit edit edit/],
     },
+    {
+        desc => 'edit user flagged',
+        fields => {
+            name => 'Changed User',
+            email => 'changed@example.com',
+            council => 2607,
+            flagged => undef,
+        },
+        changes => {
+            flagged => 'on',
+        },
+        log_count => 4,
+        log_entries => [qw/edit edit edit edit/],
+    },
 ) {
     subtest $test->{desc} => sub {
         $mech->get_ok( '/admin/user_edit/' . $user->id );