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

FossilOrigin-Name: 37dfcdf529378a8ef37ed8672e28339a7d9e9da6

diff --git a/manifest b/manifest
index 5f04bf6fbdaad8c8e08b900936a454f96aef301b..23dc61be5013dfdc90c8a57b76f446dd2c75f247 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\sproblem\swith\smin()\sand\sdescending\sindexes.\s(CVS\s4933)
-D 2008-03-28T19:16:57
+C Add\sthe\s--pause\soption\sto\sthe\smain\stest\sdriver.\s(CVS\s4934)
+D 2008-03-29T11:00:55
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in cf434ce8ca902e69126ae0f94fc9f7dc7428a5fa
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -453,7 +453,7 @@ F test/table.test 13b1c2e2fb4727b35ee1fb7641fc469214fd2455
 F test/tableapi.test 791f7e3891d9b70bdb43b311694bf5e9befcbc34
 F test/tclsqlite.test 3fac87cb1059c46b8fa8a60b553f4f1adb0fb6d9
 F test/temptable.test 19b851b9e3e64d91e9867619b2a3f5fffee6e125
-F test/tester.tcl bf793fcea043ba3c0c081224bdb808efccbc8fb3
+F test/tester.tcl 5d1550b66790c928c1bb7c299a18ea0a83be0ab2
 F test/thread001.test 8fbd9559da0bbdc273e00318c7fd66c162020af7
 F test/thread002.test 2c4ad2c386f60f6fe268cd91c769ee35b3c1fd0b
 F test/thread1.test 776c9e459b75ba905193b351926ac4019b049f35
@@ -619,7 +619,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P 2b6d3e015e3088531c62230c9b3bdab47ef534da
-R 7e83adaa8106ab7f1ce1a0f44d5e7926
-U danielk1977
-Z 3821d17b602f55bf94d594c026fd1b0c
+P 39705b617a775d4299e98ac88fab4525a64d8b78
+R a8d11eb9a5c39cc6cf028af2ce3e5192
+U drh
+Z 8599e48a8262797dc0549dd31b3ef5e5

diff --git a/manifest.uuid b/manifest.uuid
index 3c44a07dfc002c8d1fb39e1aad7919c13c7b1573..1c4b8664d4a27749e095e9216e819ee124990e21 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-39705b617a775d4299e98ac88fab4525a64d8b78
\ No newline at end of file
+37dfcdf529378a8ef37ed8672e28339a7d9e9da6
\ No newline at end of file

diff --git a/test/tester.tcl b/test/tester.tcl
index 46d39163fb3939d608e212cd2088ab9664e669a9..b812782e9a05d314fb3143867bb564e5b82f6aa1 100644 (file)
--- a/test/tester.tcl
+++ b/test/tester.tcl
@@ -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