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