Index: openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	10 Jan 2007 21:22:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	30 May 2009 20:42:12 -0000	1.3
@@ -36,8 +36,8 @@
 }
 aa_register_case \
     -cats {api smoke} \
-    -procs {person::person_p person::get person::new person::update person::get_bio person::update_bio} \
-    person_procs_test \
+    -procs {person::person_p person::get person::new person::update acs_user::get_bio acs_user::update_bio} \
+    person_user_procs_test \
     {
 	test if the values returned by the person procs are correct
     } {
@@ -69,9 +69,6 @@
 		
 		aa_true "party is a person" [person::person_p -party_id $user_id]
 
-		#person::delete -person_id $user_info(user_id)
-		#aa_true "person was deleted" [![person::person_p -party_id $user_id]]
-		
 		array set user_inf [person::get -person_id $user_info(user_id)]
 	
 		aa_true "first_names correct" [string match $user_inf(first_names) $first_names]
@@ -87,14 +84,13 @@
 		aa_true "name changed" [string match [person::name -person_id $prs_id] "hh$first_names hh$last_name"]
 		
 		set bio "bio :: [ad_generate_random_string] :: bio"
-		person::update_bio -person_id $prs_id -bio $bio
+		acs_user::update_bio -user_id $prs_id -bio $bio
 		
-		aa_true "bio(graphy) ok" [string match $bio [person::get_bio -person_id $prs_id -exists_var bio_p]]
+		aa_true "bio(graphy) ok" [string match $bio [acs_user::get_bio -user_id $prs_id -exists_var bio_p]]
 		
 		person::delete -person_id $prs_id
                 aa_true "person deleted" ![person::person_p -party_id $prs_id]
 
-
 	    }
     }