From: Alan T. DeKok <aland@freeradius.org>
Date: Sun, 16 Jul 2023 01:24:28 +0000 (-0400)
Subject: remove update
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=868d7c50bc85d8ef20db111a120ac5f55698b2a2;p=thirdparty%2Ffreeradius-server.git

remove update

and re-enable additional check, as the APIs have been updated
as per the comment which disabled the test
---

diff --git a/src/tests/modules/perl/auth.unlang b/src/tests/modules/perl/auth.unlang
index 69f742549b7..892e39c07a8 100644
--- a/src/tests/modules/perl/auth.unlang
+++ b/src/tests/modules/perl/auth.unlang
@@ -21,18 +21,10 @@ if (!ok) {
     test_fail
 }
 
-#
-#  @todo - the old pair_make() called by rlm_perl did various magic to
-#  fix up VSAs, etc.  We really need to update rlm_perl to either call
-#  a new API which creates the whole hierarchy, or have it call the
-#  tmpl API.
-#
-#if (&reply.Vendor-Specific.Cisco.h323-credit-amount != 100) {
-#    test_fail
-#}
-
-update reply {
-    &Vendor-Specific.Cisco.h323-credit-amount !* ANY
+if !(&reply.Vendor-Specific.Cisco.h323-credit-amount == 100) {
+    test_fail
 }
 
+&reply -= &Vendor-Specific.Cisco.h323-credit-amount[*]
+
 test_pass