Index: openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl,v
diff -u -r1.9.2.7 -r1.9.2.8
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	15 Jul 2022 13:58:40 -0000	1.9.2.7
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	8 Aug 2022 11:01:07 -0000	1.9.2.8
@@ -167,6 +167,7 @@
     smoke
 } -procs {
     acs_object::is_type_p
+    acs_object_type::supertypes
 } is_object_type_p {
     Test the acs_object::is_type_p proc.
 } {
@@ -201,6 +202,23 @@
         aa_false "Is $object_id a party (no hierachy)?" \
             [acs_object::is_type_p -object_id $object_id -object_type party -no_hierarchy]
 
+        aa_true "Is $object_id a user os a package?" \
+            [acs_object::is_type_p -object_id $object_id -object_type {apm_package user}]
+        aa_true "Is $object_id a person or a package?" \
+            [acs_object::is_type_p -object_id $object_id -object_type {apm_package person}]
+        aa_true "Is $object_id a party or a package?" \
+            [acs_object::is_type_p -object_id $object_id -object_type {apm_package party}]
+        aa_true "Is $object_id a user or a package (no hierachy)?" \
+            [acs_object::is_type_p -object_id $object_id -object_type {apm_package user} -no_hierarchy]
+        aa_false "Is $object_id a person or a package (no hierachy)?" \
+            [acs_object::is_type_p -object_id $object_id \
+                 -object_type {apm_package person} \
+                 -no_hierarchy]
+        aa_false "Is $object_id a party or a package (no hierachy)?" \
+            [acs_object::is_type_p -object_id $object_id \
+                 -object_type {apm_package party} -no_hierarchy]
+
+
         aa_section "Create an object and check"
         set object_id [package_instantiate_object acs_object]
         aa_true "Is $object_id an acs_object?" \