| OLD | NEW |
| (Empty) |
| 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_blobbytes | |
| 16 | |
| 17 do_execsql_test 1.0 { | |
| 18 CREATE TABLE q1(r INTEGER PRIMARY KEY, s TEXT); | |
| 19 WITH d(a, b) AS ( | |
| 20 SELECT 0, '' | |
| 21 UNION ALL | |
| 22 SELECT a+1, b||'.' FROM d WHERE a<10000 | |
| 23 ) | |
| 24 INSERT INTO q1 SELECT * FROM d; | |
| 25 } | |
| 26 | |
| 27 | |
| 28 # EVIDENCE-OF: R-07796-55423 Returns the size in bytes of the BLOB | |
| 29 # accessible via the successfully opened BLOB handle in its only | |
| 30 # argument. | |
| 31 # | |
| 32 proc check_blob_size {tn rowid bytes} { | |
| 33 uplevel [list do_test $tn [subst -nocommands { | |
| 34 sqlite3_blob_open db main q1 s $rowid 0 B | |
| 35 set res [sqlite3_blob_bytes [set B]] | |
| 36 sqlite3_blob_close [set B] | |
| 37 set res | |
| 38 }] $bytes] | |
| 39 } | |
| 40 check_blob_size 1.1 43 43 | |
| 41 check_blob_size 1.2 391 391 | |
| 42 check_blob_size 1.3 6349 6349 | |
| 43 check_blob_size 1.4 2621 2621 | |
| 44 check_blob_size 1.5 7771 7771 | |
| 45 check_blob_size 1.6 7949 7949 | |
| 46 check_blob_size 1.7 4374 4374 | |
| 47 check_blob_size 1.8 2578 2578 | |
| 48 check_blob_size 1.9 7004 7004 | |
| 49 check_blob_size 1.10 2180 2180 | |
| 50 check_blob_size 1.11 3796 3796 | |
| 51 check_blob_size 1.12 7101 7101 | |
| 52 check_blob_size 1.13 7449 7449 | |
| 53 check_blob_size 1.14 7224 7224 | |
| 54 check_blob_size 1.15 3038 3038 | |
| 55 check_blob_size 1.16 1083 1083 | |
| 56 check_blob_size 1.17 5157 5157 | |
| 57 check_blob_size 1.18 6686 6686 | |
| 58 check_blob_size 1.19 6592 6592 | |
| 59 check_blob_size 1.20 0 0 | |
| 60 | |
| 61 | |
| 62 # EVIDENCE-OF: R-53088-19343 The incremental blob I/O routines can only | |
| 63 # read or overwriting existing blob content; they cannot change the size | |
| 64 # of a blob. | |
| 65 # | |
| 66 # Also demonstrated in other e_blobXXX.test files. | |
| 67 # | |
| 68 do_test 2.1 { | |
| 69 sqlite3_blob_open db main q1 s 86 1 B | |
| 70 list [catch { sqlite3_blob_write $B 86 "1" 1 } msg] $msg | |
| 71 } {1 SQLITE_ERROR} | |
| 72 sqlite3_blob_close $B | |
| 73 | |
| 74 finish_test | |
| 75 | |
| 76 | |
| OLD | NEW |