xref: /sqlite-3.40.0/test/e_blobbytes.test (revision 38d69855) 
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
13set testdir [file dirname $argv0]
14source $testdir/tester.tcl
15set testprefix e_blobbytes
16
17do_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#
32proc 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}
40check_blob_size 1.1 43 43
41check_blob_size 1.2 391 391
42check_blob_size 1.3 6349 6349
43check_blob_size 1.4 2621 2621
44check_blob_size 1.5 7771 7771
45check_blob_size 1.6 7949 7949
46check_blob_size 1.7 4374 4374
47check_blob_size 1.8 2578 2578
48check_blob_size 1.9 7004 7004
49check_blob_size 1.10 2180 2180
50check_blob_size 1.11 3796 3796
51check_blob_size 1.12 7101 7101
52check_blob_size 1.13 7449 7449
53check_blob_size 1.14 7224 7224
54check_blob_size 1.15 3038 3038
55check_blob_size 1.16 1083 1083
56check_blob_size 1.17 5157 5157
57check_blob_size 1.18 6686 6686
58check_blob_size 1.19 6592 6592
59check_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#
68do_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}
72sqlite3_blob_close $B
73
74finish_test
75