test PATCH req

Author: mickeyn

t/common-req.t

@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-plan tests => 59;
+plan tests => 61;
 
 use HTTP::Request::Common;
 
@@ -40,6 +40,10 @@ $r = PUT "http://www.sn.no",
      { foo => "bar" };
 is($r->content, "foo=bar");
 
+$r = PATCH "http://www.sn.no",
+     { foo => "bar" };
+is($r->content, "foo=bar");
+
 #--- Test POST requests ---
 
 $r = POST "http://www.sn.no", [foo => 'bar;baz',
@@ -233,3 +237,9 @@ $r = HTTP::Request::Common::PUT 'http://www.example.com',
     'Content' => 'foobarbaz',
     'Content-Length' => 12;   # a slight lie
 is($r->header('Content-Length'), 9);
+
+$r = HTTP::Request::Common::PATCH 'http://www.example.com',
+    'Content-Type' => 'application/octet-steam',
+    'Content' => 'foobarbaz',
+    'Content-Length' => 12;   # a slight lie
+is($r->header('Content-Length'), 9);