gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/e_blobopen.test (about) 1 # 2014 October 30 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 # 12 13 set testdir [file dirname $argv0] 14 source $testdir/tester.tcl 15 set testprefix e_blobopen 16 17 ifcapable !incrblob { 18 finish_test 19 return 20 } 21 22 forcedelete test.db2 23 24 do_execsql_test 1.0 { 25 ATTACH 'test.db2' AS aux; 26 27 CREATE TABLE main.t1(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 28 CREATE TEMP TABLE t1(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 29 CREATE TABLE aux.t1(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 30 31 CREATE TABLE main.x1(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 32 CREATE TEMP TABLE x2(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 33 CREATE TABLE aux.x3(a INTEGER PRIMARY KEY, b TEXT, c BLOB); 34 35 INSERT INTO main.t1 VALUES(1, 'main one', X'0101'); 36 INSERT INTO main.t1 VALUES(2, 'main two', X'0102'); 37 INSERT INTO main.t1 VALUES(3, 'main three', X'0103'); 38 INSERT INTO main.t1 VALUES(4, 'main four', X'0104'); 39 INSERT INTO main.t1 VALUES(5, 'main five', X'0105'); 40 41 INSERT INTO main.x1 VALUES(1, 'x main one', X'000101'); 42 INSERT INTO main.x1 VALUES(2, 'x main two', X'000102'); 43 INSERT INTO main.x1 VALUES(3, 'x main three', X'000103'); 44 INSERT INTO main.x1 VALUES(4, 'x main four', X'000104'); 45 INSERT INTO main.x1 VALUES(5, 'x main five', X'000105'); 46 47 INSERT INTO temp.t1 VALUES(1, 'temp one', X'0201'); 48 INSERT INTO temp.t1 VALUES(2, 'temp two', X'0202'); 49 INSERT INTO temp.t1 VALUES(3, 'temp three', X'0203'); 50 INSERT INTO temp.t1 VALUES(4, 'temp four', X'0204'); 51 INSERT INTO temp.t1 VALUES(5, 'temp five', X'0205'); 52 53 INSERT INTO temp.x2 VALUES(1, 'x temp one', X'000201'); 54 INSERT INTO temp.x2 VALUES(2, 'x temp two', X'000202'); 55 INSERT INTO temp.x2 VALUES(3, 'x temp three', X'000203'); 56 INSERT INTO temp.x2 VALUES(4, 'x temp four', X'000204'); 57 INSERT INTO temp.x2 VALUES(5, 'x temp five', X'000205'); 58 59 INSERT INTO aux.t1 VALUES(1, 'aux one', X'0301'); 60 INSERT INTO aux.t1 VALUES(2, 'aux two', X'0302'); 61 INSERT INTO aux.t1 VALUES(3, 'aux three', X'0303'); 62 INSERT INTO aux.t1 VALUES(4, 'aux four', X'0304'); 63 INSERT INTO aux.t1 VALUES(5, 'aux five', X'0305'); 64 65 INSERT INTO aux.x3 VALUES(1, 'x aux one', X'000301'); 66 INSERT INTO aux.x3 VALUES(2, 'x aux two', X'000302'); 67 INSERT INTO aux.x3 VALUES(3, 'x aux three', X'000303'); 68 INSERT INTO aux.x3 VALUES(4, 'x aux four', X'000304'); 69 INSERT INTO aux.x3 VALUES(5, 'x aux five', X'000305'); 70 } 71 72 #------------------------------------------------------------------------- 73 # EVIDENCE-OF: R-37639-55938 This interfaces opens a handle to the BLOB 74 # located in row iRow, column zColumn, table zTable in database zDb; in 75 # other words, the same BLOB that would be selected by: SELECT zColumn 76 # FROM zDb.zTable WHERE rowid = iRow; 77 # 78 proc read_blob {zDb zTab zCol iRow} { 79 sqlite3_blob_open db $zDb $zTab $zCol $iRow 0 B 80 set nByte [sqlite3_blob_bytes $B] 81 set data [sqlite3_blob_read $B 0 $nByte] 82 sqlite3_blob_close $B 83 return $data 84 } 85 86 do_test 1.1.1 { read_blob main t1 b 1 } "main one" 87 do_test 1.1.2 { read_blob main t1 c 1 } "\01\01" 88 do_test 1.1.3 { read_blob temp t1 b 1 } "temp one" 89 do_test 1.1.4 { read_blob temp t1 c 1 } "\02\01" 90 do_test 1.1.6 { read_blob aux t1 b 1 } "aux one" 91 do_test 1.1.7 { read_blob aux t1 c 1 } "\03\01" 92 93 do_test 1.2.1 { read_blob main t1 b 4 } "main four" 94 do_test 1.2.2 { read_blob main t1 c 4 } "\01\04" 95 do_test 1.2.3 { read_blob temp t1 b 4 } "temp four" 96 do_test 1.2.4 { read_blob temp t1 c 4 } "\02\04" 97 do_test 1.2.6 { read_blob aux t1 b 4 } "aux four" 98 do_test 1.2.7 { read_blob aux t1 c 4 } "\03\04" 99 100 do_test 1.3.1 { read_blob main x1 b 2 } "x main two" 101 do_test 1.3.2 { read_blob main x1 c 2 } "\00\01\02" 102 do_test 1.3.3 { read_blob temp x2 b 2 } "x temp two" 103 do_test 1.3.4 { read_blob temp x2 c 2 } "\00\02\02" 104 do_test 1.3.6 { read_blob aux x3 b 2 } "x aux two" 105 do_test 1.3.7 { read_blob aux x3 c 2 } "\00\03\02" 106 107 #------------------------------------------------------------------------- 108 # EVIDENCE-OF: R-27234-05761 Parameter zDb is not the filename that 109 # contains the database, but rather the symbolic name of the database. 110 # For attached databases, this is the name that appears after the AS 111 # keyword in the ATTACH statement. For the main database file, the 112 # database name is "main". For TEMP tables, the database name is "temp". 113 # 114 # The test cases immediately above demonstrate that the database name 115 # for the main db, for TEMP tables and for those in attached databases 116 # is correct. The following tests check that filenames cannot be 117 # used as well. 118 # 119 do_test 2.1 { 120 list [catch { sqlite3_blob_open db "test.db" t1 b 1 0 B } msg] $msg 121 } {1 SQLITE_ERROR} 122 do_test 2.2 { 123 list [catch { sqlite3_blob_open db "test.db2" t1 b 1 0 B } msg] $msg 124 } {1 SQLITE_ERROR} 125 126 #------------------------------------------------------------------------- 127 # EVIDENCE-OF: R-50854-53979 If the flags parameter is non-zero, then 128 # the BLOB is opened for read and write access. 129 # 130 # EVIDENCE-OF: R-03922-41160 If the flags parameter is zero, the BLOB is 131 # opened for read-only access. 132 # 133 foreach {tn iRow flags} { 134 1 1 0 135 2 2 1 136 3 3 -1 137 4 4 2147483647 138 5 5 -2147483648 139 } { 140 do_test 3.$tn.1 { 141 sqlite3_blob_open db main x1 c $iRow $flags B 142 set n [sqlite3_blob_bytes $B] 143 sqlite3_blob_read $B 0 $n 144 } [binary format ccc 0 1 $iRow] 145 146 if {$flags==0} { 147 # Blob was opened for read-only access - writing returns an error. 148 do_test 3.$tn.2 { 149 list [catch { sqlite3_blob_write $B 0 xxx 3 } msg] $msg 150 } {1 SQLITE_READONLY} 151 152 do_execsql_test 3.$tn.3 { 153 SELECT c FROM x1 WHERE a=$iRow; 154 } [binary format ccc 0 1 $iRow] 155 } else { 156 # Blob was opened for read/write access - writing succeeds 157 do_test 3.$tn.4 { 158 list [catch { sqlite3_blob_write $B 0 xxx 3 } msg] $msg 159 } {0 {}} 160 161 do_execsql_test 3.$tn.5 { 162 SELECT c FROM x1 WHERE a=$iRow; 163 } {xxx} 164 } 165 166 sqlite3_blob_close $B 167 } 168 169 #------------------------------------------------------------------------- 170 # 171 reset_db 172 do_execsql_test 4.0 { 173 CREATE TABLE t1(x, y); 174 INSERT INTO t1 VALUES('abcd', 152); 175 INSERT INTO t1 VALUES(NULL, X'00010203'); 176 INSERT INTO t1 VALUES('', 154.2); 177 178 CREATE TABLE t2(x PRIMARY KEY, y) WITHOUT ROWID; 179 INSERT INTO t2 VALUES(1, 'blob'); 180 181 CREATE TABLE t3(a PRIMARY KEY, b, c, d, e, f, UNIQUE(e, f)); 182 INSERT INTO t3 VALUES('aaaa', 'bbbb', 'cccc', 'dddd', 'eeee', 'ffff'); 183 CREATE INDEX t3b ON t3(b); 184 185 CREATE TABLE p1(x PRIMARY KEY); 186 INSERT INTO p1 VALUES('abc'); 187 188 CREATE TABLE c1(a INTEGER PRIMARY KEY, b REFERENCES p1); 189 INSERT INTO c1 VALUES(45, 'abc'); 190 } 191 192 proc test_blob_open {tn zDb zTab zCol iRow flags errcode errmsg} { 193 global B 194 set B "0x1234" 195 196 if {$errcode=="SQLITE_OK"} { 197 set expected "0 {}" 198 } else { 199 set expected "1 $errcode" 200 } 201 202 set ::res [list [ 203 catch { sqlite3_blob_open db $zDb $zTab $zCol $iRow $flags B } msg 204 ] $msg] 205 do_test 4.$tn.1 { set ::res } $expected 206 207 # EVIDENCE-OF: R-08940-21305 Unless it returns SQLITE_MISUSE, this 208 # function sets the database connection error code and message 209 # accessible via sqlite3_errcode() and sqlite3_errmsg() and related 210 # functions. 211 # 212 # This proc (test_blob_open) is used below to test various error and 213 # non-error conditions. But never SQLITE_MISUSE conditions. So these 214 # test cases are considered as partly verifying the requirement above. 215 # See below for a test of the SQLITE_MISUSE case. 216 # 217 do_test 4.$tn.2 { 218 sqlite3_errcode db 219 } $errcode 220 do_test 4.$tn.3 { 221 sqlite3_errmsg db 222 } $errmsg 223 224 # EVIDENCE-OF: R-31086-35521 On success, SQLITE_OK is returned and the 225 # new BLOB handle is stored in *ppBlob. Otherwise an error code is 226 # returned and, unless the error code is SQLITE_MISUSE, *ppBlob is set 227 # to NULL. 228 # 229 do_test 4.$tn.4 { 230 expr {$B == "0"} 231 } [expr {$errcode != "SQLITE_OK"}] 232 233 # EVIDENCE-OF: R-63421-15521 This means that, provided the API is not 234 # misused, it is always safe to call sqlite3_blob_close() on *ppBlob 235 # after this function it returns. 236 do_test 4.$tn.5 { 237 sqlite3_blob_close $B 238 } {} 239 } 240 241 # EVIDENCE-OF: R-31204-44780 Database zDb does not exist 242 test_blob_open 1 nosuchdb t1 x 1 0 SQLITE_ERROR "no such table: nosuchdb.t1" 243 244 # EVIDENCE-OF: R-28676-08005 Table zTable does not exist within database zDb 245 test_blob_open 2 main tt1 x 1 0 SQLITE_ERROR "no such table: main.tt1" 246 247 # EVIDENCE-OF: R-40134-30296 Table zTable is a WITHOUT ROWID table 248 test_blob_open 3 main t2 y 1 0 SQLITE_ERROR \ 249 "cannot open table without rowid: t2" 250 251 # EVIDENCE-OF: R-56376-21261 Column zColumn does not exist 252 test_blob_open 4 main t1 z 2 0 SQLITE_ERROR "no such column: \"z\"" 253 254 # EVIDENCE-OF: R-28258-23166 Row iRow is not present in the table 255 test_blob_open 5 main t1 y 6 0 SQLITE_ERROR "no such rowid: 6" 256 257 # EVIDENCE-OF: R-11683-62380 The specified column of row iRow contains a 258 # value that is not a TEXT or BLOB value 259 test_blob_open 6 main t1 x 2 0 SQLITE_ERROR "cannot open value of type null" 260 test_blob_open 7 main t1 y 1 0 SQLITE_ERROR "cannot open value of type integer" 261 test_blob_open 8 main t1 y 3 0 SQLITE_ERROR "cannot open value of type real" 262 263 # EVIDENCE-OF: R-34146-30782 Column zColumn is part of an index, PRIMARY 264 # KEY or UNIQUE constraint and the blob is being opened for read/write 265 # access 266 # 267 # Test cases 8.1.* show that such columns can be opened for read-access. 268 # Tests 8.2.* show that read-write access is different. Columns "c" and "c" 269 # are not part of an index, PK or UNIQUE constraint, so they work in both 270 # cases. 271 # 272 test_blob_open 8.1.1 main t3 a 1 0 SQLITE_OK "not an error" 273 test_blob_open 8.1.2 main t3 b 1 0 SQLITE_OK "not an error" 274 test_blob_open 8.1.3 main t3 c 1 0 SQLITE_OK "not an error" 275 test_blob_open 8.1.4 main t3 d 1 0 SQLITE_OK "not an error" 276 test_blob_open 8.1.5 main t3 e 1 0 SQLITE_OK "not an error" 277 test_blob_open 8.1.6 main t3 f 1 0 SQLITE_OK "not an error" 278 279 set cannot "cannot open indexed column for writing" 280 test_blob_open 8.2.1 main t3 a 1 8 SQLITE_ERROR $cannot 281 test_blob_open 8.2.2 main t3 b 1 8 SQLITE_ERROR $cannot 282 test_blob_open 8.2.3 main t3 c 1 8 SQLITE_OK "not an error" 283 test_blob_open 8.2.4 main t3 d 1 8 SQLITE_OK "not an error" 284 test_blob_open 8.2.5 main t3 e 1 8 SQLITE_ERROR $cannot 285 test_blob_open 8.2.6 main t3 f 1 8 SQLITE_ERROR $cannot 286 287 # EVIDENCE-OF: R-50117-55204 Foreign key constraints are enabled, column 288 # zColumn is part of a child key definition and the blob is being opened 289 # for read/write access 290 # 291 # 9.1: FK disabled, read-only access. 292 # 9.2: FK disabled, read-only access. 293 # 9.3: FK enabled, read/write access. 294 # 9.4: FK enabled, read/write access. 295 # 296 test_blob_open 9.1 main c1 b 45 0 SQLITE_OK "not an error" 297 test_blob_open 9.2 main c1 b 45 1 SQLITE_OK "not an error" 298 execsql { PRAGMA foreign_keys = ON } 299 test_blob_open 9.3 main c1 b 45 0 SQLITE_OK "not an error" 300 test_blob_open 9.4 main c1 b 45 1 SQLITE_ERROR \ 301 "cannot open foreign key column for writing" 302 303 #------------------------------------------------------------------------- 304 # EVIDENCE-OF: R-08940-21305 Unless it returns SQLITE_MISUSE, this 305 # function sets the database connection error code and message 306 # accessible via sqlite3_errcode() and sqlite3_errmsg() and related 307 # functions. 308 # 309 # This requirement is partially verified by the many uses of test 310 # command [test_blob_open] above. All that is left is to verify the 311 # SQLITE_MISUSE case. 312 # 313 # SQLITE_MISUSE is only returned if SQLITE_ENABLE_API_ARMOR is defined 314 # during compilation. 315 # 316 ifcapable api_armor { 317 sqlite3_blob_open db main t1 x 1 0 B 318 319 do_test 10.1.1 { 320 list [catch {sqlite3_blob_open $B main t1 x 1 0 B2} msg] $msg 321 } {1 SQLITE_MISUSE} 322 do_test 10.1.2 { 323 list [sqlite3_errcode db] [sqlite3_errmsg db] 324 } {SQLITE_OK {not an error}} 325 sqlite3_blob_close $B 326 327 do_test 10.2.1 { 328 list [catch {sqlite3_blob_open db main {} x 1 0 B} msg] $msg 329 } {1 SQLITE_MISUSE} 330 do_test 10.2.2 { 331 list [sqlite3_errcode db] [sqlite3_errmsg db] 332 } {SQLITE_OK {not an error}} 333 } 334 335 #------------------------------------------------------------------------- 336 # EVIDENCE-OF: R-50542-62589 If the row that a BLOB handle points to is 337 # modified by an UPDATE, DELETE, or by ON CONFLICT side-effects then the 338 # BLOB handle is marked as "expired". This is true if any column of the 339 # row is changed, even a column other than the one the BLOB handle is 340 # open on. 341 # 342 # EVIDENCE-OF: R-48367-20048 Calls to sqlite3_blob_read() and 343 # sqlite3_blob_write() for an expired BLOB handle fail with a return 344 # code of SQLITE_ABORT. 345 # 346 # 11.2: read-only handle, DELETE. 347 # 11.3: read-only handle, UPDATE. 348 # 11.4: read-only handle, REPLACE. 349 # 11.5: read/write handle, DELETE. 350 # 11.6: read/write handle, UPDATE. 351 # 11.7: read/write handle, REPLACE. 352 # 353 do_execsql_test 11.1 { 354 CREATE TABLE b1(a INTEGER PRIMARY KEY, b, c UNIQUE); 355 INSERT INTO b1 VALUES(1, '1234567890', 1); 356 INSERT INTO b1 VALUES(2, '1234567890', 2); 357 INSERT INTO b1 VALUES(3, '1234567890', 3); 358 INSERT INTO b1 VALUES(4, '1234567890', 4); 359 INSERT INTO b1 VALUES(5, '1234567890', 5); 360 INSERT INTO b1 VALUES(6, '1234567890', 6); 361 362 CREATE TABLE b2(a INTEGER PRIMARY KEY, b, c UNIQUE); 363 INSERT INTO b2 VALUES(1, '1234567890', 1); 364 INSERT INTO b2 VALUES(2, '1234567890', 2); 365 INSERT INTO b2 VALUES(3, '1234567890', 3); 366 INSERT INTO b2 VALUES(4, '1234567890', 4); 367 INSERT INTO b2 VALUES(5, '1234567890', 5); 368 INSERT INTO b2 VALUES(6, '1234567890', 6); 369 } 370 371 do_test 11.2.1 { 372 sqlite3_blob_open db main b1 b 2 0 B 373 sqlite3_blob_read $B 0 10 374 } {1234567890} 375 do_test 11.2.2 { 376 # Deleting a different row does not invalidate the blob handle. 377 execsql { DELETE FROM b1 WHERE a = 1 } 378 sqlite3_blob_read $B 0 10 379 } {1234567890} 380 do_test 11.2.3 { 381 execsql { DELETE FROM b1 WHERE a = 2 } 382 list [catch { sqlite3_blob_read $B 0 10 } msg] $msg 383 } {1 SQLITE_ABORT} 384 do_test 11.2.4 { 385 sqlite3_blob_close $B 386 } {} 387 388 do_test 11.3.1 { 389 sqlite3_blob_open db main b1 b 3 0 B 390 sqlite3_blob_read $B 0 10 391 } {1234567890} 392 do_test 11.3.2 { 393 # Updating a different row 394 execsql { UPDATE b1 SET c = 42 WHERE a=4 } 395 sqlite3_blob_read $B 0 10 396 } {1234567890} 397 do_test 11.3.3 { 398 execsql { UPDATE b1 SET c = 43 WHERE a=3 } 399 list [catch { sqlite3_blob_read $B 0 10 } msg] $msg 400 } {1 SQLITE_ABORT} 401 do_test 11.3.4 { 402 sqlite3_blob_close $B 403 } {} 404 405 do_test 11.4.1 { 406 sqlite3_blob_open db main b1 b 6 0 B 407 sqlite3_blob_read $B 0 10 408 } {1234567890} 409 do_test 11.4.2 { 410 # Replace a different row 411 execsql { INSERT OR REPLACE INTO b1 VALUES(10, 'abcdefghij', 5) } 412 sqlite3_blob_read $B 0 10 413 } {1234567890} 414 do_test 11.4.3 { 415 execsql { INSERT OR REPLACE INTO b1 VALUES(11, 'abcdefghij', 6) } 416 list [catch { sqlite3_blob_read $B 0 10 } msg] $msg 417 } {1 SQLITE_ABORT} 418 do_test 11.4.4 { 419 sqlite3_blob_close $B 420 } {} 421 422 do_test 11.4.1 { 423 sqlite3_blob_open db main b2 b 2 1 B 424 sqlite3_blob_write $B 0 "abcdefghij" 425 } {} 426 do_test 11.4.2 { 427 # Deleting a different row does not invalidate the blob handle. 428 execsql { DELETE FROM b2 WHERE a = 1 } 429 sqlite3_blob_write $B 0 "ABCDEFGHIJ" 430 } {} 431 do_test 11.4.3 { 432 execsql { DELETE FROM b2 WHERE a = 2 } 433 list [catch { sqlite3_blob_write $B 0 "0987654321" } msg] $msg 434 } {1 SQLITE_ABORT} 435 do_test 11.4.4 { 436 sqlite3_blob_close $B 437 } {} 438 439 do_test 11.5.1 { 440 sqlite3_blob_open db main b2 b 3 1 B 441 sqlite3_blob_write $B 0 "abcdefghij" 442 } {} 443 do_test 11.5.2 { 444 # Updating a different row 445 execsql { UPDATE b2 SET c = 42 WHERE a=4 } 446 sqlite3_blob_write $B 0 "ABCDEFGHIJ" 447 } {} 448 do_test 11.5.3 { 449 execsql { UPDATE b2 SET c = 43 WHERE a=3 } 450 list [catch { sqlite3_blob_write $B 0 "0987654321" } msg] $msg 451 } {1 SQLITE_ABORT} 452 do_test 11.5.4 { 453 sqlite3_blob_close $B 454 } {} 455 456 do_test 11.6.1 { 457 sqlite3_blob_open db main b2 b 6 1 B 458 sqlite3_blob_write $B 0 "abcdefghij" 459 } {} 460 do_test 11.6.2 { 461 # Replace a different row 462 execsql { INSERT OR REPLACE INTO b2 VALUES(10, 'abcdefghij', 5) } 463 sqlite3_blob_write $B 0 "ABCDEFGHIJ" 464 } {} 465 do_test 11.6.3 { 466 execsql { INSERT OR REPLACE INTO b2 VALUES(11, 'abcdefghij', 6) } 467 list [catch { sqlite3_blob_write $B 0 "0987654321" } msg] $msg 468 } {1 SQLITE_ABORT} 469 do_test 11.6.4 { 470 sqlite3_blob_close $B 471 } {} 472 473 #------------------------------------------------------------------------- 474 # EVIDENCE-OF: R-45408-40694 Changes written into a BLOB prior to the 475 # BLOB expiring are not rolled back by the expiration of the BLOB. Such 476 # changes will eventually commit if the transaction continues to 477 # completion. 478 # 479 do_execsql_test 12.1 { 480 CREATE TABLE b3(x INTEGER PRIMARY KEY, y TEXT, z INTEGER); 481 INSERT INTO b3 VALUES(22, '..........', NULL); 482 } 483 do_test 12.2 { 484 sqlite3_blob_open db main b3 y 22 1 B 485 sqlite3_blob_write $B 0 "xxxxx" 5 486 } {} 487 do_execsql_test 12.3 { 488 UPDATE b3 SET z = 'not null'; 489 } 490 do_test 12.4 { 491 list [catch {sqlite3_blob_write $B 5 "xxxxx" 5} msg] $msg 492 } {1 SQLITE_ABORT} 493 do_execsql_test 12.5 { 494 SELECT * FROM b3; 495 } {22 xxxxx..... {not null}} 496 do_test 12.5 { 497 sqlite3_blob_close $B 498 } {} 499 do_execsql_test 12.6 { 500 SELECT * FROM b3; 501 } {22 xxxxx..... {not null}} 502 503 #------------------------------------------------------------------------- 504 # EVIDENCE-OF: R-58813-55036 The sqlite3_bind_zeroblob() and 505 # sqlite3_result_zeroblob() interfaces and the built-in zeroblob SQL 506 # function may be used to create a zero-filled blob to read or write 507 # using the incremental-blob interface. 508 # 509 do_execsql_test 13.1 { 510 CREATE TABLE c2(i INTEGER PRIMARY KEY, j); 511 INSERT INTO c2 VALUES(10, zeroblob(24)); 512 } 513 514 do_test 13.2 { 515 set stmt [sqlite3_prepare_v2 db "INSERT INTO c2 VALUES(11, ?)" -1] 516 sqlite3_bind_zeroblob $stmt 1 45 517 sqlite3_step $stmt 518 sqlite3_finalize $stmt 519 } {SQLITE_OK} 520 521 # The blobs can be read: 522 # 523 do_test 13.3.1 { 524 sqlite3_blob_open db main c2 j 10 1 B 525 sqlite3_blob_open db main c2 j 11 1 B2 526 list [sqlite3_blob_bytes $B] [sqlite3_blob_bytes $B2] 527 } {24 45} 528 do_test 13.3.2 { 529 sqlite3_blob_read $B 0 24 530 } [string repeat [binary format c 0] 24] 531 do_test 13.3.3 { 532 sqlite3_blob_read $B2 0 45 533 } [string repeat [binary format c 0] 45] 534 535 # And also written: 536 # 537 do_test 13.4.1 { 538 sqlite3_blob_write $B 0 [string repeat [binary format c 1] 24] 539 } {} 540 do_test 13.4.2 { 541 sqlite3_blob_write $B2 0 [string repeat [binary format c 1] 45] 542 } {} 543 do_test 13.5 { 544 sqlite3_blob_close $B 545 sqlite3_blob_close $B2 546 execsql { SELECT j FROM c2 } 547 } [list \ 548 [string repeat [binary format c 1] 24] \ 549 [string repeat [binary format c 1] 45] \ 550 ] 551 552 553 finish_test