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

Allow SQLite to work on Win32 with SQLITE_OS_WINNT=0 as long as WAL is disabled.

Browse Source 
FossilOrigin-Name: c1a8557008e56aa9bcb4565e4178fc57295c563d
This commit is contained in:
mistachkin
2012-09-13 01:51:02 +00:00
parent 8cca95d7aa
commit c60941f814
16 changed files with 201 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/tester.tcl
View File

@ -31,6 +31,7 @@
# Test the capability of the SQLite version built into the interpreter to
# determine if a specific test can be run:
#
# capable EXPR
# ifcapable EXPR
#
# Calulate checksums based on database contents:
@ -134,7 +135,7 @@ proc getFileRetries {} {
# NOTE: Return the default number of retries for [file] operations. A
# value of zero or less here means "disabled".
#
return [expr {$::tcl_platform(platform) eq "windows" ? 10 : 0}]
return [expr {$::tcl_platform(platform) eq "windows" ? 50 : 0}]
}
return $::G(file-retries)
}
@ -547,6 +548,9 @@ proc do_test {name cmd expected} {
set ok [expr {[string compare $result $expected]==0}]
}
if {!$ok} {
# if {![info exists ::testprefix] || $::testprefix eq ""} {
# error "no test prefix"
# }
puts "\nExpected: \[$expected\]\n Got: \[$result\]"
fail_test $name
} else {
@ -994,6 +998,12 @@ proc fix_ifcapable_expr {expr} {
return $ret
}
# Returns non-zero if the capabilities are present; zero otherwise.
#
proc capable {expr} {
set e [fix_ifcapable_expr $expr]; return [expr ($e)]
}
# Evaluate a boolean expression of capabilities. If true, execute the
# code. Omit the code if false.
#