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.10 -r1.9.2.11
--- openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	29 Aug 2022 10:34:19 -0000	1.9.2.10
+++ openacs-4/packages/acs-tcl/tcl/test/object-test-case-procs.tcl	6 Sep 2022 12:27:37 -0000	1.9.2.11
@@ -235,6 +235,23 @@
     }
 }
 
+aa_register_case -cats {
+    api
+    smoke
+} -procs {
+    acs_magic_object
+} magic_objects {
+    Test the magic objects api
+} {
+    db_foreach get_objects {
+        select object_id, name from acs_magic_objects
+    } {
+        aa_equals "Api retrieves the correct magic object_id for '$name'" \
+            [acs_magic_object $name] $object_id
+    }
+}
+
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4