r4378 - trunk/varnish-cache/bin/varnishtest/tests

[phk at projects.linpro.no]

Author: phk
Date: 2009-11-27 21:22:23 +0100 (Fri, 27 Nov 2009)
New Revision: 4378

Added:
   trunk/varnish-cache/bin/varnishtest/tests/v00025.vtc
Log:
Add more coverage tests of cache_vrt.c



Added: trunk/varnish-cache/bin/varnishtest/tests/v00025.vtc
===================================================================
--- trunk/varnish-cache/bin/varnishtest/tests/v00025.vtc	                        (rev 0)
+++ trunk/varnish-cache/bin/varnishtest/tests/v00025.vtc	2009-11-27 20:22:23 UTC (rev 4378)
@@ -0,0 +1,63 @@
+# $Id$
+
+test "More VCL coverage"
+
+server s1 {
+	rxreq
+	txresp
+} -start
+
+varnish v1 -vcl+backend {
+
+sub vcl_deliver {
+	if (obj.lastuse > 3 s) {
+		set resp.http.lastuse = "then";
+	} else {
+		set resp.http.lastuse = "now";
+	}
+	set resp.http.server_port = server.port;
+}
+
+sub vcl_fetch {
+	if (req.esi) {
+		set beresp.http.esi = "yes";
+	}
+	set beresp.http.backend = req.backend;
+	if (beresp.ttl > 3 s) {
+		set beresp.http.ttl = "long";
+	} else {
+		set beresp.http.ttl = "short";
+	}
+}
+
+sub vcl_hit {
+	if (obj.grace < 3m) {
+		set obj.grace = 1m;
+	} else {
+		set obj.grace = 2m;
+	}
+	if (obj.ttl < 3m) {
+		set obj.ttl = 2m;
+	} else {
+		set obj.ttl = 3m;
+	}
+}
+
+sub vcl_miss {
+	if (bereq.between_bytes_timeout < 10s) {
+		set bereq.http.quick = "please";
+	}
+	if (bereq.connect_timeout < 10s) {
+		set bereq.http.hello = "please";
+	}
+	set bereq.connect_timeout = 10s;
+}
+
+} -start
+
+client c1 {
+	txreq
+	rxresp
+	txreq
+	rxresp
+} -run