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 91f0a86e07d865cb3b80e8dc79076d4df16a5052..50be06db0ec5f9bf374a471b772135bd4f4d818b 100644 (file)
--- 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 fdb5562cb593c74d5a1e2328f591b0345a34ed3c..29f37f90b28fa6b11a55ce2a16997fc69fc28ede 100644 (file)
--- 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';