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

Some changes to test scripts related to codec enabled versions of sqlite.

Browse Source 
FossilOrigin-Name: 85dd51a75c75b2a123744f646e04538e4e5d89b3
This commit is contained in:
dan
2010-06-22 13:46:43 +00:00
parent 3c3dd7b927
commit 68928b6c3e
39 changed files with 217 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
test/tester.tcl
View File

@ -94,13 +94,13 @@ sqlite3_test_control_pending_byte 0x0010000
if {[info command sqlite_orig]==""} {
rename sqlite3 sqlite_orig
proc sqlite3 {args} {
if {[llength $args]==2 && [string index [lindex $args 0] 0]!="-"} {
if {[llength $args]>=2 && [string index [lindex $args 0] 0]!="-"} {
# This command is opening a new database connection.
#
if {[info exists ::G(perm:sqlite3_args)]} {
set args [concat $args $::G(perm:sqlite3_args)]
}
if {[sqlite_orig -has-codec]} {
if {[sqlite_orig -has-codec] && ![info exists ::do_not_use_codec]} {
lappend args -key {xyzzy}
}
@ -120,6 +120,14 @@ if {[info command sqlite_orig]==""} {
}
}
# This command should be called after loading tester.tcl from within
# all test scripts that are incompatible with encryption codecs.
#
proc do_not_use_codec {} {
set ::do_not_use_codec 1
reset_db
}
# The following block only runs the first time this file is sourced. It
# does not run in slave interpreters (since the ::cmdlinearg array is
# populated before the test script is run in slave interpreters).