Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -r1.10.2.27 -r1.10.2.28
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	20 Apr 2023 14:47:36 -0000	1.10.2.27
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	26 Feb 2024 15:05:29 -0000	1.10.2.28
@@ -214,52 +214,6 @@
 aa_register_case \
     -cats {api smoke} \
     -procs {
-        fs::get_archive_command
-    } \
-    fs_archive_api {
-
-        Test api concerning archiving
-
-    } {
-        set orig_package_key [ad_conn package_key]
-        set orig_package_id [ad_conn package_id]
-
-        try {
-            set wfd [ad_opentmpfile in_file .in]
-            set out_file [file rootname $in_file].out
-
-            puts $wfd abcd
-            close $wfd
-            set in_file_hash [ns_md file $in_file]
-
-            #
-            # We simulate a file-storage connection context
-            #
-            ad_conn -set package_key "file-storage"
-            ad_conn -set package_id [db_string get_fs_is {
-                select max(package_id) from apm_packages
-                where package_key = 'file-storage'
-            }]
-
-            exec -ignorestderr {*}[fs::get_archive_command \
-                                       -in_file $in_file \
-                                       -out_file $out_file]
-
-            aa_equals "Input file was untouched" \
-                [ns_md file $in_file] $in_file_hash
-
-            aa_true "Archive '$out_file' was generated" \
-                [file exists $out_file]
-        } finally {
-            ad_conn -set package_key $orig_package_key
-            ad_conn -set package_id $orig_package_id
-            file delete -- $in_file $out_file
-        }
-    }
-
-aa_register_case \
-    -cats {api smoke} \
-    -procs {
         fs::new_root_folder
         fs::new_folder
         fs::add_file