xref: /sqlite-3.40.0/test/mallocC.test (revision 8a29dfde) 
1# 2007 Aug 13
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 file tests aspects of the malloc failure while parsing
13# CREATE TABLE statements in auto_vacuum mode.
14#
15# $Id: mallocC.test,v 1.9 2008/02/18 22:24:58 drh Exp $
16
17set testdir [file dirname $argv0]
18source $testdir/tester.tcl
19source $testdir/malloc_common.tcl
20
21# Only run these tests if memory debugging is turned on.
22#
23if {!$MEMDEBUG} {
24   puts "Skipping mallocC tests: not compiled with -DSQLITE_MEMDEBUG..."
25   finish_test
26   return
27}
28
29proc do_mallocC_test {tn args} {
30  array set ::mallocopts $args
31  #set sum [allcksum db]
32
33  for {set ::n 1} {true} {incr ::n} {
34
35    # Run the SQL. Malloc number $::n is set to fail. A malloc() failure
36    # may or may not be reported.
37    sqlite3_memdebug_fail $::n -repeat 1
38    do_test mallocC-$tn.$::n.1 {
39      set res [catchsql [string trim $::mallocopts(-sql)]]
40      set rc [expr {
41        0==[string compare $res {1 {out of memory}}] ||
42        [db errorcode] == 3082 ||
43        0==[lindex $res 0]
44      }]
45      if {$rc!=1} {
46        puts "Error: $res"
47      }
48      set rc
49    } {1}
50
51    # If $::n is greater than the number of malloc() calls required to
52    # execute the SQL, then this test is finished. Break out of the loop.
53    set nFail [sqlite3_memdebug_fail -1]
54    if {$nFail==0} {
55      break
56    }
57
58    # Recover from the malloc failure.
59    #
60    # Update: The new malloc() failure handling means that a transaction may
61    # still be active even if a malloc() has failed. But when these tests were
62    # written this was not the case. So do a manual ROLLBACK here so that the
63    # tests pass.
64    do_test mallocC-$tn.$::n.2 {
65      catch {
66        execsql {
67          ROLLBACK;
68        }
69      }
70      expr 0
71    } {0}
72
73    # Checksum the database.
74    #do_test mallocC-$tn.$::n.3 {
75    #  allcksum db
76    #} $sum
77
78    #integrity_check mallocC-$tn.$::n.4
79  if {$::nErr>1} return
80  }
81  unset ::mallocopts
82}
83
84sqlite3_extended_result_codes db 1
85
86execsql {
87  PRAGMA auto_vacuum=1;
88  CREATE TABLE t0(a, b, c);
89}
90do_mallocC_test 1 -sql {
91  BEGIN;
92  -- Allocate 32 new root pages. This will exercise the 'extract specific
93  -- page from the freelist' code when in auto-vacuum mode (see the
94  -- allocatePage() routine in btree.c).
95  CREATE TABLE t1(a UNIQUE, b UNIQUE, c UNIQUE);
96  CREATE TABLE t2(a UNIQUE, b UNIQUE, c UNIQUE);
97  CREATE TABLE t3(a UNIQUE, b UNIQUE, c UNIQUE);
98  CREATE TABLE t4(a UNIQUE, b UNIQUE, c UNIQUE);
99  CREATE TABLE t5(a UNIQUE, b UNIQUE, c UNIQUE);
100  CREATE TABLE t6(a UNIQUE, b UNIQUE, c UNIQUE);
101  CREATE TABLE t7(a UNIQUE, b UNIQUE, c UNIQUE);
102  CREATE TABLE t8(a UNIQUE, b UNIQUE, c UNIQUE);
103
104  ROLLBACK;
105}
106
107finish_test
108