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.3 -r1.4 --- openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl 7 Aug 2017 23:48:00 -0000 1.3 +++ openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl 25 Jul 2018 13:42:48 -0000 1.4 @@ -28,7 +28,10 @@ return $response } -aa_register_case -cats {api smoke} ad_proc_cache { +aa_register_case \ + -cats {api smoke} \ + -procs {util_memoize util_memoize_cached_p} \ + util_memoize_cache { Test cache of a proc executed before } { aa_log "caching a proc" @@ -39,7 +42,10 @@ aa_equals "proc was cached successful" $success_p 1 } -aa_register_case -cats {api smoke} ad_proc_flush { +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"