drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 1 | # 2003 September 6 |
| 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 |
| 12 | # focus of this script testing the sqlite_bind API. |
| 13 | # |
drh | f9cb7f5 | 2006-06-27 20:06:44 +0000 | [diff] [blame^] | 14 | # $Id: bind.test,v 1.38 2006/06/27 20:06:45 drh Exp $ |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 15 | # |
| 16 | |
| 17 | set testdir [file dirname $argv0] |
| 18 | source $testdir/tester.tcl |
| 19 | |
danielk1977 | 17240fd | 2004-05-26 00:07:25 +0000 | [diff] [blame] | 20 | proc sqlite_step {stmt N VALS COLS} { |
| 21 | upvar VALS vals |
| 22 | upvar COLS cols |
| 23 | set vals [list] |
| 24 | set cols [list] |
| 25 | |
| 26 | set rc [sqlite3_step $stmt] |
| 27 | for {set i 0} {$i < [sqlite3_column_count $stmt]} {incr i} { |
| 28 | lappend cols [sqlite3_column_name $stmt $i] |
| 29 | } |
| 30 | for {set i 0} {$i < [sqlite3_data_count $stmt]} {incr i} { |
drh | eb2e176 | 2004-05-27 01:53:56 +0000 | [diff] [blame] | 31 | lappend vals [sqlite3_column_text $stmt $i] |
danielk1977 | 17240fd | 2004-05-26 00:07:25 +0000 | [diff] [blame] | 32 | } |
| 33 | |
| 34 | return $rc |
| 35 | } |
| 36 | |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 37 | do_test bind-1.1 { |
drh | dddca28 | 2006-01-03 00:33:50 +0000 | [diff] [blame] | 38 | set DB [sqlite3_connection_pointer db] |
drh | 2c6674c | 2004-08-25 04:07:01 +0000 | [diff] [blame] | 39 | execsql {CREATE TABLE t1(a,b,c);} |
| 40 | set VM [sqlite3_prepare $DB {INSERT INTO t1 VALUES(:1,?,:abc)} -1 TAIL] |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 41 | set TAIL |
| 42 | } {} |
drh | 75f6a03 | 2004-07-15 14:15:00 +0000 | [diff] [blame] | 43 | do_test bind-1.1.1 { |
| 44 | sqlite3_bind_parameter_count $VM |
| 45 | } 3 |
drh | 895d747 | 2004-08-20 16:02:39 +0000 | [diff] [blame] | 46 | do_test bind-1.1.2 { |
| 47 | sqlite3_bind_parameter_name $VM 1 |
drh | 2c6674c | 2004-08-25 04:07:01 +0000 | [diff] [blame] | 48 | } {:1} |
drh | 895d747 | 2004-08-20 16:02:39 +0000 | [diff] [blame] | 49 | do_test bind-1.1.3 { |
| 50 | sqlite3_bind_parameter_name $VM 2 |
| 51 | } {} |
| 52 | do_test bind-1.1.4 { |
| 53 | sqlite3_bind_parameter_name $VM 3 |
drh | 2c6674c | 2004-08-25 04:07:01 +0000 | [diff] [blame] | 54 | } {:abc} |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 55 | do_test bind-1.2 { |
| 56 | sqlite_step $VM N VALUES COLNAMES |
| 57 | } {SQLITE_DONE} |
| 58 | do_test bind-1.3 { |
| 59 | execsql {SELECT rowid, * FROM t1} |
| 60 | } {1 {} {} {}} |
| 61 | do_test bind-1.4 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 62 | sqlite3_reset $VM |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 63 | sqlite_bind $VM 1 {test value 1} normal |
| 64 | sqlite_step $VM N VALUES COLNAMES |
| 65 | } SQLITE_DONE |
| 66 | do_test bind-1.5 { |
| 67 | execsql {SELECT rowid, * FROM t1} |
| 68 | } {1 {} {} {} 2 {test value 1} {} {}} |
| 69 | do_test bind-1.6 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 70 | sqlite3_reset $VM |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 71 | sqlite_bind $VM 3 {'test value 2'} normal |
| 72 | sqlite_step $VM N VALUES COLNAMES |
| 73 | } SQLITE_DONE |
| 74 | do_test bind-1.7 { |
| 75 | execsql {SELECT rowid, * FROM t1} |
| 76 | } {1 {} {} {} 2 {test value 1} {} {} 3 {test value 1} {} {'test value 2'}} |
| 77 | do_test bind-1.8 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 78 | sqlite3_reset $VM |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 79 | set sqlite_static_bind_value 123 |
| 80 | sqlite_bind $VM 1 {} static |
| 81 | sqlite_bind $VM 2 {abcdefg} normal |
| 82 | sqlite_bind $VM 3 {} null |
| 83 | execsql {DELETE FROM t1} |
| 84 | sqlite_step $VM N VALUES COLNAMES |
| 85 | execsql {SELECT rowid, * FROM t1} |
| 86 | } {1 123 abcdefg {}} |
| 87 | do_test bind-1.9 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 88 | sqlite3_reset $VM |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 89 | sqlite_bind $VM 1 {456} normal |
| 90 | sqlite_step $VM N VALUES COLNAMES |
| 91 | execsql {SELECT rowid, * FROM t1} |
| 92 | } {1 123 abcdefg {} 2 456 abcdefg {}} |
| 93 | |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 94 | do_test bind-1.99 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 95 | sqlite3_finalize $VM |
danielk1977 | 3cf8606 | 2004-05-26 10:11:05 +0000 | [diff] [blame] | 96 | } SQLITE_OK |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 97 | |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 98 | # Prepare the statement in different ways depending on whether or not |
| 99 | # the $var processing is compiled into the library. |
| 100 | # |
| 101 | ifcapable {tclvar} { |
| 102 | do_test bind-2.1 { |
| 103 | execsql { |
| 104 | DELETE FROM t1; |
| 105 | } |
drh | 288d37f | 2005-06-22 08:48:06 +0000 | [diff] [blame] | 106 | set VM [sqlite3_prepare $DB {INSERT INTO t1 VALUES($one,$::two,$x(-z-))}\ |
drh | 48e5aa2 | 2005-01-11 17:46:41 +0000 | [diff] [blame] | 107 | -1 TX] |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 108 | set TX |
| 109 | } {} |
| 110 | set v1 {$one} |
| 111 | set v2 {$::two} |
drh | 288d37f | 2005-06-22 08:48:06 +0000 | [diff] [blame] | 112 | set v3 {$x(-z-)} |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 113 | } |
| 114 | ifcapable {!tclvar} { |
| 115 | do_test bind-2.1 { |
| 116 | execsql { |
| 117 | DELETE FROM t1; |
| 118 | } |
| 119 | set VM [sqlite3_prepare $DB {INSERT INTO t1 VALUES(:one,:two,:_)} -1 TX] |
| 120 | set TX |
| 121 | } {} |
| 122 | set v1 {:one} |
| 123 | set v2 {:two} |
| 124 | set v3 {:_} |
| 125 | } |
| 126 | |
drh | 895d747 | 2004-08-20 16:02:39 +0000 | [diff] [blame] | 127 | do_test bind-2.1.1 { |
| 128 | sqlite3_bind_parameter_count $VM |
| 129 | } 3 |
| 130 | do_test bind-2.1.2 { |
| 131 | sqlite3_bind_parameter_name $VM 1 |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 132 | } $v1 |
drh | 895d747 | 2004-08-20 16:02:39 +0000 | [diff] [blame] | 133 | do_test bind-2.1.3 { |
| 134 | sqlite3_bind_parameter_name $VM 2 |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 135 | } $v2 |
drh | 895d747 | 2004-08-20 16:02:39 +0000 | [diff] [blame] | 136 | do_test bind-2.1.4 { |
| 137 | sqlite3_bind_parameter_name $VM 3 |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 138 | } $v3 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 139 | do_test bind-2.1.5 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 140 | sqlite3_bind_parameter_index $VM $v1 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 141 | } 1 |
| 142 | do_test bind-2.1.6 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 143 | sqlite3_bind_parameter_index $VM $v2 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 144 | } 2 |
| 145 | do_test bind-2.1.7 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 146 | sqlite3_bind_parameter_index $VM $v3 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 147 | } 3 |
| 148 | do_test bind-2.1.8 { |
| 149 | sqlite3_bind_parameter_index $VM {:hi} |
| 150 | } 0 |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 151 | |
| 152 | # 32 bit Integers |
| 153 | do_test bind-2.2 { |
drh | 241db31 | 2004-06-22 12:46:53 +0000 | [diff] [blame] | 154 | sqlite3_bind_int $VM 1 123 |
| 155 | sqlite3_bind_int $VM 2 456 |
| 156 | sqlite3_bind_int $VM 3 789 |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 157 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 158 | sqlite3_reset $VM |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 159 | execsql {SELECT rowid, * FROM t1} |
| 160 | } {1 123 456 789} |
| 161 | do_test bind-2.3 { |
drh | 241db31 | 2004-06-22 12:46:53 +0000 | [diff] [blame] | 162 | sqlite3_bind_int $VM 2 -2000000000 |
| 163 | sqlite3_bind_int $VM 3 2000000000 |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 164 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 165 | sqlite3_reset $VM |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 166 | execsql {SELECT rowid, * FROM t1} |
| 167 | } {1 123 456 789 2 123 -2000000000 2000000000} |
| 168 | do_test bind-2.4 { |
danielk1977 | 35bb9d0 | 2004-05-24 12:55:54 +0000 | [diff] [blame] | 169 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 170 | } {integer integer integer integer integer integer} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 171 | do_test bind-2.5 { |
| 172 | execsql { |
| 173 | DELETE FROM t1; |
| 174 | } |
| 175 | } {} |
| 176 | |
| 177 | # 64 bit Integers |
| 178 | do_test bind-3.1 { |
| 179 | sqlite3_bind_int64 $VM 1 32 |
| 180 | sqlite3_bind_int64 $VM 2 -2000000000000 |
| 181 | sqlite3_bind_int64 $VM 3 2000000000000 |
| 182 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 183 | sqlite3_reset $VM |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 184 | execsql {SELECT rowid, * FROM t1} |
| 185 | } {1 32 -2000000000000 2000000000000} |
| 186 | do_test bind-3.2 { |
danielk1977 | 35bb9d0 | 2004-05-24 12:55:54 +0000 | [diff] [blame] | 187 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 188 | } {integer integer integer} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 189 | do_test bind-3.3 { |
| 190 | execsql { |
| 191 | DELETE FROM t1; |
| 192 | } |
| 193 | } {} |
| 194 | |
| 195 | # Doubles |
| 196 | do_test bind-4.1 { |
| 197 | sqlite3_bind_double $VM 1 1234.1234 |
| 198 | sqlite3_bind_double $VM 2 0.00001 |
| 199 | sqlite3_bind_double $VM 3 123456789 |
| 200 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 201 | sqlite3_reset $VM |
drh | ab34b8f | 2005-03-20 23:18:57 +0000 | [diff] [blame] | 202 | set x [execsql {SELECT rowid, * FROM t1}] |
| 203 | regsub {1e-005} $x {1e-05} y |
| 204 | set y |
drh | 92febd9 | 2004-08-20 18:34:20 +0000 | [diff] [blame] | 205 | } {1 1234.1234 1e-05 123456789.0} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 206 | do_test bind-4.2 { |
danielk1977 | 35bb9d0 | 2004-05-24 12:55:54 +0000 | [diff] [blame] | 207 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 208 | } {real real real} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 209 | do_test bind-4.3 { |
| 210 | execsql { |
| 211 | DELETE FROM t1; |
| 212 | } |
| 213 | } {} |
| 214 | |
| 215 | # NULL |
| 216 | do_test bind-5.1 { |
| 217 | sqlite3_bind_null $VM 1 |
| 218 | sqlite3_bind_null $VM 2 |
| 219 | sqlite3_bind_null $VM 3 |
| 220 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 221 | sqlite3_reset $VM |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 222 | execsql {SELECT rowid, * FROM t1} |
| 223 | } {1 {} {} {}} |
| 224 | do_test bind-5.2 { |
danielk1977 | 35bb9d0 | 2004-05-24 12:55:54 +0000 | [diff] [blame] | 225 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 226 | } {null null null} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 227 | do_test bind-5.3 { |
| 228 | execsql { |
| 229 | DELETE FROM t1; |
| 230 | } |
| 231 | } {} |
| 232 | |
| 233 | # UTF-8 text |
| 234 | do_test bind-6.1 { |
| 235 | sqlite3_bind_text $VM 1 hellothere 5 |
danielk1977 | c572ef7 | 2004-05-27 09:28:41 +0000 | [diff] [blame] | 236 | sqlite3_bind_text $VM 2 ".." 1 |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 237 | sqlite3_bind_text $VM 3 world -1 |
| 238 | sqlite_step $VM N VALUES COLNAMES |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 239 | sqlite3_reset $VM |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 240 | execsql {SELECT rowid, * FROM t1} |
| 241 | } {1 hello . world} |
| 242 | do_test bind-6.2 { |
danielk1977 | 35bb9d0 | 2004-05-24 12:55:54 +0000 | [diff] [blame] | 243 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 244 | } {text text text} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 245 | do_test bind-6.3 { |
| 246 | execsql { |
| 247 | DELETE FROM t1; |
| 248 | } |
| 249 | } {} |
| 250 | |
| 251 | # UTF-16 text |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 252 | ifcapable {utf16} { |
| 253 | do_test bind-7.1 { |
| 254 | sqlite3_bind_text16 $VM 1 [encoding convertto unicode hellothere] 10 |
| 255 | sqlite3_bind_text16 $VM 2 [encoding convertto unicode ""] 0 |
| 256 | sqlite3_bind_text16 $VM 3 [encoding convertto unicode world] 10 |
| 257 | sqlite_step $VM N VALUES COLNAMES |
| 258 | sqlite3_reset $VM |
| 259 | execsql {SELECT rowid, * FROM t1} |
| 260 | } {1 hello {} world} |
| 261 | do_test bind-7.2 { |
| 262 | execsql {SELECT typeof(a), typeof(b), typeof(c) FROM t1} |
| 263 | } {text text text} |
| 264 | } |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 265 | do_test bind-7.3 { |
| 266 | execsql { |
| 267 | DELETE FROM t1; |
| 268 | } |
| 269 | } {} |
| 270 | |
danielk1977 | 6622cce | 2004-05-20 11:00:52 +0000 | [diff] [blame] | 271 | # Test that the 'out of range' error works. |
| 272 | do_test bind-8.1 { |
| 273 | catch { sqlite3_bind_null $VM 0 } |
| 274 | } {1} |
| 275 | do_test bind-8.2 { |
| 276 | sqlite3_errmsg $DB |
drh | b08153d | 2004-11-20 20:18:55 +0000 | [diff] [blame] | 277 | } {bind or column index out of range} |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 278 | ifcapable {utf16} { |
| 279 | do_test bind-8.3 { |
| 280 | encoding convertfrom unicode [sqlite3_errmsg16 $DB] |
drh | b08153d | 2004-11-20 20:18:55 +0000 | [diff] [blame] | 281 | } {bind or column index out of range} |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 282 | } |
danielk1977 | 6622cce | 2004-05-20 11:00:52 +0000 | [diff] [blame] | 283 | do_test bind-8.4 { |
| 284 | sqlite3_bind_null $VM 1 |
| 285 | sqlite3_errmsg $DB |
| 286 | } {not an error} |
| 287 | do_test bind-8.5 { |
| 288 | catch { sqlite3_bind_null $VM 4 } |
| 289 | } {1} |
| 290 | do_test bind-8.6 { |
| 291 | sqlite3_errmsg $DB |
drh | b08153d | 2004-11-20 20:18:55 +0000 | [diff] [blame] | 292 | } {bind or column index out of range} |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 293 | ifcapable {utf16} { |
| 294 | do_test bind-8.7 { |
| 295 | encoding convertfrom unicode [sqlite3_errmsg16 $DB] |
drh | b08153d | 2004-11-20 20:18:55 +0000 | [diff] [blame] | 296 | } {bind or column index out of range} |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 297 | } |
danielk1977 | 6622cce | 2004-05-20 11:00:52 +0000 | [diff] [blame] | 298 | |
danielk1977 | f461889 | 2004-06-28 13:09:11 +0000 | [diff] [blame] | 299 | do_test bind-8.8 { |
| 300 | catch { sqlite3_bind_blob $VM 0 "abc" 3 } |
| 301 | } {1} |
| 302 | do_test bind-8.9 { |
| 303 | catch { sqlite3_bind_blob $VM 4 "abc" 3 } |
| 304 | } {1} |
| 305 | do_test bind-8.10 { |
| 306 | catch { sqlite3_bind_text $VM 0 "abc" 3 } |
| 307 | } {1} |
drh | 6c62608 | 2004-11-14 21:56:29 +0000 | [diff] [blame] | 308 | ifcapable {utf16} { |
| 309 | do_test bind-8.11 { |
| 310 | catch { sqlite3_bind_text16 $VM 4 "abc" 2 } |
| 311 | } {1} |
| 312 | } |
danielk1977 | f461889 | 2004-06-28 13:09:11 +0000 | [diff] [blame] | 313 | do_test bind-8.12 { |
| 314 | catch { sqlite3_bind_int $VM 0 5 } |
| 315 | } {1} |
| 316 | do_test bind-8.13 { |
| 317 | catch { sqlite3_bind_int $VM 4 5 } |
| 318 | } {1} |
| 319 | do_test bind-8.14 { |
| 320 | catch { sqlite3_bind_double $VM 0 5.0 } |
| 321 | } {1} |
| 322 | do_test bind-8.15 { |
| 323 | catch { sqlite3_bind_double $VM 4 6.0 } |
| 324 | } {1} |
danielk1977 | 6622cce | 2004-05-20 11:00:52 +0000 | [diff] [blame] | 325 | |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 326 | do_test bind-8.99 { |
danielk1977 | 106bb23 | 2004-05-21 10:08:53 +0000 | [diff] [blame] | 327 | sqlite3_finalize $VM |
danielk1977 | 3cf8606 | 2004-05-26 10:11:05 +0000 | [diff] [blame] | 328 | } SQLITE_OK |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 329 | |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 330 | do_test bind-9.1 { |
| 331 | execsql { |
| 332 | CREATE TABLE t2(a,b,c,d,e,f); |
| 333 | } |
| 334 | set rc [catch { |
| 335 | sqlite3_prepare $DB { |
| 336 | INSERT INTO t2(a) VALUES(?0) |
| 337 | } -1 TAIL |
| 338 | } msg] |
| 339 | lappend rc $msg |
| 340 | } {1 {(1) variable number must be between ?1 and ?999}} |
| 341 | do_test bind-9.2 { |
| 342 | set rc [catch { |
| 343 | sqlite3_prepare $DB { |
| 344 | INSERT INTO t2(a) VALUES(?1000) |
| 345 | } -1 TAIL |
| 346 | } msg] |
| 347 | lappend rc $msg |
| 348 | } {1 {(1) variable number must be between ?1 and ?999}} |
| 349 | do_test bind-9.3 { |
| 350 | set VM [ |
| 351 | sqlite3_prepare $DB { |
| 352 | INSERT INTO t2(a,b) VALUES(?1,?999) |
| 353 | } -1 TAIL |
| 354 | ] |
| 355 | sqlite3_bind_parameter_count $VM |
| 356 | } {999} |
| 357 | catch {sqlite3_finalize $VM} |
| 358 | do_test bind-9.4 { |
| 359 | set VM [ |
| 360 | sqlite3_prepare $DB { |
| 361 | INSERT INTO t2(a,b,c,d) VALUES(?1,?999,?,?) |
| 362 | } -1 TAIL |
| 363 | ] |
| 364 | sqlite3_bind_parameter_count $VM |
| 365 | } {1001} |
| 366 | do_test bind-9.5 { |
| 367 | sqlite3_bind_int $VM 1 1 |
| 368 | sqlite3_bind_int $VM 999 999 |
| 369 | sqlite3_bind_int $VM 1000 1000 |
| 370 | sqlite3_bind_int $VM 1001 1001 |
| 371 | sqlite3_step $VM |
| 372 | } SQLITE_DONE |
| 373 | do_test bind-9.6 { |
| 374 | sqlite3_finalize $VM |
| 375 | } SQLITE_OK |
| 376 | do_test bind-9.7 { |
| 377 | execsql {SELECT * FROM t2} |
| 378 | } {1 999 1000 1001 {} {}} |
danielk1977 | 51e3d8e | 2004-05-20 01:12:34 +0000 | [diff] [blame] | 379 | |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 380 | ifcapable {tclvar} { |
| 381 | do_test bind-10.1 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 382 | set VM [ |
| 383 | sqlite3_prepare $DB { |
| 384 | INSERT INTO t2(a,b,c,d,e,f) VALUES(:abc,$abc,:abc,$ab,$abc,:abc) |
| 385 | } -1 TAIL |
| 386 | ] |
| 387 | sqlite3_bind_parameter_count $VM |
| 388 | } 3 |
| 389 | set v1 {$abc} |
| 390 | set v2 {$ab} |
| 391 | } |
| 392 | ifcapable {!tclvar} { |
| 393 | do_test bind-10.1 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 394 | set VM [ |
| 395 | sqlite3_prepare $DB { |
| 396 | INSERT INTO t2(a,b,c,d,e,f) VALUES(:abc,:xyz,:abc,:xy,:xyz,:abc) |
| 397 | } -1 TAIL |
| 398 | ] |
| 399 | sqlite3_bind_parameter_count $VM |
| 400 | } 3 |
| 401 | set v1 {:xyz} |
| 402 | set v2 {:xy} |
| 403 | } |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 404 | do_test bind-10.2 { |
| 405 | sqlite3_bind_parameter_index $VM :abc |
| 406 | } 1 |
| 407 | do_test bind-10.3 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 408 | sqlite3_bind_parameter_index $VM $v1 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 409 | } 2 |
| 410 | do_test bind-10.4 { |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 411 | sqlite3_bind_parameter_index $VM $v2 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 412 | } 3 |
| 413 | do_test bind-10.5 { |
| 414 | sqlite3_bind_parameter_name $VM 1 |
| 415 | } :abc |
| 416 | do_test bind-10.6 { |
| 417 | sqlite3_bind_parameter_name $VM 2 |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 418 | } $v1 |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 419 | do_test bind-10.7 { |
| 420 | sqlite3_bind_parameter_name $VM 3 |
drh | 6bf8957 | 2004-11-03 16:27:01 +0000 | [diff] [blame] | 421 | } $v2 |
drh | c5cdca6 | 2005-01-11 16:54:14 +0000 | [diff] [blame] | 422 | do_test bind-10.7.1 { |
| 423 | sqlite3_bind_parameter_name 0 1 ;# Ignore if VM is NULL |
| 424 | } {} |
| 425 | do_test bind-10.7.2 { |
| 426 | sqlite3_bind_parameter_name $VM 0 ;# Ignore if index too small |
| 427 | } {} |
| 428 | do_test bind-10.7.3 { |
| 429 | sqlite3_bind_parameter_name $VM 4 ;# Ignore if index is too big |
| 430 | } {} |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 431 | do_test bind-10.8 { |
| 432 | sqlite3_bind_int $VM 1 1 |
| 433 | sqlite3_bind_int $VM 2 2 |
| 434 | sqlite3_bind_int $VM 3 3 |
| 435 | sqlite3_step $VM |
| 436 | } SQLITE_DONE |
drh | c5cdca6 | 2005-01-11 16:54:14 +0000 | [diff] [blame] | 437 | do_test bind-10.8.1 { |
| 438 | # Binding attempts after program start should fail |
| 439 | set rc [catch { |
| 440 | sqlite3_bind_int $VM 1 1 |
| 441 | } msg] |
| 442 | lappend rc $msg |
| 443 | } {1 {}} |
drh | fa6bc00 | 2004-09-07 16:19:52 +0000 | [diff] [blame] | 444 | do_test bind-10.9 { |
| 445 | sqlite3_finalize $VM |
| 446 | } SQLITE_OK |
| 447 | do_test bind-10.10 { |
| 448 | execsql {SELECT * FROM t2} |
| 449 | } {1 999 1000 1001 {} {} 1 2 1 3 2 1} |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 450 | |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 451 | # Ticket #918 |
| 452 | # |
| 453 | do_test bind-10.11 { |
drh | a86a5b6 | 2006-01-23 18:42:21 +0000 | [diff] [blame] | 454 | # catch {sqlite3_finalize $VM} |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 455 | set VM [ |
| 456 | sqlite3_prepare $DB { |
| 457 | INSERT INTO t2(a,b,c,d,e,f) VALUES(:abc,?,?4,:pqr,:abc,?4) |
| 458 | } -1 TAIL |
| 459 | ] |
| 460 | sqlite3_bind_parameter_count $VM |
| 461 | } 5 |
drh | c5cdca6 | 2005-01-11 16:54:14 +0000 | [diff] [blame] | 462 | do_test bind-10.11.1 { |
| 463 | sqlite3_bind_parameter_index 0 :xyz ;# ignore NULL VM arguments |
| 464 | } 0 |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 465 | do_test bind-10.12 { |
| 466 | sqlite3_bind_parameter_index $VM :xyz |
| 467 | } 0 |
| 468 | do_test bind-10.13 { |
| 469 | sqlite3_bind_parameter_index $VM {} |
| 470 | } 0 |
| 471 | do_test bind-10.14 { |
| 472 | sqlite3_bind_parameter_index $VM :pqr |
| 473 | } 5 |
| 474 | do_test bind-10.15 { |
| 475 | sqlite3_bind_parameter_index $VM ?4 |
| 476 | } 4 |
| 477 | do_test bind-10.16 { |
| 478 | sqlite3_bind_parameter_name $VM 1 |
| 479 | } :abc |
danielk1977 | b3bce66 | 2005-01-29 08:32:43 +0000 | [diff] [blame] | 480 | do_test bind-10.17 { |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 481 | sqlite3_bind_parameter_name $VM 2 |
| 482 | } {} |
danielk1977 | b3bce66 | 2005-01-29 08:32:43 +0000 | [diff] [blame] | 483 | do_test bind-10.18 { |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 484 | sqlite3_bind_parameter_name $VM 3 |
| 485 | } {} |
danielk1977 | b3bce66 | 2005-01-29 08:32:43 +0000 | [diff] [blame] | 486 | do_test bind-10.19 { |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 487 | sqlite3_bind_parameter_name $VM 4 |
| 488 | } {?4} |
danielk1977 | b3bce66 | 2005-01-29 08:32:43 +0000 | [diff] [blame] | 489 | do_test bind-10.20 { |
drh | 971a7c8 | 2004-09-24 12:48:12 +0000 | [diff] [blame] | 490 | sqlite3_bind_parameter_name $VM 5 |
| 491 | } :pqr |
| 492 | catch {sqlite3_finalize $VM} |
| 493 | |
drh | 48e5aa2 | 2005-01-11 17:46:41 +0000 | [diff] [blame] | 494 | # Make sure we catch an unterminated "(" in a Tcl-style variable name |
| 495 | # |
danielk1977 | 4489f9b | 2005-01-20 02:17:01 +0000 | [diff] [blame] | 496 | ifcapable tclvar { |
| 497 | do_test bind-11.1 { |
| 498 | catchsql {SELECT * FROM sqlite_master WHERE name=$abc(123 and sql NOT NULL;} |
| 499 | } {1 {unrecognized token: "$abc(123"}} |
| 500 | } |
drh | 48e5aa2 | 2005-01-11 17:46:41 +0000 | [diff] [blame] | 501 | |
drh | e57c06f | 2005-12-09 20:54:34 +0000 | [diff] [blame] | 502 | if {[execsql {pragma encoding}]=="UTF-8"} { |
| 503 | # Test the ability to bind text that contains embedded '\000' characters. |
drh | f9cb7f5 | 2006-06-27 20:06:44 +0000 | [diff] [blame^] | 504 | # Make sure we can recover the entire input string. |
drh | e57c06f | 2005-12-09 20:54:34 +0000 | [diff] [blame] | 505 | # |
| 506 | do_test bind-12.1 { |
| 507 | execsql { |
| 508 | CREATE TABLE t3(x BLOB); |
| 509 | } |
| 510 | set VM [sqlite3_prepare $DB {INSERT INTO t3 VALUES(?)} -1 TAIL] |
| 511 | sqlite_bind $VM 1 not-used blob10 |
| 512 | sqlite3_step $VM |
| 513 | sqlite3_finalize $VM |
| 514 | execsql { |
| 515 | SELECT typeof(x), length(x), quote(x), |
| 516 | length(cast(x AS BLOB)), quote(cast(x AS BLOB)) FROM t3 |
| 517 | } |
| 518 | } {text 3 'abc' 10 X'6162630078797A007071'} |
| 519 | do_test bind-12.2 { |
| 520 | sqlite3_create_function $DB |
| 521 | execsql { |
| 522 | SELECT quote(cast(x_coalesce(x) AS blob)) FROM t3 |
| 523 | } |
| 524 | } {X'6162630078797A007071'} |
| 525 | } |
drh | bf8aa2a | 2005-12-02 02:44:05 +0000 | [diff] [blame] | 526 | |
drh | f9cb7f5 | 2006-06-27 20:06:44 +0000 | [diff] [blame^] | 527 | # Test the operation of sqlite3_clear_bindings |
| 528 | # |
| 529 | do_test bind-13.1 { |
| 530 | set VM [sqlite3_prepare $DB {SELECT ?,?,?} -1 TAIL] |
| 531 | sqlite3_step $VM |
| 532 | list [sqlite3_column_type $VM 0] [sqlite3_column_type $VM 1] \ |
| 533 | [sqlite3_column_type $VM 2] |
| 534 | } {NULL NULL NULL} |
| 535 | do_test bind-13.2 { |
| 536 | sqlite3_reset $VM |
| 537 | sqlite3_bind_int $VM 1 1 |
| 538 | sqlite3_bind_int $VM 2 2 |
| 539 | sqlite3_bind_int $VM 3 3 |
| 540 | sqlite3_step $VM |
| 541 | list [sqlite3_column_type $VM 0] [sqlite3_column_type $VM 1] \ |
| 542 | [sqlite3_column_type $VM 2] |
| 543 | } {INTEGER INTEGER INTEGER} |
| 544 | do_test bind-13.3 { |
| 545 | sqlite3_reset $VM |
| 546 | sqlite3_step $VM |
| 547 | list [sqlite3_column_type $VM 0] [sqlite3_column_type $VM 1] \ |
| 548 | [sqlite3_column_type $VM 2] |
| 549 | } {INTEGER INTEGER INTEGER} |
| 550 | do_test bind-13.4 { |
| 551 | sqlite3_reset $VM |
| 552 | sqlite3_clear_bindings $VM |
| 553 | sqlite3_step $VM |
| 554 | list [sqlite3_column_type $VM 0] [sqlite3_column_type $VM 1] \ |
| 555 | [sqlite3_column_type $VM 2] |
| 556 | } {NULL NULL NULL} |
| 557 | sqlite3_finalize $VM |
| 558 | |
drh | 82a4851 | 2003-09-06 22:45:20 +0000 | [diff] [blame] | 559 | finish_test |