Fix an error string, add a crude test

2 files changed, 11 insertions, 3 deletions

diff --git a/lib/Net/HTTP/Spore/Meta/Method.pm b/lib/Net/HTTP/Spore/Meta/Method.pm
index f3d440f..9f95c48 100644
--- a/lib/Net/HTTP/Spore/Meta/Method.pm
+++ b/lib/Net/HTTP/Spore/Meta/Method.pm
@@ -147,7 +147,7 @@ sub wrap {
             && ( $method->method !~ /^(?:POST|PUT|PATCH)$/i ) )
         {
             die Net::HTTP::Spore::Response->new( 599, [],
-                { error => "payload requires a PUT or POST method" },
+                { error => "payload requires a PUT, PATCH or POST method" },
             );
         }
 
diff --git a/t/spore-method/payload.t b/t/spore-method/payload.t
index 483d9cc..369ec22 100644
--- a/t/spore-method/payload.t
+++ b/t/spore-method/payload.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 6;
 
 use Test::Exception;
 
@@ -15,6 +15,11 @@ my $api_with_payload = {
             path             => '/user',
             required_payload => 1,
         },
+        update_user => {
+            method           => 'PATCH',
+            path             => '/user',
+            required_payload => 1,
+        },
         list_user => {
             method => 'GET',
             path   => '/user',
@@ -30,4 +35,7 @@ dies_ok { $obj->create_user(); };
 like $@->body->{error}, qr/this method require a payload/;
 
 dies_ok { $obj->list_user( payload => {} ) };
-like $@->body->{error}, qr/payload requires a PUT or POST method/;
+like $@->body->{error}, qr/payload requires a PUT, PATCH or POST method/;
+
+dies_ok { $obj->update_user(); };
+like $@->body->{error}, qr/this method require a payload/;