| OLD | NEW | 
 | (Empty) | 
|   1 # 2006 June 25 |  | 
|   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 attempts to check the library in an out-of-memory situation. |  | 
|  12 # |  | 
|  13 # $Id: malloc6.test,v 1.5 2008/02/18 22:24:58 drh Exp $ |  | 
|  14  |  | 
|  15 set testdir [file dirname $argv0] |  | 
|  16 source $testdir/tester.tcl |  | 
|  17 source $testdir/malloc_common.tcl |  | 
|  18  |  | 
|  19 # Only run these tests if memory debugging is turned on. |  | 
|  20 # |  | 
|  21 if {!$MEMDEBUG} { |  | 
|  22    puts "Skipping malloc6 tests: not compiled with -DSQLITE_MEMDEBUG..." |  | 
|  23    finish_test |  | 
|  24    return |  | 
|  25 } |  | 
|  26  |  | 
|  27  |  | 
|  28 set sqlite_os_trace 0 |  | 
|  29 do_malloc_test malloc6-1 -tclprep { |  | 
|  30   db close |  | 
|  31 } -tclbody { |  | 
|  32   if {[catch {sqlite3 db test.db}]} { |  | 
|  33     error "out of memory" |  | 
|  34   } |  | 
|  35   sqlite3_extended_result_codes db 1 |  | 
|  36 } -sqlbody { |  | 
|  37   DROP TABLE IF EXISTS t1; |  | 
|  38   CREATE TABLE IF NOT EXISTS t1( |  | 
|  39      a int, b float, c double, d text, e varchar(20), |  | 
|  40      primary key(a,b,c) |  | 
|  41   ); |  | 
|  42   CREATE TABLE IF NOT EXISTS t1( |  | 
|  43      a int, b float, c double, d text, e varchar(20), |  | 
|  44      primary key(a,b,c) |  | 
|  45   ); |  | 
|  46   DROP TABLE IF EXISTS t1; |  | 
|  47 }  |  | 
|  48  |  | 
|  49 # Ensure that no file descriptors were leaked. |  | 
|  50 do_test malloc6-1.X { |  | 
|  51   catch {db close} |  | 
|  52   set sqlite_open_file_count |  | 
|  53 } {0} |  | 
|  54  |  | 
|  55 finish_test |  | 
| OLD | NEW |