r1520 - trunk/varnish-tools/regress/lib/Varnish/Test/Case

des at projects.linpro.no des at projects.linpro.no
Fri Jun 15 11:03:35 CEST 2007


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};
     }
 }
 




More information about the varnish-commit mailing list