diff options
Diffstat (limited to 't/open311')
| -rw-r--r-- | t/open311/getservicerequestupdates.t | 79 |
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(); |