Dashboard update CSV export.

2 files changed, 50 insertions, 1 deletions

diff --git a/t/app/controller/dashboard.t b/t/app/controller/dashboard.t
index 598898e9f..3a031bec3 100644
--- a/t/app/controller/dashboard.t
+++ b/t/app/controller/dashboard.t
@@ -43,9 +43,13 @@ foreach my $problem (@fixed_problems) {
     $mech->create_comment_for_problem($problem, $counciluser, 'Title', 'text', 0, 'confirmed', 'fixed');
 }
 
+my $first_problem_id;
+my $first_update_id;
 foreach my $problem (@closed_problems) {
     $problem->update({ state => 'closed' });
-    $mech->create_comment_for_problem($problem, $counciluser, 'Title', 'text', 0, 'confirmed', 'closed', { confirmed => \'current_timestamp' });
+    my ($update) = $mech->create_comment_for_problem($problem, $counciluser, 'Title', 'text', 0, 'confirmed', 'closed', { confirmed => \'current_timestamp' });
+    $first_problem_id = $problem->id unless $first_problem_id;
+    $first_update_id = $update->id unless $first_update_id;
 }
 
 my $categories = scraper {
@@ -186,6 +190,32 @@ FixMyStreet::override_config {
         is $rows[5]->[16], '179716', 'Correct Northing conversion';
     };
 
+    subtest 'export updates as csv' => sub {
+        $mech->get_ok('/dashboard?updates=1&export=1');
+        open my $data_handle, '<', \$mech->content;
+        my $csv = Text::CSV->new( { binary => 1 } );
+        my @rows;
+        while ( my $row = $csv->getline( $data_handle ) ) {
+            push @rows, $row;
+        }
+        is scalar @rows, 15, '1 (header) + 14 (updates) = 15 lines';
+        is scalar @{$rows[0]}, 8, '8 columns present';
+
+        is_deeply $rows[0],
+            [
+                'Report ID', 'Update ID', 'Date', 'Status', 'Problem state',
+                'Text', 'User Name', 'Reported As',
+            ],
+            'Column headers look correct';
+
+        is $rows[1]->[0], $first_problem_id, 'Correct report ID';
+        is $rows[1]->[1], $first_update_id, 'Correct update ID';
+        is $rows[1]->[3], 'confirmed', 'Correct state';
+        is $rows[1]->[4], 'closed', 'Correct problem state';
+        is $rows[1]->[5], 'text', 'Correct text';
+        is $rows[1]->[6], 'Title', 'Correct name';
+    };
+
     subtest 'export as csv using token' => sub {
         $mech->log_out_ok;
 
diff --git a/t/cobrand/bathnes.t b/t/cobrand/bathnes.t
index 0a16fc96e..59e0d5246 100644
--- a/t/cobrand/bathnes.t
+++ b/t/cobrand/bathnes.t
@@ -191,6 +191,25 @@ subtest 'extra CSV columns are present if permission granted' => sub {
     is $rows[4]->[21], '', 'User phone number is correct';
     is $rows[4]->[22], '', 'Staff User is empty if not made on behalf of another user';
     is $rows[4]->[23], '', 'Attribute Data is correct';
+
+    $mech->get_ok('/dashboard?export=1&updates=1');
+
+    open $data_handle, '<', \$mech->content;
+    $csv = Text::CSV->new( { binary => 1 } );
+    @rows = ();
+    while ( my $row = $csv->getline( $data_handle ) ) {
+        push @rows, $row;
+    }
+
+    is scalar @rows, 1, '1 (header) + 0 (updates)';
+    is scalar @{$rows[0]}, 10, '10 columns present';
+    is_deeply $rows[0],
+        [
+            'Report ID', 'Update ID', 'Date', 'Status', 'Problem state',
+            'Text', 'User Name', 'Reported As', 'Staff User',
+            'User Email',
+        ],
+        'Column headers look correct';
 };