Add test for removing values

FreeRADIUS · Mar 22, 2014 · 6209585 · 6209585
1 parent 3dbb25e
commit 6209585
Showing 1 changed file with 50 additions and 0 deletions.
diff --git a/src/tests/keywords/update-remove-value b/src/tests/keywords/update-remove-value
@@ -0,0 +1,50 @@
+#
+# PRE: update
+#
+#  Remove all attributes in a list
+#
+update {
+	control:Cleartext-Password := 'hello'
+	reply:Filter-Id := 'filter'
+}
+
+update {
+	request:Tmp-String-0 := 'foobarbaz'
+	request:Tmp-Integer-0 := 123456789
+	request:Tmp-IP-Address-0 := 192.0.2.1
+	request:Tmp-IP-Address-0 += 192.0.2.2
+	control:Tmp-IP-Address-0 := 192.0.2.1
+	control:Tmp-IP-Address-0 += 192.0.2.3
+}
+
+if (("%{Tmp-IP-Address-0[0]}" != 192.0.2.1) || ("%{Tmp-IP-Address-0[1]}" != 192.0.2.2)) {
+	update {
+		reply:Filter-Id := 'fail'
+	}
+}
+
+# Remove all attributes in the control list
+update {
+	request:Tmp-IP-Address-0 -= 192.0.2.1
+}
+
+# Non Tmp-IP-Address-0 address attributes should still be in the request list
+if ((Tmp-String-0 != 'foobarbaz') || (Tmp-Integer-0 != 123456789)) {
+	update reply {
+		reply:Filter-Id := 'fail'
+	}
+}
+
+# Only the 2nd Tmp-IP-Address attribute should still be in the list
+if (("%{Tmp-IP-Address-0[0]}" != '192.0.2.2') || ("%{Tmp-IP-Address-0[1]}" != '')) {
+	update {
+		reply:Filter-Id := 'fail'
+	}
+}
+
+# But there should still be some in the control list
+if (("%{control:Tmp-IP-Address-0[0]}" != 192.0.2.1) || ("%{control:Tmp-IP-Address-0[1]}" != 192.0.2.3)) {
+	update {
+		reply:Filter-Id := 'fail'
+	}
+}