From: Arran Cudbard-Bell <a.cudbardb@freeradius.org>
Date: Tue, 21 Nov 2017 17:54:22 +0000 (+0000)
Subject: Add tests for parallel rcodes
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fd971c592f6d5caa3f889c5cfe408d8d1e8dc55b;p=thirdparty%2Ffreeradius-server.git

Add tests for parallel rcodes
---

diff --git a/src/tests/keywords/parallel-rcode b/src/tests/keywords/parallel-rcode
new file mode 100644
index 00000000000..fa55f093405
--- /dev/null
+++ b/src/tests/keywords/parallel-rcode
@@ -0,0 +1,68 @@
+#
+#  PRE: parallel
+#
+
+#
+#  Ensure that a failing item causes the parallel section to return by default [1/2]
+#
+group {
+	parallel {
+		fail	# Runs
+		ok	# Should not run (would override fail - same priority)
+		ok
+	}
+
+	actions {
+		fail = 1
+	}
+}
+if (!fail) {
+	test_fail
+}
+
+#
+#  Ensure that a failing item causes the parallel section to return by default [2/2]
+#
+group {
+	parallel {
+		fail
+		update request {	# This should *NOT* be dispatched
+			Tmp-String-0 := 'foo'
+		}
+	}
+	actions {
+		fail = 1
+	}
+}
+if (!fail) {
+	test_fail
+}
+if (&request:Tmp-String-0) {
+	test_fail
+}
+
+#
+#  If the rcode for the failing item is no longer action return, all items should be
+#  executed.
+#
+group {
+	parallel {
+		fail {
+			fail = 10	# Higher priority than ok and no longer action return
+		}
+		update request {	# This should now be dispatched
+			Tmp-String-0 := 'foo'
+		}
+	}
+	actions {
+		fail = 1
+	}
+}
+if (!fail) {
+	test_fail
+}
+if (&request:Tmp-String-0 != 'foo') {
+	test_fail
+}
+
+success