Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added new tests of the scratch memory allocator for increased test coverage. (CVS 6388) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | e99e28efbbfff3e46eec0f90d566991d |
| User & Date: | drh 2009-03-26 12:20:33 |
Context
|
2009-03-26
| ||
| 14:48 | Prevent the tcl test suite from throwing an exception when a threadsafe SQLite is linked against a non-threadsafe Tcl for testing. Print a warning instead. Ticket #3753. (CVS 6389) check-in: a22e7c81 user: danielk1977 tags: trunk | |
| 12:20 | Added new tests of the scratch memory allocator for increased test coverage. (CVS 6388) check-in: e99e28ef user: drh tags: trunk | |
| 11:49 | Ensure that the test vfs in test_journal.c zeroes sqlite3_file.pMethods if an xOpen() call fails. Similar problem to that fixed by #6384. This was a problem with test code, not SQLite itself. (CVS 6387) check-in: 45ae830d user: danielk1977 tags: trunk | |
Changes
Changes to test/memsubsys1.test.
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
|
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # This file contains tests of the memory allocation subsystem # # $Id: memsubsys1.test,v 1.13 2008/10/01 13:55:51 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 ................................................................................ } 1 do_test memsubsys1-7.6 { set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2] } 1 do_test memsubsys1-7.7 { set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2] } 0 db close sqlite3_shutdown sqlite3_config_pagecache 0 0 sqlite3_config_scratch 0 0 sqlite3_config_lookaside 100 500 sqlite3_initialize autoinstall_test_functions finish_test |
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
...
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
|
# May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # This file contains tests of the memory allocation subsystem # # $Id: memsubsys1.test,v 1.14 2009/03/26 12:20:33 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 ................................................................................ } 1 do_test memsubsys1-7.6 { set s_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2] } 1 do_test memsubsys1-7.7 { set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2] } 0 # Test 8: Disable PAGECACHE. Make available SCRATCH zero. Verify that # the SCRATCH overflow logic works. # db close sqlite3_shutdown sqlite3_config_pagecache 0 0 sqlite3_config_scratch 25000 0 sqlite3_initialize reset_highwater_marks do_test memsubsys1-8.1 { set pg_used [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_USED 0] 2] } 0 do_test memsubsys1-8.2 { set s_ovfl [lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2] } 0 do_test memsubsys1-8.3 { sqlite3 db :memory: db eval { CREATE TABLE t1(x); INSERT INTO t1 VALUES(zeroblob(400)); INSERT INTO t1 VALUES(zeroblob(400)); INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; } expr {[lindex [sqlite3_status SQLITE_STATUS_SCRATCH_OVERFLOW 0] 2]>0} } 1 db close sqlite3_shutdown sqlite3_config_memstatus 0 sqlite3_initialize do_test memsubsys1-8.4 { sqlite3 db :memory: db eval { CREATE TABLE t1(x); INSERT INTO t1 VALUES(zeroblob(400)); INSERT INTO t1 VALUES(zeroblob(400)); INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; INSERT INTO t1 SELECT * FROM t1; SELECT rowid FROM t1; } } {1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16} db close sqlite3_shutdown sqlite3_config_memstatus 1 sqlite3_config_pagecache 0 0 sqlite3_config_scratch 0 0 sqlite3_config_lookaside 100 500 sqlite3_initialize autoinstall_test_functions finish_test |