Index: openacs-4/packages/acs-bootstrap-installer/tcl/test/30-apm-load-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/test/Attic/30-apm-load-procs.tcl,v
diff -u -N -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-bootstrap-installer/tcl/test/30-apm-load-procs.tcl	11 Mar 2023 10:56:37 -0000	1.1.2.2
+++ openacs-4/packages/acs-bootstrap-installer/tcl/test/30-apm-load-procs.tcl	24 Apr 2023 16:20:15 -0000	1.1.2.3
@@ -5,6 +5,36 @@
 aa_register_case \
     -cats {api smoke} \
     -procs {
+        apm_get_package_files
+        acs_package_root_dir
+        ad_find_all_files
+    } \
+    get_package_files {
+        Test apm_get_package_files
+
+        Note: this tests assumes that for a package such as acs-tcl,
+        only "package-relevant" files are contained in the package
+        folder. This is not a rule in general in OpenACS, e.g. the
+        acs-automated-testing package may create many files during its
+        operations that do not belong to the package source tree.
+    } {
+        set package_key acs-tcl
+
+        set package_files [apm_get_package_files -all -package_key $package_key]
+
+        set package_path [acs_package_root_dir $package_key]
+        set package_length [string length $package_path]
+        foreach f [ad_find_all_files $package_path] {
+            set f [string range $f $package_length+1 end]
+            aa_true "File '$f' belongs to '$package_key' and was found by the api" {
+                $f in $package_files
+            }
+        }
+    }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
         ad_after_server_initialization
     } \
     ad_after_server_initialization {