Index: openacs-4/packages/xotcl-request-monitor/tcl/test/throttle_mod-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/test/Attic/throttle_mod-test-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xotcl-request-monitor/tcl/test/throttle_mod-test-procs.tcl	3 Sep 2019 06:35:55 -0000	1.1.2.2
+++ openacs-4/packages/xotcl-request-monitor/tcl/test/throttle_mod-test-procs.tcl	16 Dec 2019 17:55:12 -0000	1.1.2.3
@@ -7,21 +7,21 @@
 
 aa_register_case \
     -cats {api smoke production_safe} \
-    -procs {string_truncate_middle} \
-    string_truncate_middle {
+    -procs {ad_string_truncate_middle} \
+    ad_string_truncate_middle {
 
-        Test the string_truncate_middle proc
+        Test the ad_string_truncate_middle proc
 
         @author Hanifa Hasan
 } {
     set full_string "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
-    aa_equals "Empty ellipsis short length" [string_truncate_middle -ellipsis "" -len 5 $full_string ] "sasd"
-    aa_equals "Empty ellipsis"              [string_truncate_middle -ellipsis "" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd" 
-    aa_equals "No length"                   [string_truncate_middle -ellipsis ":::::::::::" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
-    aa_equals "Short length"                [string_truncate_middle -ellipsis ":::::::::::" -len 10 $full_string ] "sadlf:::::::::::ydfsd"
-    aa_equals "Default options"             [string_truncate_middle $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
-    aa_equals "Length 0, default ellipsis"  [string_truncate_middle -len 0 $full_string ] "..."
-    aa_equals "Length 25, default ellipsis" [string_truncate_middle -len 25 $full_string ] "sadlfvnsaödc...4zbrefsydfsd"
+    aa_equals "Empty ellipsis short length" [ad_string_truncate_middle -ellipsis "" -len 5 $full_string ] "sasd"
+    aa_equals "Empty ellipsis"              [ad_string_truncate_middle -ellipsis "" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd" 
+    aa_equals "No length"                   [ad_string_truncate_middle -ellipsis ":::::::::::" $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
+    aa_equals "Short length"                [ad_string_truncate_middle -ellipsis ":::::::::::" -len 10 $full_string ] "sadlf:::::::::::ydfsd"
+    aa_equals "Default options"             [ad_string_truncate_middle $full_string ] "sadlfvnsaödcösalcmksadöldcmsasdcsadvwaef4q3t54zbrefsydfsd"
+    aa_equals "Length 0, default ellipsis"  [ad_string_truncate_middle -len 0 $full_string ] "..."
+    aa_equals "Length 25, default ellipsis" [ad_string_truncate_middle -len 25 $full_string ] "sadlfvnsaödc...4zbrefsydfsd"
 }
 
 # Local variables: