Change the "explain_i" tcl test command so that xterm color codes are only added...

FossilOrigin-Name: 559835e54e0715f2b4d207d056199a8268af739e

diff --git a/manifest b/manifest
index 86c4f75cc8a712de604ec39cf4bc820d6c36a8e2..edfa44277904fa197277e371e91954a9d89ec1dd 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\ssegfault\sthat\scan\soccur\sfollowing\san\sOOM\serror.
-D 2014-03-03T14:20:30.542
+C Change\sthe\s"explain_i"\stcl\stest\scommand\sso\sthat\sxterm\scolor\scodes\sare\sonly\sadded\sif\sthe\soutput\sis\sactually\sa\sterminal.
+D 2014-03-03T16:48:47.992
 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
 F Makefile.in 2ef13430cd359f7b361bb863504e227b25cc7f81
 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -841,7 +841,7 @@ F test/tclsqlite.test 37a61c2da7e3bfe3b8c1a2867199f6b860df5d43
 F test/tempdb.test 19d0f66e2e3eeffd68661a11c83ba5e6ace9128c
 F test/temptable.test d2c9b87a54147161bcd1822e30c1d1cd891e5b30
 F test/temptrigger.test 8ec228b0db5d7ebc4ee9b458fc28cb9e7873f5e1
-F test/tester.tcl 9bd04481b8b0ef1f2049ad01f28e175ee9a14f7b
+F test/tester.tcl f31bea1483ea1d39620f982130026e76f872d744
 F test/thread001.test 9f22fd3525a307ff42a326b6bc7b0465be1745a5
 F test/thread002.test e630504f8a06c00bf8bbe68528774dd96aeb2e58
 F test/thread003.test ee4c9efc3b86a6a2767516a37bd64251272560a7
@@ -1152,7 +1152,7 @@ F tool/vdbe_profile.tcl 67746953071a9f8f2f668b73fe899074e2c6d8c1
 F tool/warnings-clang.sh f6aa929dc20ef1f856af04a730772f59283631d4
 F tool/warnings.sh d1a6de74685f360ab718efda6265994b99bbea01
 F tool/win/sqlite.vsix 030f3eeaf2cb811a3692ab9c14d021a75ce41fff
-P e3f6c61e0333d4d237dcd2ba2e404f0a91ee5069
-R eaec45cec313455580b422d7721ccfeb
+P 7fdd378d54754a3ffdc01c6c0a66cf6d5899a495
+R d76d9cf70a7a6abc4c8a0d1e487a1b2f
 U dan
-Z 0f4ad0e1bfa9fac79dc39c1726a86e9b
+Z 3cca059248ddd2dc717b9671dde6b1cc

diff --git a/manifest.uuid b/manifest.uuid
index e37ef738a9e15fe118f87bef3ada2be2d40712d0..01986833028606fcf876010bdda6ab6f77d7e35c 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-7fdd378d54754a3ffdc01c6c0a66cf6d5899a495
\ No newline at end of file
+559835e54e0715f2b4d207d056199a8268af739e
\ No newline at end of file

diff --git a/test/tester.tcl b/test/tester.tcl
index fefd5e8a8fc631e62084b74cca2a54f4c7da4dd6..1c4e93937cea153eea0bf5a92c3315ced389908e 100644 (file)
--- a/test/tester.tcl
+++ b/test/tester.tcl
@@ -1062,10 +1062,17 @@ proc explain_i {sql {db db}} {
   #   Blue:  Opcodes that reposition or seek a cursor. 
   #   Green: The ResultRow opcode.
   #
-  set R "\033\[31;1m"        ;# Red fg
-  set G "\033\[32;1m"        ;# Green fg
-  set B "\033\[34;1m"        ;# Red fg
-  set D "\033\[39;0m"        ;# Default fg
+  if { [catch {fconfigure stdout -mode}]==0 } {
+    set R "\033\[31;1m"        ;# Red fg
+    set G "\033\[32;1m"        ;# Green fg
+    set B "\033\[34;1m"        ;# Red fg
+    set D "\033\[39;0m"        ;# Default fg
+  } else {
+    set R ""
+    set G ""
+    set B ""
+    set D ""
+  }
   foreach opcode {
       Seek SeekGe SeekGt SeekLe SeekLt NotFound Last Rewind
       NoConflict Next Prev VNext VPrev VFilter