fa3ee3b10b
SQLITE_ENABLE_PREUPDATE_HOOK is not defined. Fix for test-case breakage from check-in [c006515ae6faff65]. FossilOrigin-Name: 937d3a45b3fef354dbdea2085fbb7d9c752a96e8ebb62f61931deb5a64132946
64 lines
1.5 KiB
Plaintext
64 lines
1.5 KiB
Plaintext
# 2022 Feb 10
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
set testprefix bind2
|
|
|
|
|
|
# Test that using bind_value() on a REAL sqlite3_value that was stored
|
|
# as an INTEGER works properly.
|
|
#
|
|
# 1.1: An IntReal value read from a table,
|
|
# 1.2: IntReal values obtained via the sqlite3_preupdate_old|new()
|
|
# interfaces.
|
|
#
|
|
do_execsql_test 1.0 {
|
|
CREATE TABLE t1(a REAL);
|
|
INSERT INTO t1 VALUES(42.0);
|
|
SELECT * FROM t1;
|
|
} {42.0}
|
|
|
|
do_test 1.1 {
|
|
set stmt [sqlite3_prepare db "SELECT ?" -1 tail]
|
|
sqlite3_bind_value_from_select $stmt 1 "SELECT a FROM t1"
|
|
sqlite3_step $stmt
|
|
sqlite3_column_text $stmt 0
|
|
} {42.0}
|
|
sqlite3_finalize $stmt
|
|
|
|
ifcapable !preupdate {
|
|
finish_test
|
|
return
|
|
}
|
|
|
|
proc preup {args} {
|
|
set stmt [sqlite3_prepare db "SELECT ?" -1 tail]
|
|
sqlite3_bind_value_from_preupdate $stmt 1 old 0
|
|
sqlite3_step $stmt
|
|
lappend ::reslist [sqlite3_column_text $stmt 0]
|
|
sqlite3_reset $stmt
|
|
sqlite3_bind_value_from_preupdate $stmt 1 new 0
|
|
sqlite3_step $stmt
|
|
lappend ::reslist [sqlite3_column_text $stmt 0]
|
|
sqlite3_finalize $stmt
|
|
}
|
|
db preupdate hook preup
|
|
|
|
do_test 1.2 {
|
|
set ::reslist [list]
|
|
execsql { UPDATE t1 SET a=43; }
|
|
set ::reslist
|
|
} {42.0 43.0}
|
|
|
|
finish_test
|