gatus/golang-modernc-sqlite
1
0
Fork 0
Code Issues Activity

Adding upstream version 1.37.0.

Browse source 
Signed-off-by: Daniel Baumann <daniel@debian.org>
This commit is contained in:
Daniel Baumann 2025-05-17 09:46:10 +02:00
parent 42613ad5c6
commit 271b368104
Signed by: daniel
GPG key ID: FBB4F0E80A80222F
1329 changed files with 4727104 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

92
testdata/tcl/tkt2565.test vendored Normal file
View file

@ -0,0 +1,92 @@
# 2009 January 8
#
# The author disclaims copyright to this source code. In place of
# a legal notice, here is a blessing:
#
# May you do good and not evil.
# May you find forgiveness for yourself and forgive others.
# May you share freely, never taking more than you give.
#
#***********************************************************************
#
# This script attempts to reproduce the circumstances of ticket #2565.
#
# More specifically, this script attempts to generate rollback journals
# that contain headers with nRec==0 that are followed by additional
# valid headers.
#
# $Id: tkt2565.test,v 1.2 2009/04/09 01:23:49 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# Use the alternative pcache and rig it to call pagerStress()
# very frequently.
#
db close
sqlite3_shutdown
sqlite3_config_alt_pcache 1 100 0 1
# Open two database connections to database "test.db".
#
proc reopen_database {} {
catch {db close}
sqlite3 db test.db
db cache size 0
execsql {
pragma page_size=512;
pragma auto_vacuum=2;
pragma cache_size=16;
}
}
# Open two database connections and create a single table in the db.
#
do_test tkt2565-1.0 {
reopen_database
execsql { CREATE TABLE A(Id INTEGER, Name TEXT) }
} {}
for {set iFail 1} {$iFail<200} {incr iFail} {
reopen_database
execsql { pragma locking_mode=exclusive }
set nRow [db one {SELECT count(*) FROM a}]
# Dirty (at least) one of the pages in the cache.
do_test tkt2565-1.$iFail.1 {
execsql {
BEGIN EXCLUSIVE;
INSERT INTO a VALUES(1, 'ABCDEFGHIJKLMNOP');
}
} {}
# Now try to commit the transaction. Cause an IO error to occur
# within this operation, which moves the pager into the error state.
#
set ::sqlite_io_error_persist 1
set ::sqlite_io_error_pending $iFail
do_test tkt2565-1.$iFail.2 {
set rc [catchsql {COMMIT}]
list
} {}
set ::sqlite_io_error_persist 0
set ::sqlite_io_error_pending 0
if {!$::sqlite_io_error_hit} break
set ::sqlite_io_error_hit 0
}
# Make sure this test script doesn't leave any files open.
#
do_test tkt2565-1.X {
catch { db close }
set sqlite_open_file_count
} 0
# Restore the pcache configuration for subsequent tests.
#
sqlite3_shutdown
sqlite3_config_alt_pcache 0
sqlite3_initialize
autoinstall_test_functions
finish_test