test to check cached multipart bodies and arrayification

diff --git a/t/param_parser.t b/t/param_parser.t
index 87a3999..7a35bac 100644 (file)
--- a/t/param_parser.t
+++ b/t/param_parser.t
@@ -36,4 +36,18 @@ is_deeply(
   'Unpack cached ok'
 );
 
+sub FakeBody::param { { baz => "quux", foo => [ "bar", "/" ] } }
+
+my $body_env = {
+  CONTENT_TYPE   => "multipart/form-data",
+  CONTENT_LENGTH => 1,
+  +Web::Dispatch::ParamParser::UNPACKED_BODY_OBJECT => [ bless {}, "FakeBody" ]
+};
+
+is_deeply(
+  Web::Dispatch::ParamParser::get_unpacked_body_from($body_env),
+  $unpacked,
+  'Body cached multipart ok'
+);
+
 1;