| OLD | NEW | 
 | (Empty) | 
|   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 |  | 
| OLD | NEW |