Index: openacs-4/packages/acs-tcl/tcl/test/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/apm-procs.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-tcl/tcl/test/apm-procs.tcl	14 Dec 2021 10:04:39 -0000	1.1.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/apm-procs.tcl	24 Aug 2022 14:30:28 -0000	1.1.2.4
@@ -53,3 +53,27 @@
                 [lsort $db_dependencies]
         }
     }
+
+aa_register_case \
+    -cats {api smoke} \
+    -procs {
+        apm_version_get
+        apm_file_type_names
+        apm_file_type_keys
+    } \
+    apm_version_api {
+        Tests for the apm version interface
+    } {
+        apm_version_get -package_key acs-kernel -array versions
+        aa_true "got reasonable version_id '$versions(version_id)'" {$versions(version_id) > 0}
+        set dict [apm_file_type_names]
+        foreach name {tcl_procs tcl_init content_page} {
+            aa_true "File type names for '$name'" {[dict exists $dict $name]}
+            aa_true "$name in file type keys" {$name in [apm_file_type_keys]}
+        }
+        set package_id [apm_package_id_from_key acs-kernel]
+        aa_true "Kernel package_id '$package_id' plausible " {$package_id > 0}
+        
+        set package_key [apm_package_key_from_id $package_id]
+        aa_true "Kernel package_key '$package_key' plausible " {$package_key eq "acs-kernel"}
+    }