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.16 -r1.17
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	4 Sep 2003 10:17:34 -0000	1.16
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	4 Sep 2003 11:15:47 -0000	1.17
@@ -212,16 +212,17 @@
 } {
     set user_id [ad_conn user_id]
 
-    auth::set_email_verified -user_id $user_id
-
-    # Check that update was made in db
-    set email_verified_p [db_string select_email_verified_p {
-        select email_verified_p
-        from   cc_users
-        where  user_id = :user_id
-    }]
-
-    aa_equals "email should be verified" $email_verified_p "t"
+    aa_run_with_teardown \
+        -rollback \
+        -test_code {
+            db_dml update { update users set email_verified_p = 'f' where user_id = :user_id }
+   
+            aa_equals "email should be not verified" [acs_user::get_element -user_id $user_id -element email_verified_p] "f"
+            
+            auth::set_email_verified -user_id $user_id
+            
+            aa_equals "email should be verified" [acs_user::get_element -user_id $user_id -element email_verified_p] "t"
+        }
 }
 
 aa_register_case auth_get_registration_elements {