SQLite

Check-in [b6e9a4d8f7]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make sure SQLite is running with MEMSTATUS enabled at the beginning of every test script.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | apple-osx
Files: files | file ages | folders
SHA1: b6e9a4d8f7d8b683b4098270e0be149df1ef295f
User & Date: drh 2010-09-10 00:18:13.000
Context
2010-09-10
00:59
replaced relative lock proxy paths with absolute (check-in: 6a88cd46ae user: adam tags: apple-osx)
00:18
Make sure SQLite is running with MEMSTATUS enabled at the beginning of every test script. (check-in: b6e9a4d8f7 user: drh tags: apple-osx)
2010-09-09
23:40
Make sure MEMSTATUS is enabled at the beginning of the memsubsys2.test script. (check-in: cf23a35497 user: drh tags: apple-osx)
Changes
Unified Diff Ignore Whitespace Patch
Changes to test/memsubsys2.test.
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
# This file contains tests of the memory allocation subsystem.
#
# $Id: memsubsys2.test,v 1.2 2008/08/12 15:21:12 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl
sqlite3_reset_auto_extension
sqlite3_shutdown
sqlite3_config_memstatus 1
sqlite3_initialize

# This procedure constructs a new database in test.db.  It fills
# this database with many small records (enough to force multiple
# rebalance operations in the btree-layer and to require a large
# page cache), verifies correct results, then returns.
#
proc build_test_db {testname pragmas} {







<
<
<







12
13
14
15
16
17
18



19
20
21
22
23
24
25
# This file contains tests of the memory allocation subsystem.
#
# $Id: memsubsys2.test,v 1.2 2008/08/12 15:21:12 drh Exp $

set testdir [file dirname $argv0]
source $testdir/tester.tcl
sqlite3_reset_auto_extension




# This procedure constructs a new database in test.db.  It fills
# this database with many small records (enough to force multiple
# rebalance operations in the btree-layer and to require a large
# page cache), verifies correct results, then returns.
#
proc build_test_db {testname pragmas} {
Changes to test/tester.tcl.
240
241
242
243
244
245
246




247
248
249
250
251
252
253
  }
}
reset_db

# Abort early if this script has been run before.
#
if {[info exists TC(count)]} return





# Initialize the test counters and set up commands to access them.
# Or, if this is a slave interpreter, set up aliases to write the
# counters in the parent interpreter.
#
if {0==[info exists ::SLAVE]} {
  set TC(errors)    0







>
>
>
>







240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
  }
}
reset_db

# Abort early if this script has been run before.
#
if {[info exists TC(count)]} return

# Make sure memory statistics are enabled.
#
sqlite3_config_memstatus 1

# Initialize the test counters and set up commands to access them.
# Or, if this is a slave interpreter, set up aliases to write the
# counters in the parent interpreter.
#
if {0==[info exists ::SLAVE]} {
  set TC(errors)    0