test/mallocH.test

   1 # 2008 August 01
   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 checks malloc failures in various obscure operations.
  13 #
  14 # $Id: mallocH.test,v 1.2 2008/08/01 20:10:09 drh Exp $
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 source $testdir/malloc_common.tcl
  19
  20 # Malloc failures in journaling of in-memory databases.
  21 #
  22 do_malloc_test mallocH-1 -tclprep {
  23   db close
  24   sqlite3 db :memory:
  25   db eval {
  26     CREATE TABLE t1(x UNIQUE, y);
  27     INSERT INTO t1 VALUES(1,2);
  28   }
  29 } -sqlbody {
  30   INSERT INTO t1 SELECT x+1, y+100 FROM t1;
  31 }
  32
  33 # Malloc failures while parsing a CASE expression.
  34 #
  35 do_malloc_test mallocH-2 -sqlbody {
  36    SELECT CASE WHEN 1 THEN 1 END;
  37 }
  38
  39 # Malloc failures while parsing a EXISTS(SELECT ...)
  40 #
  41 do_malloc_test mallocH-3 -sqlbody {
  42    SELECT 3+EXISTS(SELECT * FROM sqlite_master);
  43 }
  44
  45 # Malloc failures within the replace() function.
  46 #
  47 do_malloc_test mallocH-3 -sqlbody {
  48    SELECT replace('ababa','a','xyzzy');
  49 }
  50
  51 # Malloc failures during EXPLAIN.
  52 #
  53 ifcapable explain {
  54   do_malloc_test mallocH-4 -sqlprep {
  55      CREATE TABLE abc(a PRIMARY KEY, b, c);
  56   } -sqlbody {
  57      EXPLAIN SELECT * FROM abc AS t2 WHERE rowid=1;
  58      EXPLAIN QUERY PLAN SELECT * FROM abc AS t2 WHERE rowid=1;
  59   }
  60 }
  61
  62 # Malloc failure during integrity_check pragma.
  63 #
  64 do_malloc_test mallocH-5 -sqlprep {
  65    CREATE TABLE t1(a PRIMARY KEY, b UNIQUE);
  66    CREATE TABLE t2(x,y);
  67    INSERT INTO t1 VALUES(1,2);
  68    INSERT INTO t2 SELECT * FROM t1;
  69 } -sqlbody {
  70    PRAGMA integrity_check;
  71 }
  72
  73 finish_test