add first pass of update comments method and tests

1 files changed, 75 insertions, 4 deletions

diff --git a/t/open311/getservicerequestupdates.t b/t/open311/getservicerequestupdates.t
index 7bccc9943..1d0c19c8e 100644
--- a/t/open311/getservicerequestupdates.t
+++ b/t/open311/getservicerequestupdates.t
@@ -9,8 +9,16 @@ use lib "$FindBin::Bin/../perllib";
 use lib "$FindBin::Bin/../commonlib/perllib";
 
 use_ok( 'Open311' );
+
+use_ok( 'Open311::GetServiceRequestUpdates' );
 use DateTime;
+use FixMyStreet::App;
 
+my $user = FixMyStreet::App->model('DB::User')->find_or_create(
+    {
+        email => 'system_user@example.com'
+    }
+);
 
 my $requests_xml = qq{<?xml version="1.0" encoding="utf-8"?>
 <service_requests_updates>
@@ -31,25 +39,25 @@ my $dt = DateTime->now;
 # basic xml -> perl object tests
 for my $test (
     {
-        desc => 'element missing',
+        desc => 'basic parsing - element missing',
         updated_datetime => '',
         res => { update_id => 638344, service_request_id => 1, service_request_id_ext => 1, 
                 status => 'open', description => 'This is a note' },
     },
     {
-        desc => 'empty element',
+        desc => 'basic parsing - empty element',
         updated_datetime => '<updated_datetime />',
         res =>  { update_id => 638344, service_request_id => 1, service_request_id_ext => 1, 
                 status => 'open', description => 'This is a note', updated_datetime => {} } ,
     },
     {
-        desc => 'element with no content',
+        desc => 'basic parsing - element with no content',
         updated_datetime => '<updated_datetime></updated_datetime>',
         res =>  { update_id => 638344, service_request_id => 1, service_request_id_ext => 1, 
                 status => 'open', description => 'This is a note', updated_datetime => {} } ,
     },
     {
-        desc => 'element with content',
+        desc => 'basic parsing - element with content',
         updated_datetime => sprintf( '<updated_datetime>%s</updated_datetime>', $dt ),
         res =>  { update_id => 638344, service_request_id => 1, service_request_id_ext => 1, 
                 status => 'open', description => 'This is a note', updated_datetime => $dt } ,
@@ -66,3 +74,66 @@ for my $test (
 
     };
 }
+
+my $problem_rs = FixMyStreet::App->model('DB::Problem');
+my $problem = $problem_rs->new(
+    {
+        postcode     => 'EH99 1SP',
+        latitude     => 1,
+        longitude    => 1,
+        areas        => 1,
+        title        => '',
+        detail       => '',
+        used_map     => 1,
+        user_id      => 1,
+        name         => '',
+        state        => 'confirmed',
+        service      => '',
+        cobrand      => 'default',
+        cobrand_data => '',
+        user         => $user,
+        created      => DateTime->now()->subtract( days => 1 ),
+        lastupdate   => DateTime->now()->subtract( days => 1 ),
+        anonymous    => 1,
+        external_id  => time(),
+    }
+);
+
+$problem->insert;
+
+for my $test (
+    {
+        desc => 'element with content',
+        updated_datetime => sprintf( '<updated_datetime>%s</updated_datetime>', $dt ),
+        res =>  { update_id => 638344, service_request_id => $problem->external_id, service_request_id_ext => 1, 
+                status => 'open', description => 'This is a note', updated_datetime => $dt } ,
+    },
+) {
+    subtest $test->{desc} => sub {
+        my $local_requests_xml = $requests_xml;
+        $local_requests_xml =~ s/UPDATED_DATETIME/$test->{updated_datetime}/;
+        $local_requests_xml =~ s#<service_request_id>\d+</service_request_id>#<service_request_id>@{[$problem->external_id]}</service_request_id>#;
+        $local_requests_xml =~ s#<service_request_id_ext>\d+</service_request_id_ext>#<service_request_id_ext>@{[$problem->id]}</service_request_id_ext>#;
+
+        my $o = Open311->new( jurisdiction => 'mysociety', endpoint => 'http://example.com', test_mode => 1, test_get_returns => { 'update.xml' => $local_requests_xml } );
+
+        $problem->comments->delete;
+
+        my $update = Open311::GetServiceRequestUpdates->new( system_user => $user );
+        $update->update_comments( $o );
+
+        is $problem->comments->count, 1, 'comment count';
+
+        my $c = FixMyStreet::App->model('DB::Comment')->search( { external_id => $test->{res}->{update_id} } )->first;
+        ok $c, 'comment exists';
+        is $c->text, $test->{res}->{description}, 'text correct';
+    };
+}
+
+$problem->comments->delete();
+$problem->delete;
+$user->comments->delete;
+$user->problems->delete;
+$user->delete;
+
+done_testing();