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 69f742549b7638aef256a700769f89cb271c476f..892e39c07a8a99baff3893d8dd861056200fb8ab 100644 (file)
--- 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