Index: openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl	13 Aug 2020 17:04:30 -0000	1.1.2.2
+++ openacs-4/packages/proctoring-support/tcl/test/proctoring-test-procs.tcl	13 Aug 2020 17:12:36 -0000	1.1.2.3
@@ -8,6 +8,7 @@
     proctoring_folder_test {
         Test ::proctoring::folder
     } {
+        set object_dirs [list]
         set paths [list]
         for {set object_id 0} {$object_id < 5} {incr object_id} {
             for {set user_id 0} {$user_id < 5} {incr user_id} {
@@ -16,8 +17,12 @@
                 lappend paths $path
                 aa_log "...deleted."
                 file delete -- $path
+                lappend object_dirs [file dirname $path]
             }
         }
+        set object_dirs [lsort -unique $object_dirs]
+        aa_log "Cleaning up $object_dirs"
+        file delete -- {*}$object_dirs
         aa_true "Unique paths were generated" {[llength [lsort -unique $paths]] == 25}
     }