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.18 -r1.13.2.19
--- openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	31 Oct 2023 12:55:04 -0000	1.13.2.18
+++ openacs-4/packages/acs-content-repository/tcl/test/content-item-test-procs.tcl	26 Aug 2024 13:47:45 -0000	1.13.2.19
@@ -46,17 +46,6 @@
         -rollback \
         -test_code {
 
-            # <= 0 because it is -4 for Postgres and 0 for
-            # Oracle... Here we assume every normal folder will have
-            # something bigger than 0
-            set root_folder_id [db_string get_root_folder {
-                select min(item_id) from cr_items
-                where content_type = 'content_folder'
-                and parent_id <= 0
-            }]
-            aa_true "Folder $root_folder_id is a root folder" \
-                [content::folder::is_root -folder_id $root_folder_id]
-
             #########################################################
             # create a cr_folder
             #########################################################
@@ -67,6 +56,13 @@
                                               -label $first_folder_label \
                                               -name "test_folder_${first_folder_id}"]
 
+            set root_folder_id [content::item::get_root_folder -item_id $first_folder_id]
+            aa_true "Folder $first_folder_id is distinct from root folder $root_folder_id" \
+                {$root_folder_id != $first_folder_id}
+            aa_true "Folder $root_folder_id is a root folder" \
+                [content::folder::is_root -folder_id $root_folder_id]
+
+
             aa_false "Folder $first_folder_id is not a root folder" \
                 [content::folder::is_root -folder_id $first_folder_id]