Shut down the client before returning.

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

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/Ticket056.pm b/varnish-tools/regress/lib/Varnish/Test/Case/Ticket056.pm
index eb7ddc62835bb4526983d5e9b83c89c95be8a253..3edc5dd53899f23ef55140a4a324f4674d202d88 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Case/Ticket056.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case/Ticket056.pm
@@ -63,6 +63,8 @@ sub testVersionMatch($) {
                $response->protocol, $sv)
        if $response->protocol ne $sv;
 
+    $client->shutdown();
+
     return sprintf("Client: %s Server: %s", $cv, $sv);
 }
 

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/Ticket102.pm b/varnish-tools/regress/lib/Varnish/Test/Case/Ticket102.pm
index eec248b1a8d6da74833a8f60f448efcd662b83df..bda348464c92737e5291726d1766bb9dc40f81c3 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Case/Ticket102.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case/Ticket102.pm
@@ -63,6 +63,8 @@ sub testBodyInCachedPOST($) {
            if $response->content ne $body;
     }
 
+    $client->shutdown();
+
     return 'OK';
 }
 

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm b/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
index 1212f845e6ff11baf18ac34343860500664b916d..d820403dec5b3e374cc66435f720a00e633fe112 100644 (file)
--- a/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
@@ -57,6 +57,9 @@ sub testVary($) {
        die "Incorrect body\n"
            if $response->content() ne $languages{$lang};
     }
+
+    $client->shutdown();
+    return 'OK';
 }
 
 sub ev_server_request($$$$) {