Index: openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl	25 Jul 2018 13:42:48 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl	3 Sep 2024 15:37:34 -0000	1.5
@@ -20,10 +20,10 @@
 ad_proc -private memoizing_procs_test::return_upper_case_text {
     {-txt:required}
 } {
-    Test proc that returns a string in upper case
+    Test proc that returns a string in uppercase
 } {
     set response $txt
-    append response " in upper case is "
+    append response " in uppercase is "
     append response [string toupper $txt]
     return $response
 }
@@ -32,24 +32,45 @@
     -cats {api smoke} \
     -procs {util_memoize util_memoize_cached_p} \
     util_memoize_cache {
-    Test cache of a proc executed before
+    Test caching of a cmd call
 } {
-    aa_log "caching a proc"
-    util_memoize {memoizing_procs_test::return_string -name "foobar"} 
+    aa_log "caching a cmd call"
+    util_memoize {memoizing_procs_test::return_string -name "foobar"}
     aa_log "checking if the proc is cached"
     set success_p [util_memoize_cached_p {memoizing_procs_test::return_string -name "foobar"}]
 
-    aa_equals "proc was cached successful" $success_p 1
+    aa_equals "cmd call was cached successful" $success_p 1
 }
 
 aa_register_case \
     -cats {api smoke} \
+    -bugs {3448} \
+    -procs {util_memoize util_memoize_cached_p} \
+    util_memoize_cache_script {
+        Test passing a script to util_memoize.
+    } {
+        aa_log "caching a script"
+        set script {
+            set x 1
+            set y 2
+            expr {$x + $y}
+        }
+        set r [util_memoize $script]
+        aa_equals "the script was executed successfully via util_memoize" $r 3
+
+        set success_p [util_memoize_cached_p $script]
+        aa_equals "the script is recognized as being cached" $success_p 1
+    }
+
+
+aa_register_case \
+    -cats {api smoke} \
     -procs {util_memoize util_memoize_cached_p util_memoize_flush_regexp} \
     util_memoize_cache_flush {
     Test flush of a proc cached
 } {
     aa_log "caching"
-    util_memoize {memoizing_procs_test::return_string -name "foobar"} 
+    util_memoize {memoizing_procs_test::return_string -name "foobar"}
     aa_log "checking if the proc is cached"
     aa_log "flushing"
     util_memoize_flush_regexp {return_upper_case_text}