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.13.2.17 -r1.13.2.18
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	30 Oct 2023 16:57:10 -0000	1.13.2.17
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	31 Oct 2023 12:55:04 -0000	1.13.2.18
@@ -472,6 +472,8 @@
         content::item::unpublish
         content::item::get_root_folder
         content::item::is_published
+        content::item::get_content
+        content::item::get_revision_content
     } \
     content_item_nested_structure {
         Test API on a nested folder structure.
@@ -549,6 +551,7 @@
                     -item_id $sub_item_id \
                     -parent_id $sub_folder_id \
                     -is_live t \
+                    -mime_type text/plain \
                     -attributes [list [list title "test_item_$sub_item_id"]]
 
 
@@ -709,6 +712,12 @@
                         $expected_root_folder_id [content::item::get_root_folder -item_id $item_id]
                 }
 
+                aa_section content::item::get_content
+
+                content::item::get_content -item_id $sub_item_id -array content
+                aa_true "Item '$sub_item_id' has a text mime type and the content array should contain the 'text' variable." \
+                    [info exists content(text)]
+
             }
     }