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.6 -r1.6.2.1 --- openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl 20 Jul 2018 08:41:29 -0000 1.6 +++ openacs-4/packages/acs-content-repository/tcl/test/content-folder-test-procs.tcl 25 Aug 2020 13:59:05 -0000 1.6.2.1 @@ -1,7 +1,7 @@ ad_library { - + Tests for content folders - + @author Dave Bauer (dave@thedesignexperience.org) @creation-date 2005-01-13 @cvs-id $Id$ @@ -35,8 +35,8 @@ content::folder::register_content_type \ -folder_id $first_folder_id \ -content_type content_folder - + ######################################################### # Update the folder ######################################################### @@ -47,7 +47,7 @@ -item_id $first_folder_id \ -array_name first_folder aa_true "Folder updated" {($first_folder(label) eq "new_label") && ($first_folder(description) eq "new_description")} - + ######################################################### # create a child folder ######################################################### @@ -63,15 +63,15 @@ -folder_id $first_folder_id \ -target_folder_id $child_folder_id] aa_true "Child is subfolder" $is_subfolder - + ######################################################### # make sure parent is not a subfolder of child ######################################################### set is_subfolder [content::folder::is_sub_folder \ -folder_id $child_folder_id \ -target_folder_id $first_folder_id] aa_false "Parent is not subfolder of child" $is_subfolder - + } } # Local variables: