1# 2016 July 14 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# This file implements regression tests for SQLite library. The focus of 12# this test file is the "sqlite3_trace_v2()" and "sqlite3_expanded_sql()" 13# APIs. 14# 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18ifcapable !trace { finish_test ; return } 19set ::testprefix trace3 20 21proc trace_v2_error { args } { 22 lappend ::stmtlist(error) [string trim $args] 23 error "trace error"; # this will be ignored. 24} 25proc trace_v2_record { args } { 26 lappend ::stmtlist(record) [string trim $args] 27} 28proc trace_v2_nop { args } {}; # do nothing. 29 30do_test trace3-1.0 { 31 execsql { 32 CREATE TABLE t1(a,b); 33 INSERT INTO t1 VALUES(1,NULL); 34 INSERT INTO t1 VALUES(2,-1); 35 INSERT INTO t1 VALUES(3,0); 36 INSERT INTO t1 VALUES(4,1); 37 INSERT INTO t1 VALUES(5,-2147483648); 38 INSERT INTO t1 VALUES(6,2147483647); 39 INSERT INTO t1 VALUES(7,-9223372036854775808); 40 INSERT INTO t1 VALUES(8,9223372036854775807); 41 INSERT INTO t1 VALUES(9,-1.0); 42 INSERT INTO t1 VALUES(10,0.0); 43 INSERT INTO t1 VALUES(11,1.0); 44 INSERT INTO t1 VALUES(12,''); 45 INSERT INTO t1 VALUES(13,'1'); 46 INSERT INTO t1 VALUES(14,'one'); 47 INSERT INTO t1 VALUES(15,x'abcd0123'); 48 INSERT INTO t1 VALUES(16,x'4567cdef'); 49 } 50} {} 51 52do_test trace3-1.1 { 53 set rc [catch {db trace_v2 1 2 3} msg] 54 lappend rc $msg 55} {1 {wrong # args: should be "db trace_v2 ?CALLBACK? ?MASK?"}} 56do_test trace3-1.2 { 57 set rc [catch {db trace_v2 1 bad} msg] 58 lappend rc $msg 59} {1 {bad trace type "bad": must be statement, profile, row, or close}} 60 61do_test trace3-2.1 { 62 db trace_v2 trace_v2_nop 63 db trace_v2 64} {trace_v2_nop} 65 66do_test trace3-3.1 { 67 unset -nocomplain ::stmtlist 68 db trace_v2 trace_v2_nop 69 execsql { 70 SELECT a, b FROM t1 ORDER BY a; 71 } 72 array get ::stmtlist 73} {} 74do_test trace3-3.2 { 75 set ::stmtlist(error) {} 76 db trace_v2 trace_v2_error 77 execsql { 78 SELECT a, b FROM t1 ORDER BY a; 79 } 80 set ::stmtlist(error) 81} {/^\{-?\d+ \{SELECT a, b FROM t1 ORDER BY a;\}\}$/} 82do_test trace3-3.3 { 83 set ::stmtlist(record) {} 84 db trace_v2 trace_v2_record 85 execsql { 86 SELECT a, b FROM t1 ORDER BY a; 87 } 88 set ::stmtlist(record) 89} {/^\{-?\d+ \{SELECT a, b FROM t1 ORDER BY a;\}\}$/} 90do_test trace3-3.4 { 91 set ::stmtlist(record) {} 92 db trace_v2 trace_v2_record statement 93 execsql { 94 SELECT a, b FROM t1 ORDER BY a; 95 } 96 set ::stmtlist(record) 97} {/^\{-?\d+ \{SELECT a, b FROM t1 ORDER BY a;\}\}$/} 98do_test trace3-3.5 { 99 set ::stmtlist(record) {} 100 db trace_v2 trace_v2_record 1 101 execsql { 102 SELECT a, b FROM t1 ORDER BY a; 103 } 104 set ::stmtlist(record) 105} {/^\{-?\d+ \{SELECT a, b FROM t1 ORDER BY a;\}\}$/} 106 107do_test trace3-4.1 { 108 set ::stmtlist(record) {} 109 db trace_v2 trace_v2_record profile 110 execsql { 111 SELECT a, b FROM t1 ORDER BY a; 112 } 113 set ::stmtlist(record) 114} {/^\{-?\d+ -?\d+\}$/} 115do_test trace3-4.2 { 116 set ::stmtlist(record) {} 117 db trace_v2 trace_v2_record 2 118 execsql { 119 SELECT a, b FROM t1 ORDER BY a; 120 } 121 set ::stmtlist(record) 122} {/^\{-?\d+ -?\d+\}$/} 123 124do_test trace3-5.1 { 125 set ::stmtlist(record) {} 126 db trace_v2 trace_v2_record row 127 execsql { 128 SELECT a, b FROM t1 ORDER BY a; 129 } 130 set ::stmtlist(record) 131} "/^[string trim [string repeat {-?\d+ } 16]]\$/" 132do_test trace3-5.2 { 133 set ::stmtlist(record) {} 134 db trace_v2 trace_v2_record 4 135 execsql { 136 SELECT a, b FROM t1 ORDER BY a; 137 } 138 set ::stmtlist(record) 139} "/^[string trim [string repeat {-?\d+ } 16]]\$/" 140 141do_test trace3-6.1 { 142 set ::stmtlist(record) {} 143 db trace_v2 trace_v2_record {profile row} 144 execsql { 145 SELECT a, b FROM t1 ORDER BY a; 146 } 147 set ::stmtlist(record) 148} "/^[string trim [string repeat {-?\d+ } 16]] \\\{-?\\d+ -?\\d+\\\}\$/" 149do_test trace3-6.2 { 150 set ::stmtlist(record) {} 151 db trace_v2 trace_v2_record {statement profile row} 152 execsql { 153 SELECT a, b FROM t1 ORDER BY a; 154 } 155 set ::stmtlist(record) 156} "/^\\\{-?\\d+ \\\{SELECT a, b FROM t1 ORDER BY a;\\\}\\\} [string trim \ 157[string repeat {-?\d+ } 16]] \\\{-?\\d+ -?\\d+\\\}\$/" 158 159do_test trace3-7.1 { 160 set DB [sqlite3_connection_pointer db] 161 162 set STMT [sqlite3_prepare_v2 $DB \ 163 "SELECT a, b FROM t1 WHERE b = ? ORDER BY a;" -1 TAIL] 164} {/^[0-9A-Fa-f]+$/} 165 166do_test trace3-8.1 { 167 list [sqlite3_bind_null $STMT 1] [sqlite3_expanded_sql $STMT] 168} {{} {SELECT a, b FROM t1 WHERE b = NULL ORDER BY a;}} 169do_test trace3-8.2 { 170 list [sqlite3_bind_int $STMT 1 123] [sqlite3_expanded_sql $STMT] 171} {{} {SELECT a, b FROM t1 WHERE b = 123 ORDER BY a;}} 172do_test trace3-8.3 { 173 list [sqlite3_bind_int64 $STMT 1 123] [sqlite3_expanded_sql $STMT] 174} {{} {SELECT a, b FROM t1 WHERE b = 123 ORDER BY a;}} 175do_test trace3-8.4 { 176 list [sqlite3_bind_text $STMT 1 "some string" 11] \ 177 [sqlite3_expanded_sql $STMT] 178} {{} {SELECT a, b FROM t1 WHERE b = 'some string' ORDER BY a;}} 179do_test trace3-8.5 { 180 list [sqlite3_bind_text $STMT 1 "some 'bad' string" 17] \ 181 [sqlite3_expanded_sql $STMT] 182} {{} {SELECT a, b FROM t1 WHERE b = 'some ''bad'' string' ORDER BY a;}} 183do_test trace3-8.6 { 184 list [sqlite3_bind_double $STMT 1 123] [sqlite3_expanded_sql $STMT] 185} {{} {SELECT a, b FROM t1 WHERE b = 123.0 ORDER BY a;}} 186do_test trace3-8.7 { 187 list [sqlite3_bind_text16 $STMT 1 \ 188 [encoding convertto unicode hi\000yall\000] 16] \ 189 [sqlite3_expanded_sql $STMT] 190} {{} {SELECT a, b FROM t1 WHERE b = 'hi' ORDER BY a;}} 191do_test trace3-8.8 { 192 list [sqlite3_bind_blob $STMT 1 "\x12\x34\x56" 3] \ 193 [sqlite3_expanded_sql $STMT] 194} {{} {SELECT a, b FROM t1 WHERE b = x'123456' ORDER BY a;}} 195do_test trace3-8.9 { 196 list [sqlite3_bind_blob $STMT 1 "\xAB\xCD\xEF" 3] \ 197 [sqlite3_expanded_sql $STMT] 198} {{} {SELECT a, b FROM t1 WHERE b = x'abcdef' ORDER BY a;}} 199 200do_test trace3-9.1 { 201 sqlite3_finalize $STMT 202} {SQLITE_OK} 203 204do_test trace3-10.1 { 205 db trace_v2 "" 206 db trace_v2 207} {} 208do_test trace3-10.2 { 209 unset -nocomplain ::stmtlist 210 db trace_v2 "" {statement profile row} 211 execsql { 212 SELECT a, b FROM t1 ORDER BY a; 213 } 214 array get ::stmtlist 215} {} 216 217do_test trace3-11.1 { 218 set ::stmtlist(record) {} 219 db trace_v2 trace_v2_record close 220 db close 221 set ::stmtlist(record) 222} {/^-?\d+$/} 223 224reset_db 225 226do_test trace3-11.2 { 227 set ::stmtlist(record) {} 228 db trace_v2 trace_v2_record 8 229 db close 230 set ::stmtlist(record) 231} {/^-?\d+$/} 232 233finish_test 234