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

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

diff --git a/t/50-cgi.t b/t/50-cgi.t
index 0f3eeaf4e5f8582fd53b6795bd1fe7459028995f..aaea9691113d9ffa599f16dc045ae627fac5c0ad 100644 (file)
--- a/t/50-cgi.t
+++ b/t/50-cgi.t
@@ -24,7 +24,7 @@ eval {
 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();
 
@@ -56,8 +56,8 @@ sub plp_is {
        ); # 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;
        }
@@ -176,12 +176,20 @@ SKIP: {
        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