add .get_cluster()

src/vmod_cluster.c

@@ -360,6 +360,18 @@ vmod_cluster_set_real(VRT_CTX,
 	pl->real = b;
 }
 
+VCL_BACKEND
+vmod_cluster_get_cluster(VRT_CTX, struct vmod_cluster_cluster *vc)
+{
+	const struct vmod_cluster_cluster_param *pr;
+
+	CHECK_OBJ_NOTNULL(vc, VMOD_CLUSTER_CLUSTER_MAGIC);
+
+	pr = cluster_task_param_r(ctx, vc);
+
+	return (pr->cluster);
+}
+
 VCL_BACKEND
 vmod_cluster_get_real(VRT_CTX, struct vmod_cluster_cluster *vc)
 {

src/vmod_cluster.vcc

@@ -147,6 +147,10 @@ Change the real backend.
 
 See :ref:`meth_ctx` for limitations.
 
+$Method BACKEND .get_cluster()
+
+Return the `cluster` argument.
+
 $Method BACKEND .get_real()
 
 Return the currently configured real backend.

src/vtc/cfg.vtc

@@ -69,6 +69,7 @@ varnish v1 -vcl+backend {
     sub vcl_synth {
 	set resp.http.b1 = cl.backend(resolve=NOW);
 	set resp.http.b2 = cl.backend(resolve=NOW);
+	set resp.http.cl = cl.get_cluster();
     }
     sub vcl_backend_fetch {
 
@@ -112,6 +113,7 @@ varnish v1 -vcl+backend {
     }
     sub vcl_backend_response {
 	set beresp.http.backend = beresp.backend;
+	set beresp.http.cl = cl.get_cluster();
     }
 } -start
 
@@ -175,16 +177,19 @@ client c1 {
 	expect resp.status == 200
 	expect resp.http.b1 == s1
 	expect resp.http.b2 == s3
+	expect resp.http.cl == rr
 
 	txreq
 	rxresp
 	expect resp.status == 200
 	expect resp.http.backend == "s1"
+	expect resp.http.cl == rr
 
 	txreq
 	rxresp
 	expect resp.status == 200
 	expect resp.http.backend == "s3"
+	expect resp.http.cl == rr
 } -run
 
-logexpect l1 -wait
\ No newline at end of file
+logexpect l1 -wait