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

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

14
test/vtab2.test
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