Test JSON response body parsing

json.vtc

varnishtest "Test JSON response body parsing"

server s1 {
	rxreq
	txresp -body {
		{
			"key":"value",
			"key2":23
		}
	}
} -start

varnish v1 -vcl+backend {
	import edgestash;
	import json;
	import std;

	sub vcl_backend_response {
		edgestash.index_json();
	}

	sub vcl_deliver {
		if (edgestash.is_json()) {
			json.parse_resp_index();

			set resp.http.X-json = json.length();
			set resp.http.X-key = json.get("key", "");
			set resp.http.X-key2 = json.get("key2", "");

			std.log("JSON: " + json.get(".", ""));
		}
	}
} -start

client c1 {
	txreq
	rxresp
	expect resp.status == 200
	expect resp.http.X-json == "2"
	expect resp.http.X-key == "value"
	expect resp.http.X-key2 == "23"
} -run