mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-30 19:03:16 +03:00
Registerify the AUTOINCREMENT processing and the OP_IsNull and OP_NotNull
operators. (CVS 4692) FossilOrigin-Name: aa48867cfa04da265b906e5b583bc7ac6b6a1157
This commit is contained in:
@ -11,7 +11,7 @@
|
||||
# This file implements some common TCL routines used for regression
|
||||
# testing the SQLite library
|
||||
#
|
||||
# $Id: tester.tcl,v 1.95 2008/01/04 19:10:29 danielk1977 Exp $
|
||||
# $Id: tester.tcl,v 1.96 2008/01/07 19:20:25 drh Exp $
|
||||
|
||||
|
||||
set tcl_precision 15
|
||||
@ -51,6 +51,20 @@ for {set i 0} {$i<[llength $argv]} {incr i} {
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# Check the command-line arguments to set the maximum number of
|
||||
# errors tolerated before halting.
|
||||
#
|
||||
if {![info exists maxErr]} {
|
||||
set maxErr 1000
|
||||
}
|
||||
for {set i 0} {$i<[llength $argv]} {incr i} {
|
||||
if {[regexp {^--maxerror=(\d+)$} [lindex $argv $i] all maxErr]} {
|
||||
set argv [lreplace $argv $i $i]
|
||||
}
|
||||
}
|
||||
#puts "Max error = $maxErr"
|
||||
|
||||
|
||||
# Use the pager codec if it is available
|
||||
#
|
||||
@ -86,7 +100,6 @@ set nErr 0
|
||||
set nTest 0
|
||||
set skip_test 0
|
||||
set failList {}
|
||||
set maxErr 1000
|
||||
if {![info exists speedTest]} {
|
||||
set speedTest 0
|
||||
}
|
||||
|
Reference in New Issue
Block a user