New function "check"

* src/vmod_tbf.c (vmod_rate): Use %lu instead of %z
(vmod_check): New function.
* src/vmod_tbf.vcc (check): New function.
* tests/Makefile.am: Add new files.
* tests/test02.vtc: New file.
* tests/test03.vtc: New file.
* tests/time01.vtc: New file.

1 files changed, 71 insertions, 0 deletions

diff --git a/tests/test03.vtc b/tests/test03.vtc
new file mode 100644
index 0000000..5ffba9a
--- /dev/null
+++ b/tests/test03.vtc
@@ -0,0 +1,71 @@
+varnishtest "Test tbf flow"
+
+server s1 {
+       rxreq
+       txresp
+} -start
+
+varnish v1 -vcl+backend {
+	import tbf from "${vmod_topbuild}/src/.libs/libvmod_tbf.so";
+	sub vcl_init {
+		tbf.open("${vmod_topbuild}/tests/tbf.db", "trunc");
+	}
+	sub vcl_fini {
+		tbf.close();
+	}
+	sub vcl_deliver {
+		set resp.http.result = tbf.check("url:"+req.url, "4req/s");
+	}
+} -start
+
+client c1 {
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == false
+
+	delay 1.0
+	
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == true
+
+	txreq -url "/"
+	rxresp
+	expect resp.http.result == false
+}
+
+client c1 -run
+
+