Index: openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/security-procs.tcl,v
diff -u -N -r1.1.2.13 -r1.1.2.14
--- openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl	27 Feb 2023 17:51:34 -0000	1.1.2.13
+++ openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl	14 Apr 2023 15:21:06 -0000	1.1.2.14
@@ -7,6 +7,35 @@
 aa_register_case \
     -cats { api } \
     -procs {
+        ad_change_password
+        ad_check_password
+    } \
+    ad_change_check_password {
+        Test checking and changing the password.
+    } {
+        set user [acs::test::user::create]
+        set user_id  [dict get $user user_id]
+        set password [dict get $user password]
+
+        try {
+
+            aa_true "Old password is correct" [ad_check_password $user_id $password]
+
+            aa_log "Change password"
+            ad_change_password \
+                $user_id \
+                ABCD
+
+            aa_true "New password is correct" [ad_check_password $user_id ABCD]
+
+        } finally {
+            acs::test::user::delete -user_id $user_id
+        }
+    }
+
+aa_register_case \
+    -cats { api } \
+    -procs {
         ad_get_login_url
         ad_get_logout_url
         ad_return_url