Index: openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	19 Jul 2018 12:21:05 -0000	1.4
+++ openacs-4/packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl	3 Apr 2019 07:46:14 -0000	1.4.2.1
@@ -1,9 +1,9 @@
 # packages/dotlrn-fs/tcl/test/dotlrn-fs-procs.tcl
 
 ad_library {
-    
+
     Tests for dotlrn file storage integration package
-    
+
     @author Dave Bauer (dave@thedesignexperience.org)
     @creation-date 2006-04-17
     @cvs-id $Id$
@@ -16,70 +16,70 @@
         -rollback \
         -test_code {
             # create a new dotlrn user
-                array set creation_info [auth::create_user -email "an.email.unlikely.to.exist@i.hope.it.does.not" -first_names "test" -last_name "user"]
-                aa_log "create user result is: $creation_info(creation_status)"
-                aa_equals creation_ok $creation_info(creation_status) ok
-                
-                set rel_id [dotlrn::user_add -user_id $creation_info(user_id)]
-                aa_false "dotlrn_rel_created" [string equal $rel_id ""]
-                aa_log "dotlrn::user_add rel_id result is: $rel_id"
-                
-                aa_log "now calling dotlrn::remove_user_completely to try and remove this user"
-            
+            array set creation_info [auth::create_user -email "an.email.unlikely.to.exist@i.hope.it.does.not" -first_names "test" -last_name "user"]
+            aa_log "create user result is: $creation_info(creation_status)"
+            aa_equals creation_ok $creation_info(creation_status) ok
+
+            set rel_id [dotlrn::user_add -user_id $creation_info(user_id)]
+            aa_false "dotlrn_rel_created" [string equal $rel_id ""]
+            aa_log "dotlrn::user_add rel_id result is: $rel_id"
+
+            aa_log "now calling dotlrn::remove_user_completely to try and remove this user"
+
             # create a test instance of file storage
-                set fs_package_id \
-                    [site_node::instantiate_and_mount \
-                         -node_name [ns_mktemp "__test__XXXXXX"] \
-                         -package_key file-storage]
+            set fs_package_id \
+                [site_node::instantiate_and_mount \
+                     -node_name [ns_mktemp "__test__XXXXXX"] \
+                     -package_key file-storage]
             # get the user folder and shared folders
-                set user_root_folder_name \
-                    [dotlrn_fs::get_user_root_folder_name \
-                         -user_id $creation_info(user_id)]
-                set user_shared_folder_name \
-                    [dotlrn_fs::get_user_shared_folder_name \
-                         -user_id $creation_info(user_id)]
-                set user_root_folder_id \
-                    [dotlrn_fs::get_user_root_folder_not_cached \
-                         -user_id $creation_info(user_id)]
-                set user_shared_folder_id \
-                    [dotlrn_fs::get_user_shared_folder \
-                         -user_id $creation_info(user_id)]
-    
+            set user_root_folder_name \
+                [dotlrn_fs::get_user_root_folder_name \
+                     -user_id $creation_info(user_id)]
+            set user_shared_folder_name \
+                [dotlrn_fs::get_user_shared_folder_name \
+                     -user_id $creation_info(user_id)]
+            set user_root_folder_id \
+                [dotlrn_fs::get_user_root_folder_not_cached \
+                     -user_id $creation_info(user_id)]
+            set user_shared_folder_id \
+                [dotlrn_fs::get_user_shared_folder \
+                     -user_id $creation_info(user_id)]
+
             # create new duplicately named folders in the
             # test file storage instance
-                set fs_root_folder_id [fs::get_root_folder \
-                                           -package_id $fs_package_id]
-                set fs_user_root_folder_id \
-                    [content::folder::new \
-                         -parent_id $fs_root_folder_id \
-                         -name $user_root_folder_name]
-                set fs_iser_shared_folder_id \
-                    [content::folder::new \
-                         -parent_id $fs_root_folder_id \
-                         -name $user_shared_folder_name]
-                
+            set fs_root_folder_id [fs::get_root_folder \
+                                       -package_id $fs_package_id]
+            set fs_user_root_folder_id \
+                [content::folder::new \
+                     -parent_id $fs_root_folder_id \
+                     -name $user_root_folder_name]
+            set fs_iser_shared_folder_id \
+                [content::folder::new \
+                     -parent_id $fs_root_folder_id \
+                     -name $user_shared_folder_name]
+
             # see if we get the same user folder and shared folder
             # back again
-                set check_user_root_folder_id ""
-                set check_user_shared_folder_id ""
-                catch {set check_user_root_folder_id \
-                           [dotlrn_fs::get_user_root_folder_not_cached \
-                           -user_id $creation_info(user_id)]} \
-                       root_err_msg
-                aa_log $root_err_msg
-                         
-                aa_true "User root folder OK" {
-                             $check_user_root_folder_id \
-                                 == $user_root_folder_id}
-                catch {set check_user_shared_folder_id \
-                           [dotlrn_fs::get_user_shared_folder \
-                           -user_id $creation_info(user_id)]} shared_err_msg
-                    
-                aa_log $shared_err_msg
-                aa_true "User shared folder OK" {
-                             $check_user_shared_folder_id \
-                                 == $user_shared_folder_id}                
-        } 
+            set check_user_root_folder_id ""
+            set check_user_shared_folder_id ""
+            catch {set check_user_root_folder_id \
+                       [dotlrn_fs::get_user_root_folder_not_cached \
+                            -user_id $creation_info(user_id)]} \
+                root_err_msg
+            aa_log $root_err_msg
+
+            aa_true "User root folder OK" {
+                $check_user_root_folder_id \
+                    == $user_root_folder_id}
+            catch {set check_user_shared_folder_id \
+                       [dotlrn_fs::get_user_shared_folder \
+                            -user_id $creation_info(user_id)]} shared_err_msg
+
+            aa_log $shared_err_msg
+            aa_true "User shared folder OK" {
+                $check_user_shared_folder_id \
+                    == $user_shared_folder_id}
+        }
 }
 
 # Local variables: