Index: openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/security-procs.tcl,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl	25 Aug 2022 15:37:02 -0000	1.1.2.7
+++ openacs-4/packages/acs-tcl/tcl/test/security-procs.tcl	26 Aug 2022 12:06:44 -0000	1.1.2.8
@@ -120,39 +120,16 @@
         aa_true "An existing tmpfile is safe" [security::safe_tmpfile_p -must_exist $tmpfile]
         file delete -- $tmpfile
 
-        aa_section {Path to an existing file in a tmpdir subfolder}
-        set tmpdir [ad_tmpnam]
-        file mkdir $tmpdir
-        set tmpfile $tmpdir/onefile
-        set wfd [open $tmpfile w]
-        puts $wfd 1234
-        close $wfd
-        aa_false "File is not considered safe when not searching recursively" \
-            [security::safe_tmpfile_p -must_exist $tmpfile]
-        aa_true "File is considered safe when searching recursively" \
-            [security::safe_tmpfile_p -recursive -must_exist $tmpfile]
-        file delete -force -- $tmpdir
-
         aa_section {Path to a tmpfile in a folder of the tmpdir}
         set tmpfile [ad_tmpnam]/test
         aa_false "A safe tmpfile can only be a direct child of the tmpdir" \
             [security::safe_tmpfile_p $tmpfile]
 
-        aa_section {Path to a tmpfile in a folder of the tmpdir when we allow recursive paths}
-        set tmpfile [ad_tmpnam]/test
-        aa_true "A safe tmpfile can be a at any depth in the hierachy of a tmpdir" \
-            [security::safe_tmpfile_p -recursive $tmpfile]
-
         aa_section {Trying to confuse the proc with ".."}
         set tmpfile [ad_tmpnam]/../../test
         aa_false "Proc is not fooled by .." \
             [security::safe_tmpfile_p $tmpfile]
 
-        aa_section {Trying to confuse the proc with ".." when we allow recursive paths}
-        set tmpfile [ad_tmpnam]/../test
-        aa_true "Proc is not fooled by .." \
-            [security::safe_tmpfile_p -recursive $tmpfile]
-
         aa_section {Trying to confuse the proc with "~"}
         set tmpfile ~/../../test
         aa_false "Proc is not fooled by ~" \
@@ -163,9 +140,4 @@
         aa_false "A safe tmpfile can only be a direct child of the tmpdir" \
             [security::safe_tmpfile_p $tmpfile]
 
-        aa_section {Path to a file outside of the tmpdir when we allow recursive paths}
-        set tmpfile [acs_root_dir]/mypreciouscode
-        aa_false "A safe tmpfile can only be in the hierachy of the tmpdir" \
-            [security::safe_tmpfile_p $tmpfile]
-
     }