github_mirrors/ModSecurity
3
0
Fork 1
mirror of https://github.com/owasp-modsecurity/ModSecurity.git synced 2025-08-14 13:56:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Tweak some regression tests.

Browse Source
This commit is contained in:
brectanus 2008-06-05 16:44:18 +00:00
parent e1e200c005
commit 493e71a9ec
2 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
apache2/t/regression/misc/00-multipart-parser.t
View File

@ -124,7 +124,10 @@
},
{
type => "misc",
comment => "multipart parser (boundary contains \"BoUnDaRy\")",
comment => "multipart parser (boundary contains \"bOuNdArY\")",
note => q(
KHTML Boundary
),
conf => qq(
SecRuleEngine On
SecDebugLog $ENV{DEBUG_LOG}
@ -145,19 +148,19 @@
request => new HTTP::Request(
POST => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/test.txt",
[
"Content-Type" => "multipart/form-data; boundary=------------------------------------------------BoUnDaRy",
"Content-Type" => "multipart/form-data; boundary=--------0xKhTmLbOuNdArY",
],
normalize_raw_request_data(
q(
--------------------------------------------------BoUnDaRy
----------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="a"
1
--------------------------------------------------BoUnDaRy
----------0xKhTmLbOuNdArY
Content-Disposition: form-data; name="b"
2
--------------------------------------------------BoUnDaRy--
----------0xKhTmLbOuNdArY--
),
),
),

9
apache2/t/run-regression-tests.pl.in
View File

@ -351,6 +351,7 @@ sub do_raw_request {
# Join togeather the request
my $r = join("", @_);
dbg($r);
# Write to socket
print $sock "$r";
@ -374,7 +375,11 @@ sub do_request {
if (ref $r eq "HTTP::Request") {
# dbg("REQUEST: ", $r);
return $UA->request($r);
my $resp = $UA->request($r);
if ($opt{d}) {
dbg($resp->request()->as_string());
}
return $resp
}
else {
# dbg("REQUEST:\n", $r);
@ -456,7 +461,7 @@ sub dbg {
my $out = join "", map {
(ref $_ ne "" ? Dumper($_) : $_)
} @_;
$out =~ s/^/DBG: /m;
$out =~ s/^/DBG: /mg;
print STDOUT "$out\n";
}