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 25e0508df4a0d48968347cb4845d79ddb9358f4b..1212f845e6ff11baf18ac34343860500664b916d 100644 (file)
--- 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};
     }
 }