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 -N -r1.5.8.2 -r1.5.8.3
--- openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	12 Sep 2016 11:09:30 -0000	1.5.8.2
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	14 Feb 2017 15:47:12 -0000	1.5.8.3
@@ -1,9 +1,6 @@
-# 
-
 ad_library {
+    Test cases for community core procs.
     
-    
-    
     @author byron Haroldo Linares Roman (bhlr@galileo.edu)
     @creation-date 2006-07-28
     @arch-tag: 0D0EAC28-2481-4BEE-9645-A143B939DBCA
@@ -62,7 +59,7 @@
 	set user_info(password) $password
 	set user_info(email) $email
 	
-	aa_log "Created user with email=\"$email\" and password=\"$password\""
+	aa_log "Created user with email=\"$email\" and password=\"$password\" user_id=$user_info(user_id)"
 	
 	aa_run_with_teardown -rollback \
 	    -test_code {
@@ -79,7 +76,11 @@
 		set prs_id [person::new -first_names $first_names -last_name $last_name -email "${email}s"]
 		set email_p [party::email -party_id $prs_id]
 		aa_true "New person pass" [string match $email_p [string tolower "${email}s"]]
-		
+
+                aa_log "New Person has user_id=$prs_id email_p=$email_p"
+                aa_log "Is this ID in persons ? [db_list _ {select * from persons where person_id=:prs_id}]"
+                aa_log "Is this ID in users   ? [db_list _ {select * from cc_users where user_id=:prs_id}]"
+
 		person::update -person_id $prs_id -first_names "hh$first_names" -last_name "hh$last_name"
 		aa_true "name changed" [string match [person::name -person_id $prs_id] "hh$first_names hh$last_name"]