database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Always truncate the pager cache when truncating the database file. Also reorganize the code to check the change-counter after first obtaining a shared lock. (CVS 3814)

Browse Source 
FossilOrigin-Name: 9dc4100eff71be579480ce7939c7da712d28f0ae
This commit is contained in:
danielk1977
2007-04-05 17:15:52 +00:00
parent 38ec0cb263
commit e180dd9396
5 changed files with 122 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/diskfull.test
View File

@ -12,7 +12,7 @@
# focus of this file is testing for correct handling of disk full
# errors.
#
# $Id: diskfull.test,v 1.5 2007/03/31 10:00:48 danielk1977 Exp $
# $Id: diskfull.test,v 1.6 2007/04/05 17:15:53 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -56,7 +56,7 @@ integrity_check diskfull-1.6
proc do_diskfull_test {prefix sql} {
set ::go 1
set ::sql $sql
set ::i 52
set ::i 1
while {$::go} {
incr ::i
do_test ${prefix}.$::i.1 {

12
test/pager.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is page cache subsystem.
#
# $Id: pager.test,v 1.27 2007/04/02 05:07:48 danielk1977 Exp $
# $Id: pager.test,v 1.28 2007/04/05 17:15:53 danielk1977 Exp $
set testdir [file dirname $argv0]
@ -119,7 +119,7 @@ do_test pager-2.12 {
} {1}
do_test pager-2.13 {
pager_stats $::p1
} {ref 1 page 1 max 10 size 0 state 1 err 0 hit 1 miss 2 ovfl 0}
} {ref 1 page 1 max 10 size 0 state 1 err 0 hit 1 miss 1 ovfl 0}
do_test pager-2.14 {
set v [catch {
page_write $::g1 "Page-One"
@ -128,7 +128,7 @@ do_test pager-2.14 {
} {0 {}}
do_test pager-2.15 {
pager_stats $::p1
} {ref 1 page 1 max 10 size 1 state 2 err 0 hit 1 miss 2 ovfl 0}
} {ref 1 page 1 max 10 size 1 state 2 err 0 hit 1 miss 1 ovfl 0}
do_test pager-2.16 {
page_read $::g1
} {Page-One}
@ -140,19 +140,19 @@ do_test pager-2.17 {
} {0 {}}
do_test pager-2.20 {
pager_stats $::p1
} {ref 1 page 1 max 10 size -1 state 1 err 0 hit 2 miss 2 ovfl 0}
} {ref 1 page 1 max 10 size -1 state 1 err 0 hit 2 miss 1 ovfl 0}
do_test pager-2.19 {
pager_pagecount $::p1
} {1}
do_test pager-2.21 {
pager_stats $::p1
} {ref 1 page 1 max 10 size 1 state 1 err 0 hit 2 miss 2 ovfl 0}
} {ref 1 page 1 max 10 size 1 state 1 err 0 hit 2 miss 1 ovfl 0}
do_test pager-2.22 {
page_unref $::g1
} {}
do_test pager-2.23 {
pager_stats $::p1
} {ref 0 page 1 max 10 size -1 state 0 err 0 hit 2 miss 2 ovfl 0}
} {ref 0 page 1 max 10 size -1 state 0 err 0 hit 2 miss 1 ovfl 0}
do_test pager-2.24 {
set v [catch {
page_get $::p1 1