git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 $@;
eval { require PerlIO::scalar };
plan skip_all => "PerlIO required (perl 5.8) to test PLP" if $@;
-plan tests => 2
4
;
+plan tests => 2
5
;
require_ok('PLP::Backend::CGI') or BAIL_OUT();
require_ok('PLP::Backend::CGI') or BAIL_OUT();
@@
-56,8
+56,8
@@
sub plp_is {
); # Apache/2.2.4 CGI environment
if (defined $in) {
); # 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;
}
close STDIN;
open STDIN, '<', $in;
}
@@
-176,12
+176,20
@@
SKIP: {
plp_ok($_, INCWARN => $INCWARN) for @inctests;
}
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
#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
# 8*: lighttpd environment
plp_ok($_, -env => {
# lighttpd/1.4.7 CGI environment