Index: openacs-4/packages/search/tcl/test/search-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/test/search-procs.tcl,v diff -u -r1.1.2.8 -r1.1.2.9 --- openacs-4/packages/search/tcl/test/search-procs.tcl 20 Apr 2023 15:04:48 -0000 1.1.2.8 +++ openacs-4/packages/search/tcl/test/search-procs.tcl 14 Jun 2023 08:40:24 -0000 1.1.2.9 @@ -4,26 +4,30 @@ } -aa_register_case -cats { - smoke production_safe -} -procs { - util::which - apm_tar_cmd - apm_gzip_cmd -} search_exec_dependencies { - Test external command dependencies for this package. -} { - foreach cmd [list \ - [::util::which unzip] \ - [::util::which file] \ - [::util::which catdoc] \ - [::util::which xls2csv] \ - [::util::which catppt] \ - [::util::which pdftotext] \ - ] { - aa_true "'$cmd' is executable" [file executable $cmd] - } -} +# +# This test could be used to make sure binaries in use in the code are +# actually available to the system. +# +# aa_register_case -cats { +# smoke production_safe +# } -procs { +# util::which +# apm_tar_cmd +# apm_gzip_cmd +# } search_exec_dependencies { +# Test external command dependencies for this package. +# } { +# foreach cmd [list \ +# [::util::which unzip] \ +# [::util::which file] \ +# [::util::which catdoc] \ +# [::util::which xls2csv] \ +# [::util::which catppt] \ +# [::util::which pdftotext] \ +# ] { +# aa_true "'$cmd' is executable" [file executable $cmd] +# } +# } aa_register_case \ -cats {api smoke} \