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.26 -r1.10.2.27
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	17 Mar 2023 14:43:58 -0000	1.10.2.26
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	20 Apr 2023 14:47:36 -0000	1.10.2.27
@@ -6,6 +6,30 @@
     @cvs-id $Id$
 }
 
+aa_register_case -cats {
+    smoke production_safe
+} -procs {
+    util::which
+} file_storage_exec_dependencies {
+    Test external command dependencies for this package.
+} {
+    set commands [list]
+    foreach unzip [db_list instances {
+        select distinct trim(attr_value)
+          from apm_parameter_values v,
+               apm_parameters p
+         where v.parameter_id = p.parameter_id
+           and p.package_key = 'file-storage'
+           and p.scope = 'instance'
+           and p.parameter_name = 'UnzipBinary'
+    }] {
+        lappend commands [::util::which $unzip]
+    }
+    foreach cmd $commands {
+        aa_true "'$cmd' is executable" [file executable $cmd]
+    }
+}
+
 aa_register_case \
     -cats {api smoke} \
     -procs {