Mailing List Archive

Author: des
Date: 2007-06-15 11:03:34 +0200 (Fri, 15 Jun 2007)
New Revision: 1520

Modified:
trunk/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
Log:
Catch up with framework changes.


Modified: trunk/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm
===================================================================
--- trunk/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm 2007-06-14 17:07:46 UTC (rev 1519)
+++ trunk/varnish-tools/regress/lib/Varnish/Test/Case/Vary.pm 2007-06-15 09:03:34 UTC (rev 1520)
@@ -48,13 +48,14 @@
$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};
}
}