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 -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl	15 Feb 2021 17:53:27 -0000	1.7.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/test-membership-rel-procs.tcl	10 Feb 2023 19:07:31 -0000	1.7.2.2
@@ -16,6 +16,7 @@
         membership_rel::delete
         membership_rel::reject
         membership_rel::unapprove
+        membership_rel::expire
         membership_rel::change_state
         ::acs::test::user::create
     } \
@@ -72,6 +73,15 @@
         aa_equals "Changed State to unapproved"  \
             $user(member_state) "needs approval"
 
+        #Try to change his state to expired
+        aa_log "We change the state to expired"
+        membership_rel::expire -rel_id $rel_id
+        acs_user::get -user_id $user_id -array user
+
+        #Verifying if the state was changed
+        aa_equals "Changed State to expired"  \
+            $user(member_state) "expired"
+
         #Try to change his state to deleted
         aa_log "We change the state to deleted"
         membership_rel::delete -rel_id $rel_id