t/50-cgi: todo test for upcoming multipart posts

[perl/plp/.git] / t / 50-cgi / 70-multipart.plp

diff --git a/t/50-cgi/70-multipart.plp b/t/50-cgi/70-multipart.plp
new file mode 100644 (file)
index 0000000..1fc42b5
--- /dev/null
+++ b/t/50-cgi/70-multipart.plp
@@ -0,0 +1,5 @@
+<:
+print scalar keys %post;
+
+require Data::Dumper;
+print Data::Dumper->new([\%post])->Indent(0)->Terse(1)->Dump;