Add json.encode regression test for DHCPv4 in RADIUS

diff --git a/src/tests/modules/json/regression04.unlang b/src/tests/modules/json/regression04.unlang
new file mode 100644 (file)
index 0000000..f8dfd4d
--- /dev/null
+++ b/src/tests/modules/json/regression04.unlang
@@ -0,0 +1,18 @@
+Vendor-Specific.Nokia-SR = {
+       ToServer-Dhcp-Options = {
+               Message-Type = ::Discover
+               Parameter-Request-List = ::Subnet-Mask
+               Parameter-Request-List = ::Router-Address
+               Vendor-Class-Identifier = 0x756468637020312e33302e31
+               Hostname = "modem"
+               Relay-Agent-Information = {
+                       Remote-Id = 0x32323935353534343630
+               }
+       }
+}
+
+if (!(%json.encode('&Vendor-Specific') == "{\"Vendor-Specific\":{\"type\":\"vsa\",\"value\":{\"Nokia-SR\":{\"type\":\"vendor\",\"value\":{\"ToServer-Dhcp-Options\":{\"type\":\"group\",\"value\":{\"Message-Type\":{\"type\":\"uint8\",\"value\":\"Discover\"},\"Parameter-Request-List\":{\"type\":\"attribute\",\"value\":[\"::Subnet-Mask\",\"::Router-Address\"]},\"Vendor-Class-Identifier\":{\"type\":\"octets\",\"value\":\"udhcp 1.30.1\"},\"Hostname\":{\"type\":\"string\",\"value\":\"modem\"},\"Relay-Agent-Information\":{\"type\":\"tlv\",\"value\":{\"Remote-Id\":{\"type\":\"octets\",\"value\":\"2295554460\"}}}}}}}}}}")) {
+       test_fail
+}
+
+test_pass