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.11 -r1.9.2.12
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	6 Sep 2022 12:27:37 -0000	1.9.2.11
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	6 Sep 2022 12:31:23 -0000	1.9.2.12
@@ -251,7 +251,27 @@
     }
 }
 
+aa_register_case -cats {
+    api
+    smoke
+} -procs {
+    acs_object_name
+} object_name {
+    Test the acs_object_name api
+} {
+    db_foreach get_objects {
+        select object_id, acs_object.name(object_id) as name
+        from acs_objects
+        order by object_id desc
+        fetch first 10 rows only
+    } {
+        aa_equals "Api retrieves the correct name '$name' for object_id '$object_id'" \
+            [acs_object_name $object_id] $name
+    }
+}
 
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4