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

Tcl interface transfers values directly between SQLite and Tcl_Objs, without

Browse Source 
at translation to strings. (CVS 1898)

FossilOrigin-Name: e97c331362545ce21117776c7b61d3488668f2bf
This commit is contained in:
drh
2004-08-20 18:34:20 +00:00
parent 895d747226
commit 92febd92ad
29 changed files with 327 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
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.29 2004/08/20 16:02:39 drh Exp $
# $Id: tclsqlite.test,v 1.30 2004/08/20 18:34:20 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -185,4 +185,39 @@ do_test tcl-4.2 {
db busy
} {}
# Parsing of TCL variable names within SQL into bound parameters.
#
do_test tcl-5.1 {
execsql {CREATE TABLE t3(a,b,c)}
catch {unset x}
set x(1) 5
set x(2) 7
execsql {
INSERT INTO t3 VALUES($::x(1),$::x(2),$::x(3));
SELECT * FROM t3
}
} {5 7 {}}
do_test tcl-5.2 {
execsql {
SELECT typeof(a), typeof(b), typeof(c) FROM t3
}
} {text text null}
do_test tcl-5.3 {
catch {unset x}
set x [binary format h12 686900686f00]
execsql {
UPDATE t3 SET a=$::x;
}
db eval {
SELECT a FROM t3
} break
binary scan $a h12 adata
set adata
} {686900686f00}
do_test tcl-5.4 {
execsql {
SELECT typeof(a), typeof(b), typeof(c) FROM t3
}
} {blob text null}
finish_test