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

Move the test scripts for checkfreelist and checkindex over into the

Browse Source 
ext/repair/test directory.  Run them now using the sqlite3_checker utility
with the --test option.  Some tests are currently failing due to an
incomplete port.  This is an incremental check-in.

FossilOrigin-Name: 17f8d5e111a9fe5b074f946e23936ae5a2a7a8d8018bad4212660d8eb81c04b7
This commit is contained in:
drh
2017-11-01 18:05:32 +00:00
parent 02c21b7e34
commit 37ab9523fa
7 changed files with 98 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
ext/repair/sqlite3_checker.tcl
View File

@ -1,5 +1,3 @@
# Read and run TCL commands from standard input. Used to implement
# the --tclsh option.
# This TCL script is the main driver script for the sqlite3_checker utility
# program.
#
@ -10,10 +8,10 @@
#
# uses FILENAME in place of this script.
#
if {[lindex $argv 0]=="--test" && [llength $argv]>2} {
set file [lindex $argv 1]
if {[lindex $argv 0]=="--test" && [llength $argv]>1} {
set ::argv0 [lindex $argv 1]
set argv [lrange $argv 2 end]
source $file
source $argv0
exit 0
}