Vtab2.test script works regardless of what TCL version is used. (CVS 3350)

FossilOrigin-Name: 6df3f6761a16ac5a02152f3c7f0c0e4944112ada

diff --git a/manifest b/manifest
index fdcb07634375ead326bc3754695a1348ca64fc26..e1c91b0dc4a81d230982e2a6efb6f14a600b930a 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Compile\sin\stest\scode\swhenever\s-DSQLITE_TEST=1\sis\spresent.\s\sDo\snot\srely\non\s-DSQLITE_DEBUG=1\sbecause\ssomebody\smight\stry\sto\srun\sthe\stests\swithout\sit.\s(CVS\s3349)
-D 2006-08-13T18:39:26
+C Vtab2.test\sscript\sworks\sregardless\sof\swhat\sTCL\sversion\sis\sused.\s(CVS\s3350)
+D 2006-08-13T18:43:55
 F Makefile.in 9c2a76055c305868cc5f5b73e29a252ff3632c0a
 F Makefile.linux-gcc 2d8574d1ba75f129aba2019f0b959db380a90935
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -295,7 +295,7 @@ F test/vacuum2.test 5aea8c88a65cb29f7d175296e7c819c6158d838c
 F test/varint.test ab7b110089a08b9926ed7390e7e97bdefeb74102
 F test/view.test 16e2774fe35e47a07ac4471b7f0bcc948b1aa6d5
 F test/vtab1.test c794695b32fe9428ef1087281374e2a1e6044df2
-F test/vtab2.test bd6d6f3dc0403f42a63a63e3319e0a689d27dd4f
+F test/vtab2.test a025a21c2f7d29d9635b30490a8fb1961095b3dc
 F test/vtab3.test f38d6d7d19f08bffdadce4d5b8cba078f8118587
 F test/vtab4.test 4b4293341443839ef6dc02f8d9e614702a6c67ff
 F test/vtab5.test 9fb8f335651afe8f870011e2f68e5b00c5ad03cd
@@ -377,7 +377,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 85434a4b96389359a15556551cdc72259fc505e8
-R a059c4b4cac6c1b282cab53f8fba2604
+P 867defe32873ce82b6e1f5ddb8ad12178f2d76d6
+R 10309f6475890ae53aa0abb8bbf23f75
 U drh
-Z be0950499a88a5bf353c223f4acee36d
+Z d91510d341360efc878c541625fb7e42

diff --git a/manifest.uuid b/manifest.uuid
index 7e11ce2800002146c7d6aad5de09d50ae45e0756..2ce37c58bacc9d8be9564458a203e7d456092d60 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-867defe32873ce82b6e1f5ddb8ad12178f2d76d6
\ No newline at end of file
+6df3f6761a16ac5a02152f3c7f0c0e4944112ada
\ No newline at end of file

diff --git a/test/vtab2.test b/test/vtab2.test
index 185db297ab0e2225be50d6375d8b1f6d9cf59805..005a49ab235cc6af8f6ae16da2dd3278c64d21d8 100644 (file)
--- a/test/vtab2.test
+++ b/test/vtab2.test
@@ -10,7 +10,7 @@
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
-# $Id: vtab2.test,v 1.4 2006/06/27 12:25:00 danielk1977 Exp $
+# $Id: vtab2.test,v 1.5 2006/08/13 18:43:55 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -53,18 +53,16 @@ do_test vtab2-2.2 {
     SELECT * FROM vars WHERE name='A';
   }
 } [list A 1 1 A 2 4 A 3 9]
+set result {}
+foreach var [lsort [info vars tcl_*]] {
+  catch {lappend result $var [set $var]}
+}
 do_test vtab2-2.3 {
   execsql {
     SELECT name, value FROM vars
       WHERE name MATCH 'tcl_*' AND arrayname = '' 
       ORDER BY name;
   }
-} [list \
-  tcl_patchLevel $tcl_patchLevel            \
-  tcl_pkgPath $tcl_pkgPath                  \
-  tcl_precision $tcl_precision              \
-  tcl_version $tcl_version                  \
-]
+} $result
 
 finish_test
-