database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

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

Browse Source 
FossilOrigin-Name: 790d329f5d18d361a5d6d34f46c269f8b4057cd9
This commit is contained in:
danielk1977
2008-08-29 15:54:56 +00:00
parent 34c61e68ad
commit 7a1d17f1d7
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/tclsqlite.test
View File

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