From: des <des@d4fa192b-c00b-0410-8231-f00ffab90ce4>
Date: Fri, 15 Jun 2007 09:03:34 +0000 (+0000)
Subject: Catch up with framework changes.
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=44012896ae888af630184470b669eb3e11e47977;p=varnish

Catch up with framework changes.


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

diff --git a/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm b/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
index 25e0508d..1212f845 100644
--- a/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
+++ b/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
@@ -48,13 +48,14 @@ sub testVary($) {
 	$request->header('Accept-Language', $lang);
 	$request->protocol('HTTP/1.1');
 	$client->send_request($request, 2);
-	my $response = $self->run_loop;
-	die 'No (complete) response received'
+	my ($event, $response) =
+	    $self->run_loop('ev_client_response', 'ev_client_timeout');
+	die "No (complete) response received\n"
 	    unless defined($response);
-	die 'Empty body'
-	    if $response->content eq '';
-	die 'Incorrect body'
-	    if $response->content ne $languages{$lang};
+	die "Empty body\n"
+	    if $response->content() eq '';
+	die "Incorrect body\n"
+	    if $response->content() ne $languages{$lang};
     }
 }