Add QA test for foreach.

FreeRADIUS · Jun 14, 2013 · e0d2342 · e0d2342
1 parent eee057b
commit e0d2342
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 2 deletions.
diff --git a/src/tests/Makefile b/src/tests/Makefile
@@ -18,8 +18,8 @@ export DYLD_LIBRARY_PATH
 
 RADDB_PATH := $(top_builddir)/raddb
 
-TESTS	= user_password chap mschapv1 digest-01/digest* test.example.com \
-	wimax
+TESTS	= user_password vpiter chap mschapv1 digest-01/digest* \
+	test.example.com wimax
 
 PORT	 = 12340
 #PORT	 = 1812

diff --git a/src/tests/config/test.conf b/src/tests/config/test.conf
@@ -35,6 +35,30 @@ authorize {
 		Test-Server-Port = "%{Packet-Dst-Port}"
 	}
 
+	if (Test-Name == "vpiter") {
+		update control {
+			Reply-Message += "one"
+                	Reply-Message += "two"
+		}
+		update request {
+			Reply-Message = "0"
+		}
+		foreach control:Reply-Message {
+			update reply {
+				Reply-Message += Foreach-Variable-0
+			}
+			update request {
+				Reply-Message := "%{Reply-Message}0"
+			}
+			if (Reply-Message == "0000") {
+				break
+			}
+		}
+		if (Reply-Message == "0000") {
+			reject
+		}
+	}
+
 	if (User-Name == "bob") {
 		#
 		#  Digest-* tests have a password of "zanzibar"