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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-tcl/tcl/test/community-core-test-procs.tcl	10 Aug 2006 21:22:47 -0000	1.1
@@ -0,0 +1,139 @@
+# 
+
+ad_library {
+    
+    
+    
+    @author byron Haroldo Linares Roman (bhlr@galileo.edu)
+    @creation-date 2006-07-28
+    @arch-tag: 0D0EAC28-2481-4BEE-9645-A143B939DBCA
+    @cvs-id $Id: community-core-test-procs.tcl,v 1.1 2006/08/10 21:22:47 byronl Exp $
+}
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {cc_lookup_email_user cc_email_from_party} \
+    community_cc_procs \
+    {
+	test community core procs returned values
+    } {
+	
+	set user_id [db_nextval acs_object_id_seq]
+        set username [ad_generate_random_string]
+        set password [ad_generate_random_string]
+	
+	aa_run_with_teardown -test_code {
+	    array set user_info [twt::user::create -user_id $user_id]
+	    set user_id_p [cc_lookup_email_user $user_info(email)]
+	    aa_true "User ID CORRECTO" \
+	    	[string match $user_id_p $user_info(user_id)]
+	    set email_p [cc_email_from_party $user_info(user_id)]
+	    aa_log "returns:  $email_p ,  creation:  $user_info(email)"
+	    aa_true "Email correcto" \
+		[string match $email_p [string tolower $user_info(email)]]
+	   
+    }
+}
+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 \
+    {
+	test if the values returned by the person procs are correct
+    } {
+	
+	set user_id [db_nextval acs_object_id_seq]
+       	set username "[ad_generate_random_string]"
+	set email "${username}@test.test"
+	set password [ad_generate_random_string]
+	set first_names [ad_generate_random_string]
+	set last_name [ad_generate_random_string]
+
+	array set user_info [auth::create_user  -user_id $user_id  -username $username \
+				 -email $email  -first_names $first_names  -last_name $last_name \
+				 -password $password  -secret_question [ad_generate_random_string] \
+				 -secret_answer [ad_generate_random_string]]
+	
+	if { ![string equal $user_info(creation_status) ok] } {
+	    # Could not create user
+	    error "Could not create test user with username=$username user_info=[array get user_info]"
+	}
+	
+	set user_info(password) $password
+	set user_info(email) $email
+	
+	aa_log "Created user with email=\"$email\" and password=\"$password\""
+	
+	aa_run_with_teardown -rollback \
+	    -test_code {
+		
+		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]
+		aa_true "last_name correct" [string match $user_inf(last_name) $last_name]
+		aa_true "person_id correct" [string match $user_inf(person_id) $user_id]
+		aa_true "correct name" [string match [person::name -person_id $user_info(user_id)] "$first_names $last_name"]
+
+		set prs_id [person::new -first_names $first_names -last_name $last_name -email "${email}s"]
+		set email_p [cc_email_from_party $prs_id]
+		aa_true "New person pass" [string match $email_p [string tolower "${email}s"]]
+		
+		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"]
+		
+		set bio "bio :: [ad_generate_random_string] :: bio"
+		person::update_bio -person_id $prs_id -bio $bio
+		
+		aa_true "bio(graphy) ok" [string match $bio [person::get_bio -person_id $prs_id -exists_var bio_p]]
+		
+		person::delete -person_id $prs_id
+                aa_true "person deleted" ![person::person_p -party_id $prs_id]
+
+
+	    }
+    }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {party::get_by_email party::update} \
+    party_procs_test \
+    {
+	test if the values returned by the party procs are correct
+    } {
+	
+        set user_id [db_nextval acs_object_id_seq]
+        set username "[ad_generate_random_string]"
+        set email "${username}@test.test"
+        set password [ad_generate_random_string]
+        set first_names [ad_generate_random_string]
+        set last_name [ad_generate_random_string]
+	set url "url[ad_generate_random_string]"
+	
+	array set user_info [auth::create_user  -user_id $user_id  -username $username  -email $email  -first_names $first_names \
+				 -last_name $last_name  -password $password \
+				 -secret_question [ad_generate_random_string] \
+				 -secret_answer [ad_generate_random_string]]
+	
+        if { ![string equal $user_info(creation_status) ok] } {
+	    # Could not create user                                                                                                    
+            error "Could not create test user with username=$username user_info=[array get user_info]"
+        }
+
+        set user_info(password) $password
+        set user_info(email) $email
+
+        aa_log "Created user with email=\"$email\" and password=\"$password\""
+	aa_run_with_teardown -rollback \
+            -test_code {
+
+		aa_true "correct party_id" [string match [party::get_by_email -email $email] $user_info(user_id)]
+		party::update -party_id $user_info(user_id) -email "${email}2" -url $url
+		aa_true "correct party with new mail" [string match [party::get_by_email -email "${email}2"] $user_info(user_id)]
+	    }
+    }
+