eval { require PerlIO::scalar };
plan skip_all => "PerlIO required (perl 5.8) to test PLP" if $@;
-plan tests => 24;
+plan tests => 25;
require_ok('PLP::Backend::CGI') or BAIL_OUT();
); # Apache/2.2.4 CGI environment
if (defined $in) {
- $ENV{CONTENT_LENGTH} = length $in;
- $ENV{CONTENT_TYPE} = 'application/x-www-form-urlencoded';
+ $ENV{CONTENT_LENGTH} //= length $in;
+ $ENV{CONTENT_TYPE} //= 'application/x-www-form-urlencoded';
close STDIN;
open STDIN, '<', $in;
}
plp_ok($_, INCWARN => $INCWARN) for @inctests;
}
-# 4*-7*: apache environment (default)
-plp_ok($_) for glob '[4-7]*.html';
+# 4*-6*: apache environment (default)
+plp_ok($_) for glob '[4-6]*.html';
#TODO: %fields
#TODO: %cookie
+# 7*: multipart posts
+TODO: {
+ local $TODO = 'future feature';
+ plp_ok($_, -env => {
+ CONTENT_TYPE => 'multipart/form-data; boundary=knip',
+ }) for glob '7*.html';
+}
+
# 8*: lighttpd environment
plp_ok($_, -env => {
# lighttpd/1.4.7 CGI environment
--- /dev/null
+--knip\r
+Content-Disposition: form-data; name="foo"\r
+\r
+b a r\r
+--knip\r
+Content-Disposition: form-data; name="upload"; filename="82.results"\r
+Content-Type: text/plain\r
+\r
+ok\r
+--knip--\r