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

Fixes for compilation/testing when the various OMIT macros are defined. (CVS 4423)

FossilOrigin-Name: c8405b15c074c94dab5e33272cf1471f458d11df
This commit is contained in:
danielk1977
2007-09-12 17:01:45 +00:00
parent a430ae8e54
commit 4152e677b8
47 changed files with 932 additions and 789 deletions

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.61 2007/09/01 06:51:28 danielk1977 Exp $
# $Id: tclsqlite.test,v 1.62 2007/09/12 17:01:45 danielk1977 Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -460,35 +460,37 @@ do_test tcl-12.1 {
# 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)}
set x abc123
db eval {INSERT INTO t5 VALUES($x)}
db eval {SELECT typeof(x) FROM t5}
} {text}
do_test tcl-13.2 {
binary scan $x H notUsed
db eval {
DELETE FROM t5;
INSERT INTO t5 VALUES($x);
SELECT typeof(x) FROM t5;
}
} {text}
do_test tcl-13.3 {
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}
ifcapable tclvar {
do_test tcl-13.1 {
db eval {CREATE TABLE t5(x BLOB)}
set x abc123
db eval {INSERT INTO t5 VALUES($x)}
db eval {SELECT typeof(x) FROM t5}
} {text}
do_test tcl-13.2 {
binary scan $x H notUsed
db eval {
DELETE FROM t5;
INSERT INTO t5 VALUES($x);
SELECT typeof(x) FROM t5;
}
} {text}
do_test tcl-13.3 {
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