Index: openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	16 Nov 2005 15:28:08 -0000	1.3.2.1
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	5 May 2006 12:57:05 -0000	1.3.2.2
@@ -210,8 +210,18 @@
             #########################################################
             # rename it
             #########################################################
-            #TODO
 
+            set new_name "__rename_new_name"
+            content::item::rename \
+                -item_id $new_type_item_id \
+                -name $new_name
+            content::item::get \
+                -item_id $new_type_item_id \
+                -array_name renamed_item
+            aa_true "Item renamed" \
+                [expr {$new_name eq $renamed_item(name)}]
+                     
+
             #########################################################
             # publish it
             #########################################################