Index: openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl,v
diff -u -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	16 Nov 2019 14:49:51 -0000	1.13.2.1
+++ openacs-4/packages/acs-tcl/tcl/test/ad-proc-test-procs.tcl	27 Aug 2024 13:22:02 -0000	1.13.2.2
@@ -25,12 +25,29 @@
             ad_proc -callback contract { arg1 arg2 } { docs } -
         } error]
 
-    ad_proc -callback a_callback { -arg1 arg2 } { this is a test callback } -
+    aa_silence_log_entries -severities warning {
+        #
+        # In this situation, [info script] returns empty, and no
+        # package_key can be determined
+        #
+        #     Warning: cannot determine package key from script ''
+        #
+        ad_proc -callback a_callback { -arg1 arg2 } { this is a test callback } -
+    }
+
     set callback_procs [info commands ::callback::a_callback::*]
     aa_true "creation of a valid callback contract with '-' body" \
         {"::callback::a_callback::contract" in $callback_procs}
 
-    ad_proc -callback a_callback_2 { arg1 arg2 } { this is a test callback } {}
+    aa_silence_log_entries -severities warning {
+        #
+        # In this situation, [info script] returns empty, and no
+        # package_key can be determined
+        #
+        #     Warning: cannot determine package key from script ''
+        #
+        ad_proc -callback a_callback_2 { arg1 arg2 } { this is a test callback } {}
+    }
     set callback_procs [info commands ::callback::a_callback_2::*]
     aa_true "creation of a valid callback contract with no body" \
         {"::callback::a_callback_2::contract" in $callback_procs}
@@ -45,11 +62,21 @@
             ad_proc -callback a_callback -impl impl {} { docs } { body }
         } error]
 
-    ad_proc -callback a_callback -impl an_impl {} {
-        this is a test callback implementation
-    } {
+    aa_silence_log_entries -severities warning {
+        #
+        # In this situation, [info script] returns empty, and no
+        # package_key can be determined
+        #
+        #     Warning: cannot determine package key from script ''
+        #
+        ad_proc -callback a_callback -impl an_impl {} {
+            this is a test callback implementation
+        } {
+        }
     }
+
     set impl_procs [info commands ::callback::a_callback::impl::*]
+
     aa_true "creation of a valid callback implementation" \
         {"::callback::a_callback::impl::an_impl" in $impl_procs}
 }
Index: openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl,v
diff -u -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	18 Feb 2022 12:34:26 -0000	1.20.2.5
+++ openacs-4/packages/acs-tcl/tcl/test/datamodel-test-procs.tcl	27 Aug 2024 13:22:02 -0000	1.20.2.6
@@ -123,9 +123,14 @@
                     # oversized, but the chosen variant is not.
                     #
                 } else {
-                    aa_log_result fail "Constraint '$constraint_name' ($constraint_type)" \
-                        " violates naming standard ($hint)" \
-                        " oversized $oversized oversized by standard naming $oversized_checked"
+                    #
+                    # Too many entries for the log, we the information as well in the protocol
+                    #
+                    aa_silence_log_entries -severities warning {
+                        aa_log_result fail "Constraint '$constraint_name' ($constraint_type)" \
+                            " violates naming standard ($hint)" \
+                            " oversized $oversized oversized by standard naming $oversized_checked"
+                    }
                 }
             }
         }