Add a test-case for VCL purging

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

diff --git a/varnish-cache/bin/varnishtest/tests/c00017.vtc b/varnish-cache/bin/varnishtest/tests/c00017.vtc
new file mode 100644 (file)
index 0000000..03b03a4
--- /dev/null
+++ b/varnish-cache/bin/varnishtest/tests/c00017.vtc
@@ -0,0 +1,30 @@
+# $Id: c00016.vtc 3012 2008-07-24 12:22:35Z des $
+
+test "Test vcl purging"
+
+server s1 {
+       rxreq
+       txresp -body "foo"
+
+       rxreq
+       txresp -body "foo"
+} -start
+
+varnish v1 -vcl+backend { 
+
+       sub vcl_fetch {
+               purge_url("^/$");
+       }
+
+} -start
+
+client c1 {
+       txreq 
+       rxresp
+       expect resp.http.X-Varnish == "1001"
+
+       txreq
+       rxresp
+       expect resp.http.X-Varnish == "1002"
+
+} -start