1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00

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

FossilOrigin-Name: 6df3f6761a16ac5a02152f3c7f0c0e4944112ada
This commit is contained in:
drh
2006-08-13 18:43:54 +00:00
parent 77bba59b18
commit 09df9e28e5
3 changed files with 13 additions and 15 deletions

View File

@ -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

View File

@ -1 +1 @@
867defe32873ce82b6e1f5ddb8ad12178f2d76d6
6df3f6761a16ac5a02152f3c7f0c0e4944112ada

View File

@ -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