| OLD | NEW | 
 | (Empty) | 
|   1 # 2007 May 30 |  | 
|   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 # This file contains additional out-of-memory checks (see malloc.tcl). |  | 
|  12 # These were all discovered by fuzzy generation of SQL. Apart from |  | 
|  13 # that they have little in common. |  | 
|  14 # |  | 
|  15 # |  | 
|  16 # $Id: mallocB.test,v 1.9 2008/02/18 22:24:58 drh Exp $ |  | 
|  17  |  | 
|  18 set testdir [file dirname $argv0] |  | 
|  19 source $testdir/tester.tcl |  | 
|  20 source $testdir/malloc_common.tcl |  | 
|  21  |  | 
|  22 # Only run these tests if memory debugging is turned on. |  | 
|  23 # |  | 
|  24 if {!$MEMDEBUG} { |  | 
|  25    puts "Skipping mallocB tests: not compiled with -DSQLITE_MEMDEBUG..." |  | 
|  26    finish_test |  | 
|  27    return |  | 
|  28 } |  | 
|  29 source $testdir/malloc_common.tcl |  | 
|  30  |  | 
|  31 do_malloc_test mallocB-1 -sqlbody {SELECT - 456} |  | 
|  32 do_malloc_test mallocB-2 -sqlbody {SELECT - 456.1} |  | 
|  33 do_malloc_test mallocB-3 -sqlbody {SELECT random()} |  | 
|  34 do_malloc_test mallocB-4 -sqlbody {SELECT length(zeroblob(1000))} |  | 
|  35 ifcapable subquery { |  | 
|  36   do_malloc_test mallocB-5 -sqlbody {SELECT * FROM (SELECT 1) GROUP BY 1;} |  | 
|  37 } |  | 
|  38  |  | 
|  39 # The following test checks that there are no resource leaks following a |  | 
|  40 # malloc() failure in sqlite3_set_auxdata(). |  | 
|  41 # |  | 
|  42 # Note: This problem was not discovered by fuzzy generation of SQL. Not |  | 
|  43 # that it really matters. |  | 
|  44 # |  | 
|  45 do_malloc_test mallocB-6 -sqlbody { SELECT test_auxdata('hello world'); } |  | 
|  46  |  | 
|  47 do_malloc_test mallocB-7 -sqlbody { |  | 
|  48   SELECT strftime(hex(randomblob(50)) || '%Y', 'now') |  | 
|  49 } |  | 
|  50  |  | 
|  51 finish_test |  | 
| OLD | NEW |