Add test of association_time to redis_ippool tests

Author: ndptech

src/tests/modules/redis_ippool/module.conf

@@ -14,6 +14,7 @@ redis_ippool {
 
 	offer_time = 30
 	lease_time = 60
+	association_time = control.Session-Timeout
 
 	requested_address = Framed-IP-Address
 	allocated_address_attr = reply.Framed-IP-address

src/tests/modules/redis_ippool/release.unlang

@@ -81,4 +81,58 @@ if (updated) {
 	test_fail
 }
 
+#
+#  Set the attribute being referenced in association_time
+#
+control.Session-Timeout := 120
+
+#
+#  Now allocate and release the address to create the association.
+#
+redis_ippool {
+	invalid = 1
+}
+if (!(updated)) {
+	test_fail
+}
+
+Framed-IP-Address := reply.Framed-IP-Address
+
+redis_ippool.release {
+	invalid = 1
+}
+if (!(updated)) {
+	test_fail
+}
+
+#
+#  Verify the association with the device remains
+#
+if (%redis('EXISTS', "{%{control.IP-Pool.Name}}:device:%{Calling-Station-ID}") != '1') {
+	test_fail
+}
+
+#
+#  Add an additional address.  Without the device association this would be the next
+#  allocated address.
+#
+%exec('./build/bin/local/rlm_redis_ippool_tool', '-a', '192.168.0.2/32', '$ENV{REDIS_IPPOOL_TEST_SERVER}:30001', %{control.IP-Pool.Name}, '192.168.0.0')
+
+#
+#  Re-allocate
+#
+request -= Framed-IP-Address[*]
+reply -= Framed-IP-Address[*]
+
+redis_ippool {
+	invalid = 1
+}
+if (!(updated)) {
+	test_fail
+}
+
+if (reply.Framed-IP-Address != 192.168.0.1) {
+	test_fail
+}
+
 reply := {}