database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Ensure all testrunner.tcl processes use the same pending-byte value when

Browse Source 
accessing testrunner.db. Otherwise locking doesn't work and the db is corrupted.

FossilOrigin-Name: b65225653e4e5c20cc43f4dfdde6c110f6d14b87bff02a65fd61beabe50ec8db
This commit is contained in:
dan
2022-07-14 21:17:22 +00:00
parent ca0720a9d8
commit de353fb5c2
3 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/testrunner.tcl
View File

@ -251,6 +251,8 @@ proc testset_patternlist {patternlist} {
proc r_write_db {tcl} {
global R
sqlite3_test_control_pending_byte 0x010000
sqlite3 db $R(dbname)
db timeout $R(timeout)
db eval { BEGIN EXCLUSIVE }
@ -353,6 +355,8 @@ set R(iNextMsg) 1
proc r_get_messages {{db ""}} {
global R
sqlite3_test_control_pending_byte 0x010000
if {$db==""} {
sqlite3 rgmhandle $R(dbname)
set dbhandle rgmhandle
@ -524,7 +528,9 @@ proc puts_into_caller {args} {
proc r_final_report {} {
global R
sqlite3_test_control_pending_byte 0x010000
sqlite3 db $R(dbname)
db timeout $R(timeout)
set errcode 0
@ -613,7 +619,7 @@ if {$R(helper)==0 && $R(nJob)>1} {
proc r_helper_readable {id chan} {
set data [gets $chan]
if {$data!=""} { puts "helper $id:[gets $chan]" }
if {$data!=""} { puts "helper $id:$data" }
if {[eof $chan]} {
puts "helper $id is finished"
incr ::R(nHelperRunning) -1