X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fwrap-cgi.t;fp=t%2Fwrap-cgi.t;h=098ff5eaebf2400b338733bc3e55e61cda784f78;hb=16db0bfc2b9fb1298fa35bd8e292e23b33e5893d;hp=7c29988256466041002d5fc079bee8e7f543f91c;hpb=d5bb451f3dca637593889125f913915dbc88d5a7;p=catagits%2FCatalyst-Controller-WrapCGI.git

diff --git a/t/wrap-cgi.t b/t/wrap-cgi.t
index 7c29988..098ff5e 100644
--- a/t/wrap-cgi.t
+++ b/t/wrap-cgi.t
@@ -27,14 +27,19 @@ is($response->content, 'foo:bar bar:baz', 'POST to CGI (form-data)');
 
 $response = request POST '/cgi-bin/test.cgi',
   Content => [
-    foo => 1, bar => 2, baz => [ undef, 'baz', Content => 3 ],
+    foo => 1,
+    bar => 2,
+    baz => [
+        undef,
+        'baz',
+        'Some-Header' => 'blah',
+        'Content-Type' => 'text/plain',
+        Content => 3
+    ],
   ],
   'Content-Type' => 'form-data';
 
-{
-  local $TODO = 'WrapCGI does not yet construct multipart/form-data requests';
-  is($response->content, 'foo:1 bar:2 baz:3', 'POST with file upload');
-}
+is($response->content, 'foo:1 bar:2 baz:3', 'POST with file upload');
 
 $response = request '/cgi-bin/test_pathinfo.cgi/path/%2Finfo';
 is($response->content, '/path/%2Finfo', 'PATH_INFO is correct');