Index: openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl	7 Aug 2017 23:48:00 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl	22 Jul 2018 09:58:43 -0000	1.4
@@ -26,8 +26,8 @@
         acs_user::get -user_id $user_id -array user
 	
  	#Verifying if the state was changed
- 	aa_true "Changed State to aprroved" \
- 	    [string equal $user(member_state) "approved"]
+ 	aa_equals "Changed State to aprroved"  \
+ 	    $user(member_state) "approved"
 
 
 	#Try to change his state to banned
@@ -36,8 +36,8 @@
 	acs_user::get -user_id $user_id -array user
 	
         #Verifying if the state was changed 
-	aa_true "Changed State to banned" \
-	    [string equal $user(member_state) "banned"]
+	aa_equals "Changed State to banned"  \
+	    $user(member_state) "banned"
 
 
 	#Try to change his state to rejected
@@ -46,8 +46,8 @@
 	acs_user::get -user_id $user_id -array user
 	
 	#Verifying if the state was changed
-	aa_true "Changed State to rejected" \
-	    [string equal $user(member_state) "rejected"]
+	aa_equals "Changed State to rejected"  \
+	    $user(member_state) "rejected"
 
 
 	#Try to change his state to unapproved
@@ -56,17 +56,17 @@
 	acs_user::get -user_id $user_id -array user
 
 	#Verifying if the state was changed
-	aa_true "Changed State to unapproved" \
-	    [string equal $user(member_state) "needs approval"]
+	aa_equals "Changed State to unapproved"  \
+	    $user(member_state) "needs approval"
 
 	#Try to change his state to deleted
 	aa_log "We change the state to deleted"
         membership_rel::delete -rel_id $rel_id
         acs_user::get -user_id $user_id -array user
 
 	#Verifying if the state was changed
-	aa_true "Changed State to deleted" \
-            [string equal $user(member_state) "deleted"]
+	aa_equals "Changed State to deleted"  \
+            $user(member_state) "deleted"
 
 
     }