Index: openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl	24 Feb 2005 13:32:59 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl	16 Nov 2005 15:49:31 -0000	1.2.2.1
@@ -30,7 +30,19 @@
                 -folder_id $first_folder_id \
                 -content_type content_folder
             
+
             #########################################################
+            # Update the folder
+            #########################################################
+            content::folder::update \
+                -folder_id $first_folder_id \
+                -attributes {{label new_label} {description new_description}}
+            content::item::get \
+                -item_id $first_folder_id \
+                -array_name first_folder
+            aa_true "Folder updated" [expr {($first_folder(label) eq "new_label") && ($first_folder(description) eq "new_description")}]
+                                          
+            #########################################################
             # create a child folder
             #########################################################
            set child_folder_id [db_nextval "acs_object_id_seq"]