When testing pipelined POST requests, send enough data to actually exercise

request copying loop.

git-svn-id: svn+ssh://projects.linpro.no/svn/varnish/trunk@2129 d4fa192b-c00b-0410-8231-f00ffab90ce4

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/Pipeline.pm b/varnish-tools/regress/lib/Varnish/Test/Case/Pipeline.pm
index b407c6a999915619460b53d81f24ccc1273cdca0..99235556126c0393de65f437070a53fcaa6b4fb5 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Case/Pipeline.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case/Pipeline.pm
@@ -41,6 +41,8 @@ our %CONTENT = (
     'Williams' => "I have always depended upon the kindness of strangers.",
 );
 
+our $REPS = 4096;
+
 our $VCL = <<EOVCL;
 sub vcl_recv {
     if (req.request == "POST") {
@@ -71,7 +73,7 @@ sub testPipelinePost($) {
 
     my $client = $self->new_client;
     foreach my $author (sort keys %CONTENT) {
-       $self->post($client, "/$author", [], $CONTENT{$author});
+       $self->post($client, "/$author", [], $CONTENT{$author} x $REPS);
     }
     foreach my $author (sort keys %CONTENT) {
        $self->wait();
@@ -89,7 +91,7 @@ sub server($$$) {
     my ($author) = ($request->uri =~ m/(\w+)$/);
     if ($CONTENT{$author}) {
        if ($request->method eq 'POST') {
-           die unless $request->content =~ qr/\Q$CONTENT{$author}\E/;
+           die unless $request->content eq $CONTENT{$author} x $REPS;
        }
        $response->content($CONTENT{$author});
     } else {