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 -N -r1.2.2.7 -r1.2.2.8
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	10 Jan 2005 01:57:07 -0000	1.2.2.7
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	13 Jan 2005 01:27:07 -0000	1.2.2.8
@@ -126,6 +126,18 @@
                 -table_name "__test_type" \
                 -id_column "test_id"]
 
+
+            #########################################################
+            # create an attribute
+            #########################################################
+            content::type::attribute::new \
+                -content_type "__test_type" \
+                -attribute_name "attribute_name" \
+                -datatype "text" \
+                -pretty_name "Attribute Name" \
+                -pretty_plural "Attribute Names" \
+                -column_spec "text"
+            
             # todo test that new item is NOT allowed to be created
             # unless registered by catching error when creating new
             # item
@@ -144,7 +156,7 @@
                                             -item_id $new_type_item_id \
                                             -parent_id $first_folder_id \
                                             -content_type  "__test_type" \
-                                               -attributes [list title "Title"]]
+                                            -attributes [list title "Title" attribute_name "attribute_value"]]
 
             #########################################################
             # check that the item exists
@@ -157,6 +169,11 @@
                                                       -array_name new_type_item] == 1]
 
             #########################################################
+            # check that extended attribute exists
+            #########################################################
+            aa_true "Extended attribute set" [expr [string equal "attribute_value" \
+                               $new_type_item(attribute_name)]]
+            #########################################################
             # copy it
             #########################################################
             #TODO