Index: openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl,v
diff -u -r1.9.2.3 -r1.9.2.4
--- openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	7 Oct 2020 15:57:13 -0000	1.9.2.3
+++ openacs-4/packages/file-storage/tcl/test/tclwebtest-procs.tcl	30 Mar 2021 11:19:39 -0000	1.9.2.4
@@ -15,16 +15,6 @@
     ::twt::do_request $fs_page
 }
 
-ad_proc -private file_storage::twt::create_file { f_name }  {
-    Creates a temporary file.
-} {
-    # Create a temporary file
-    set file_name "[ad_tmpdir]/$f_name.txt"
-    exec touch $file_name
-    exec ls / >> $file_name
-    exec chmod 777 $file_name
-    return $file_name
-}
 
 ad_proc -private file_storage::twt::delete_file { file_name } {
     Deletes a file.