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.22 -r1.10.2.23
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	24 Feb 2023 16:29:09 -0000	1.10.2.22
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	16 Mar 2023 14:49:11 -0000	1.10.2.23
@@ -56,6 +56,38 @@
 aa_register_case \
     -cats {api smoke} \
     -procs {
+        fs::get_archive_command
+    } \
+    fs_archive_api {
+
+        Test api concerning archiving
+
+    } {
+        set wfd [ad_opentmpfile in_file .in]
+        set out_file [file rootname $in_file].out
+
+        try {
+            puts $wfd abcd
+            close $wfd
+            set in_file_hash [ns_md file $in_file]
+
+            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 {
+            file delete -- $in_file $out_file
+        }
+    }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
         fs::new_root_folder
         fs::new_folder
         fs::add_file