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.2 -r1.3 --- openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl 31 Aug 2006 14:26:43 -0000 1.2 +++ openacs-4/packages/acs-tcl/tcl/test/memoizing-procs.tcl 7 Aug 2017 23:48:00 -0000 1.3 @@ -36,7 +36,7 @@ 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 succesful" $success_p 1 + aa_equals "proc was cached successful" $success_p 1 } aa_register_case -cats {api smoke} ad_proc_flush { @@ -48,6 +48,12 @@ aa_log "flushing" util_memoize_flush_regexp {return_upper_case_text} set success_p [util_memoize_cached_p {memoizing_procs_test::return_upper_case_text -txt "foobar"}] - aa_equals "proc was flushed succesful" $success_p 0 + aa_equals "proc was flushed successful" $success_p 0 } + +# Local variables: +# mode: tcl +# tcl-indent-level: 4 +# indent-tabs-mode: nil +# End: