X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/86f96854f1ab983cfcfdb001e1bcaa89407f724e..552db5b79604f6c669eb0a63069b3a5501135e9e:/t/50-cgi.t

diff --git a/t/50-cgi.t b/t/50-cgi.t
index 0f3eeaf..aaea969 100644
--- 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