Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Added test/mallocL.test.

            1  +# 2014 August 12
            2  +#
            3  +# The author disclaims copyright to this source code.  In place of
            4  +# a legal notice, here is a blessing:
            5  +#
            6  +#    May you do good and not evil.
            7  +#    May you find forgiveness for yourself and forgive others.
            8  +#    May you share freely, never taking more than you give.
            9  +#
           10  +#***********************************************************************
           11  +#
           12  +# This test script is designed to show that the assert() fix at 
           13  +# [f1cb48f412] really is required.
           14  +# 
           15  +
           16  +set testdir [file dirname $argv0]
           17  +source $testdir/tester.tcl
           18  +source $testdir/malloc_common.tcl
           19  +set testprefix mallocL
           20  +
           21  +do_test 1.0 {
           22  +  for {set i 0} {$i < 40} {incr i} { 
           23  +    lappend cols "c$i" 
           24  +    lappend vals $i
           25  +  }
           26  +
           27  +  execsql "CREATE TABLE t1([join $cols ,])"
           28  +  execsql "CREATE INDEX i1 ON t1([join $cols ,])"
           29  +  execsql "INSERT INTO t1 VALUES([join $vals ,])"
           30  +} {}
           31  +
           32  +for {set j 1} {$j < 40} {incr j} {
           33  +  set ::sql "SELECT DISTINCT [join [lrange $cols 0 $j] ,] FROM t1"
           34  +  do_faultsim_test 1.$j -faults oom* -body {
           35  +    execsql $::sql
           36  +  } -test {
           37  +    faultsim_test_result [list 0 [lrange $::vals 0 $::j]]
           38  +  }
           39  +}
           40  +
           41  +
           42  +finish_test
           43  +