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

Fix backcompat.test so that it works with windows mandatory locking.

Browse Source 
FossilOrigin-Name: 8d05f66db7d6e8b8916fcf22fa92159d863d2610
This commit is contained in:
dan
2010-08-19 17:16:11 +00:00
parent fc5026d3c2
commit 9ab7fe87e5
3 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
test/backcompat.test
View File

@ -114,10 +114,19 @@ proc do_allbackcompat_test {script} {
proc read_file {zFile} {
set zData {}
catch {
if {[file exists $zFile]} {
set fd [open $zFile]
fconfigure $fd -translation binary -encoding binary
set zData [read $fd]
if {[file size $zFile]<=$::sqlite_pending_byte || $zFile != "test.db"} {
set zData [read $fd]
} else {
set zData [read $fd $::sqlite_pending_byte]
append zData [string repeat x 512]
seek $fd [expr $::sqlite_pending_byte+512] start
append zData [read $fd]
}
close $fd
}
return $zData