'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;