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

Change the TCL bindings so that @aaa always treats the variable aaa as

Browse Source 
a bytearray and binds the value as a BLOB.  This change is backwards
compatible since the $ behavior is unchanged and @ was not accepted
until the current round of changes. (CVS 4094)

FossilOrigin-Name: 6f7d55acedc92eeaf988425c719addd56209187f
This commit is contained in:
drh
2007-06-19 23:01:41 +00:00
parent 59fffd02de
commit 1c747819de
4 changed files with 25 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
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.58 2007/06/19 17:15:47 drh Exp $
# $Id: tclsqlite.test,v 1.59 2007/06/19 23:01:42 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -456,8 +456,8 @@ do_test tcl-12.1 {
# Check to see that when bindings of the form @aaa are used instead
# of $aaa, that objects with a bytearray representation are inserted
# as BLOBs even if they also have a string representation.
# of $aaa, that objects are treated as bytearray and are inserted
# as BLOBs.
#
do_test tcl-13.1 {
db eval {CREATE TABLE t5(x BLOB)}
@ -474,12 +474,20 @@ do_test tcl-13.2 {
}
} {text}
do_test tcl-13.3 {
btree_breakpoint
db eval {
DELETE FROM t5;
INSERT INTO t5 VALUES(@x);
SELECT typeof(x) FROM t5;
}
} {blob}
do_test tcl-13.4 {
set y 1234
db eval {
DELETE FROM t5;
INSERT INTO t5 VALUES(@y);
SELECT hex(x), typeof(x) FROM t5
}
} {31323334 blob}
finish_test