From: Nick Porter <nick@portercomputing.co.uk>
Date: Thu, 19 Sep 2024 14:27:56 +0000 (+0100)
Subject: Check multiple instances of an attribute appear as an array
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=db4ef544a8943542ff6bc30e66c6e9e215980b84;p=thirdparty%2Ffreeradius-server.git

Check multiple instances of an attribute appear as an array
---

diff --git a/src/tests/modules/perl/auth.attrs b/src/tests/modules/perl/auth.attrs
index 91f0a86e07d..50be06db0ec 100644
--- a/src/tests/modules/perl/auth.attrs
+++ b/src/tests/modules/perl/auth.attrs
@@ -4,6 +4,8 @@
 Packet-Type = Access-Request
 User-Name = "baduser"
 User-Password = "hello"
+Vendor-Specific.Cisco.AVPair = "cisco=madness"
+Vendor-Specific.Cisco.AVPair = "is=crazy"
 
 #
 #  Expected answer
diff --git a/src/tests/modules/perl/test.pl b/src/tests/modules/perl/test.pl
index fdb5562cb59..29f37f90b28 100644
--- a/src/tests/modules/perl/test.pl
+++ b/src/tests/modules/perl/test.pl
@@ -77,6 +77,10 @@ sub authenticate {
 #			$RAD_REPLY{'Vendor-Specific.Cisco.h323-credit-amount'} = "1000000";
 			$RAD_REPLY{'Filter-Id'} = 'Everything'
 		} else {
+			# Check we received two values for Cisco.AVPair
+			if ($RAD_REQUEST{'Vendor-Specific'}{'Cisco'}{'AVPair'}[1] ne 'is=crazy') {
+				return RLM_MODULE_DISALLOW;
+			}
 #			$RAD_REPLY{'Vendor-Specific.Cisco.h323-credit-amount'} = "100";
 			$RAD_REPLY{'Filter-Id'} = 'Hello';
 			$RAD_REQUEST{'User-Name'} = 'tim';