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.8 -r1.9.2.9
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	8 Aug 2022 11:01:07 -0000	1.9.2.8
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	8 Aug 2022 14:48:48 -0000	1.9.2.9
@@ -168,6 +168,7 @@
 } -procs {
     acs_object::is_type_p
     acs_object_type::supertypes
+    acs_object_type::supertype
 } is_object_type_p {
     Test the acs_object::is_type_p proc.
 } {
@@ -187,6 +188,14 @@
         aa_true "Is $object_id an acs_object?" \
             [acs_object::is_type_p -object_id $object_id -object_type acs_object]
 
+        aa_section "Supertypes"
+        aa_true "true supertype" \
+            [acs_object_type::supertype -supertype acs_object -subtype user]
+        aa_true "equlas supertype" \
+            [acs_object_type::supertype -supertype user -subtype user]
+        aa_false "false supertype" \
+            [acs_object_type::supertype -supertype user -subtype party]
+
         aa_section "Fetch an existing user"
         set object_id [db_string q {select max(user_id) from users}]
         aa_true "Is $object_id a user?" \