database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-12-24 14:17:58 +03:00
Code Activity

Add the --pause option to the main test driver. (CVS 4934)

Browse Source 
FossilOrigin-Name: 37dfcdf529378a8ef37ed8672e28339a7d9e9da6
This commit is contained in:
drh
2008-03-29 11:00:54 +00:00
parent 473c35223e
commit 8359d8cb9d
3 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
test/tester.tcl
View File

@@ -11,8 +11,20 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.112 2008/03/28 15:44:10 danielk1977 Exp $
# $Id: tester.tcl,v 1.113 2008/03/29 11:00:55 drh Exp $
#
# What for user input before continuing. This gives an opportunity
# to connect profiling tools to the process.
#
for {set i 0} {$i<[llength $argv]} {incr i} {
if {[regexp {^-+pause$} [lindex $argv $i] all value]} {
puts -nonewline "Press RETURN to begin..."
flush stdout
gets stdin
set argv [lreplace $argv $i $i]
}
}
set tcl_precision 15
set sqlite_pending_byte 0x0010000