1 # 2007 Aug 29

     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 # $Id: mallocD.test,v 1.6 2008/02/18 22:24:58 drh Exp $

    13 

    14 set testdir [file dirname $argv0]

    15 source $testdir/tester.tcl

    16 source $testdir/malloc_common.tcl

    17 

    18 # Only run these tests if memory debugging is turned on.

    19 #

    20 if {!$MEMDEBUG} {

    21    puts "Skipping mallocD tests: not compiled with -DSQLITE_MEMDEBUG..."

    22    finish_test

    23    return

    24 }

    25 

    26 db close

    27 sqlite3_simulate_device -char atomic

    28 sqlite3 db test.db -vfs devsym

    29 

    30 set PREP { 

    31   PRAGMA page_size = 1024;

    32   CREATE TABLE abc(a, b, c);

    33 }

    34 

    35 do_malloc_test mallocD-1 -sqlprep $PREP -sqlbody { 

    36   INSERT INTO abc VALUES(1, 2, 3);

    37 }

    38 

    39 do_malloc_test mallocD-2 -sqlprep $PREP -sqlbody {

    40   BEGIN;

    41   INSERT INTO abc VALUES(1, 2, 3);

    42   INSERT INTO abc VALUES(4, 5, 6);

    43   ROLLBACK;

    44 }

    45 

    46 do_malloc_test mallocD-3 -sqlprep $PREP -sqlbody {

    47   BEGIN;

    48   INSERT INTO abc VALUES(1, 2, 3);

    49   INSERT INTO abc VALUES(4, 5, randstr(1500,1500));

    50   COMMIT;

    51 }

    52 

    53 ifcapable attach {

    54   do_malloc_test mallocD-4 -sqlprep $PREP -sqlbody {

    55     ATTACH 'test2.db' AS aux;

    56     BEGIN;

    57     CREATE TABLE aux.def(d, e, f);

    58     INSERT INTO abc VALUES(4, 5, 6);

    59     COMMIT;

    60   }

    61 }

    62 

    63 sqlite3_simulate_device -char {}

    64 

    65 finish_test