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 -r1.3.2.1
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	15 Feb 2005 17:27:06 -0000	1.3
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	16 Nov 2005 15:28:08 -0000	1.3.2.1
@@ -178,7 +178,21 @@
             #########################################################
             aa_true "Extended attribute set" [expr [string equal "attribute_value" \
                                $new_type_item(attribute_name)]]
+
             #########################################################
+            # test update of item and attributes
+            #########################################################
+            content::item::update \
+                -item_id $new_type_item_id \
+                -attributes {{name new_name} {publish_status live}}
+            array unset new_type_item
+            content::item::get \
+                -item_id $new_type_item_id \
+                -revision "latest" \
+                -array_name new_type_item
+            aa_true "Item updated $new_type_item(name) $new_type_item(publish_status)" [expr {($new_type_item(name)) eq "new_name" && ($new_type_item(publish_status) eq "live")} ]
+            
+            #########################################################
             # copy it
             #########################################################
             #TODO