# 2008 August 01 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # This test script checks malloc failures in various obscure operations. # # $Id: mallocH.test,v 1.2 2008/08/01 20:10:09 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl source $testdir/malloc_common.tcl # Malloc failures in journaling of in-memory databases. # do_malloc_test mallocH-1 -tclprep { db close sqlite4 db :memory: db eval { CREATE TABLE t1(x UNIQUE, y); INSERT INTO t1 VALUES(1,2); } } -sqlbody { INSERT INTO t1 SELECT x+1, y+100 FROM t1; } # Malloc failures while parsing a CASE expression. # do_malloc_test mallocH-2 -sqlbody { SELECT CASE WHEN 1 THEN 1 END; } # Malloc failures while parsing a EXISTS(SELECT ...) # do_malloc_test mallocH-3 -sqlbody { SELECT 3+EXISTS(SELECT * FROM sqlite_master); } # Malloc failures within the replace() function. # do_malloc_test mallocH-3 -sqlbody { SELECT replace('ababa','a','xyzzy'); } # Malloc failures during EXPLAIN. # ifcapable explain { do_malloc_test mallocH-4 -sqlprep { CREATE TABLE abc(a PRIMARY KEY, b, c); } -sqlbody { EXPLAIN SELECT * FROM abc AS t2 WHERE rowid=1; EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE rowid=1; } } # Malloc failure during integrity_check pragma. # do_malloc_test mallocH-5 -sqlprep { CREATE TABLE t1(a PRIMARY KEY, b UNIQUE); CREATE TABLE t2(x,y); INSERT INTO t1 VALUES(1,2); INSERT INTO t2 SELECT * FROM t1; } -sqlbody { PRAGMA integrity_check; } finish_test