diff options
author | Struan Donald <struan@exo.org.uk> | 2012-03-26 11:08:28 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2012-03-26 11:08:28 +0100 |
commit | 437e03329eba224258a37c9657fbbc5778e38aea (patch) | |
tree | 7fa4c1aff22be7acf1649f213b1e9f5368066760 | |
parent | 5bb867159b97d34e1ea3dd37d3a6ca5fbb4751fe (diff) |
sort out error message tests
-rw-r--r-- | perllib/Open311.pm | 2 | ||||
-rw-r--r-- | t/open311.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perllib/Open311.pm b/perllib/Open311.pm index 1dcdaaee3..50c7abb54 100644 --- a/perllib/Open311.pm +++ b/perllib/Open311.pm @@ -193,7 +193,7 @@ sub post_service_request_update { } } - warn sprintf( "Failed to submit comment %s over Open311, response\n: %s\n%s", $comment->id, $response, $self->debug_details ); + warn sprintf( "Failed to submit comment %s over Open311, response - %s\n%s", $comment->id, $response, $self->debug_details ); return 0; } } diff --git a/t/open311.t b/t/open311.t index 99a1346d1..2a9d513eb 100644 --- a/t/open311.t +++ b/t/open311.t @@ -156,7 +156,7 @@ subtest 'error reponse' => sub { my $results; warning_like { $results = make_update_req( $comment, '<?xml version="1.0" encoding="utf-8"?><errors><error><code>400</code><description>There was an error</description</error></errors>' ) - } qr/There was an error/, 'correct error message'; + } qr/Failed to submit comment \d+ over Open311.*There was an error/, 'correct error messages'; is $results->{ res }, 0, 'error in response is a failure'; }; |