Re: [naviserver-devel] Tcl cache crashes

[Zoran Vasiljevic]

On 14.04.2006, at 00:30, Stephen Deasey wrote:

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!

Unable to get Purify running with the test env, therefore
I just did the above commands from within the control port
session:

lexxsrv:nscp 1> ns_cache_create c1 1000

lexxsrv:nscp 2> ns_cache_incr c1 k1
1
lexxsrv:nscp 3> ns_cache_incr c1 k1
2
lexxsrv:nscp 4>  ns_cache_flush c1
1

Purify observes no memory violation and all is fine.
I can repeat the above 1000's of times w/o any side
effect.
I'm running against freshly checked-out code
and with Tcl 8.4.12. Is there any other test
which would reveal the corruption?

Cheers
Zoran