Verify that list changes aren't copied back

diff --git a/src/tests/modules/perl/auth.unlang b/src/tests/modules/perl/auth.unlang
index 89bd6a6abc92b8f000bb5d6a5ce0bd4f820be6e6..661c394db477a8dfc5247aa7448735c1c3a679c7 100644 (file)
--- a/src/tests/modules/perl/auth.unlang
+++ b/src/tests/modules/perl/auth.unlang
@@ -28,6 +28,14 @@ if (!ok) {
 if !(&reply.Filter-Id == 'Hello') {
        test_fail
 }
+# Verify that the change to the request and control lists are
+# not copied back.
+if (&User-Name != 'bob') {
+       test_fail
+}
+if (&control.NAS-Identifier) {
+       test_fail
+}
 
 &reply -= &Vendor-Specific.Cisco.h323-credit-amount[*]
 &reply -= &Filter-Id[*]

diff --git a/src/tests/modules/perl/test.pl b/src/tests/modules/perl/test.pl
index a17913d0609d5f92fd73b762d533fa454b70087f..9ada2d3ec9514689e111aa27ad35ff215bea55eb 100644 (file)
--- a/src/tests/modules/perl/test.pl
+++ b/src/tests/modules/perl/test.pl
@@ -78,7 +78,9 @@ sub authenticate {
                        $RAD_REPLY{'Filter-Id'} = 'Everything'
                } else {
 #                      $RAD_REPLY{'Vendor-Specific.Cisco.h323-credit-amount'} = "100";
-                       $RAD_REPLY{'Filter-Id'} = 'Hello'
+                       $RAD_REPLY{'Filter-Id'} = 'Hello';
+                       $RAD_REQUEST{'User-Name'} = 'tim';
+                       $RAD_CONFIG{'NAS-Identifier'} = 'dummy';
                }
                return RLM_MODULE_OK;
        }