Modify tclsqlite.test so that it works reliably with tcl 8.5.4. (CVS 5640)

FossilOrigin-Name: 790d329f5d18d361a5d6d34f46c269f8b4057cd9

diff --git a/manifest b/manifest
index a45199ab6d3699024e67533cefb1133b7c67aa52..988b15a54df4d8cd0b06e9f6f25d1a808d197125 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C In\spermutations.test,\sdisable\stests\sthat\sdepend\son\ssoft-heap-limit\sfunctionality\swhen\srunning\sthe\smemsubsys2\svariant.\sIt\sdisables\sthe\ssoft-heap-limit.\s(CVS\s5639)
-D 2008-08-29T12:00:20
+C Modify\stclsqlite.test\sso\sthat\sit\sworks\sreliably\swith\stcl\s8.5.4.\s(CVS\s5640)
+D 2008-08-29T15:54:57
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in 689e14735f862a5553bceef206d8c13e29504e44
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -499,7 +499,7 @@ F test/substr.test 4be572ac017143e59b4058dc75c91a0d0dc6d4e0
 F test/sync.test ded6b39d8d8ca3c0c5518516c6371b3316d3e3a3
 F test/table.test 13b1c2e2fb4727b35ee1fb7641fc469214fd2455
 F test/tableapi.test 505031f15b18a750184d967d2c896cf88fcc969c
-F test/tclsqlite.test 642869f9581a1c457c2329767d93a571a3c281b8
+F test/tclsqlite.test 401358dc4669fa4993cc129510edcd206289e029
 F test/tempdb.test b88ac8a19823cf771d742bf61eef93ef337c06b1
 F test/temptable.test 19b851b9e3e64d91e9867619b2a3f5fffee6e125
 F test/tester.tcl 12fd8394caeb71f7d961707da8668756389bc9d3
@@ -627,7 +627,7 @@ F tool/speedtest16.c c8a9c793df96db7e4933f0852abb7a03d48f2e81
 F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 1dbced29de5f59ba2ebf877edcadf171540374d1
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
-P 4b12922dcb4547bf3a7276d0542b2e1d12ad338d
-R 2ffa9bd2f8d79fb5963ae5f5988d926b
+P 047c7bdb9f37462c462071334f1cb9d3400917db
+R f411fbe65e0c3dfe793771b6348667b5
 U danielk1977
-Z 546ff8821ac9632bfb1f8285195992ba
+Z 25a3ba31f696c906a0852daa4ea99091

diff --git a/manifest.uuid b/manifest.uuid
index c7535e84f40cf9cd24090b2b2fcd9490ea1eab11..f669b97f6cc0f21936143ac7f9e095b365336cd9 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-047c7bdb9f37462c462071334f1cb9d3400917db
\ No newline at end of file
+790d329f5d18d361a5d6d34f46c269f8b4057cd9
\ No newline at end of file

diff --git a/test/tclsqlite.test b/test/tclsqlite.test
index 3c5e3d61cbe210dc6acd096d9a5ad10c8024542b..cb6c9a7399d56252be63b5707f3443027b828e3b 100644 (file)
--- a/test/tclsqlite.test
+++ b/test/tclsqlite.test
@@ -15,7 +15,7 @@
 # interface is pretty well tested.  This file contains some addition
 # tests for fringe issues that the main test suite does not cover.
 #
-# $Id: tclsqlite.test,v 1.66 2008/08/25 19:09:02 drh Exp $
+# $Id: tclsqlite.test,v 1.67 2008/08/29 15:54:57 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -234,13 +234,13 @@ ifcapable {tclvar} {
   do_test tcl-5.1 {
     execsql {CREATE TABLE t3(a,b,c)}
     catch {unset x}
-    set x(1) 5
-    set x(2) 7
+    set x(1) A
+    set x(2) B
     execsql {
       INSERT INTO t3 VALUES($::x(1),$::x(2),$::x(3));
       SELECT * FROM t3
     }
-  } {5 7 {}}
+  } {A B {}}
   do_test tcl-5.2 {
     execsql {
       SELECT typeof(a), typeof(b), typeof(c) FROM t3