Using Tcl 8.4.12.

Create the file tests/x.test:


package require tcltest 2.2
namespace import -force ::tcltest::*

eval ::tcltest::configure $argv

test corruption-1 {cache incr highlights corruption} -setup {
     ns_cache_create c1 1000
} -body {
    ns_cache_incr c1 k1
    ns_cache_incr c1 k1
} -cleanup {
    ns_cache_flush c1
} -result 2

cleanupTests



Run with:

make test TCLTESTARGS="-file x.test"


You get an error like:

errorInfo: expected integer but got "1aaaaaaaaaaaaZa¥aaa9"

Hopefully Purify spots something.  Thanks!



On 4/13/06, Zoran Vasiljevic <[EMAIL PROTECTED]> wrote:
>
> On 13.04.2006, at 23:58, Stephen Deasey wrote:
>
> > Unless anyone has any bright ideas, I'm going to test snapshots from
> > CVS until the problem goes away, when I get time...
> >
>
> I have Purify. Can you get me a sequence of commands
> which expose memory corrruption so I can replay it
> under purify control?
>
> Cheers
> Zoran
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by xPML, a groundbreaking scripting language
> that extends applications into web and mobile media. Attend the live webcast
> and join the prime developer group breaking into this new coding territory!
> http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
> _______________________________________________
> naviserver-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/naviserver-devel
>

Reply via email to