Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	16 Oct 2003 10:58:31 -0000	1.34
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	31 Oct 2003 09:38:45 -0000	1.35
@@ -342,6 +342,9 @@
             global ns_sendmail_to
             set ns_sendmail_to {}
 
+            parameter::set_value -parameter EmailAccountOwnerOnPasswordChangeP  -package_id [ad_acs_kernel_id] -value 1
+            aa_true "Send email" [parameter::get -parameter EmailAccountOwnerOnPasswordChangeP -package_id [ad_acs_kernel_id] -default 1]
+
             # password_status "ok"
             set old_password "changeme"
             set new_password "changedyou"
@@ -362,6 +365,8 @@
             aa_equals "check that the new password is actually set correctly" \
                 $password_correct_p \
                 "1"
+
+            ad_parameter_cache -delete [ad_acs_kernel_id] EmailAccountOwnerOnPasswordChangeP
         }
 }
 
@@ -729,6 +734,8 @@
             
             # Check that we do not get an email
             aa_equals "Email NOT sent to user" $ns_sendmail_to {}
+
+            ad_parameter_cache -delete [ad_acs_kernel_id] EmailAccountOwnerOnPasswordChangeP
         }
 }