• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1# 2007 May 1
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# $Id: incrblob_err.test,v 1.14 2008/07/18 17:16:27 drh Exp $
13#
14
15set testdir [file dirname $argv0]
16source $testdir/tester.tcl
17
18ifcapable {!incrblob  || !memdebug || !tclvar} {
19  finish_test
20  return
21}
22
23source $testdir/malloc_common.tcl
24
25unset -nocomplain ::fd ::data
26set ::fd [open [info script]]
27set ::data [read $::fd]
28close $::fd
29
30do_malloc_test 1 -tclprep {
31  set bytes [file size [info script]]
32  execsql {
33    CREATE TABLE blobs(k, v BLOB);
34    INSERT INTO blobs VALUES(1, zeroblob($::bytes));
35  }
36} -tclbody {
37  set ::blob [db incrblob blobs v 1]
38  set rc [catch {puts -nonewline $::blob $::data}]
39  if {$rc} { error "out of memory" }
40}
41
42do_malloc_test 2 -tclprep {
43  execsql {
44    CREATE TABLE blobs(k, v BLOB);
45    INSERT INTO blobs VALUES(1, $::data);
46  }
47} -tclbody {
48  set ::blob [db incrblob blobs v 1]
49  set rc [catch {set ::r [read $::blob]}]
50  if {$rc} {
51    error "out of memory"
52  } elseif {$::r ne $::data} {
53    error "Bad data read..."
54  }
55}
56
57do_malloc_test 3 -tclprep {
58  execsql {
59    CREATE TABLE blobs(k, v BLOB);
60    INSERT INTO blobs VALUES(1, $::data);
61  }
62} -tclbody {
63  set ::blob [db incrblob blobs v 1]
64  set rc [catch {set ::r [read $::blob]}]
65  if {$rc} {
66    error "out of memory"
67  } elseif {$::r ne $::data} {
68    error "Bad data read..."
69  }
70  set rc [catch {close $::blob}]
71  if {$rc} {
72    error "out of memory"
73  }
74}
75
76
77do_ioerr_test incrblob_err-4 -cksum 1 -sqlprep {
78  CREATE TABLE blobs(k, v BLOB);
79  INSERT INTO blobs VALUES(1, $::data);
80} -tclbody {
81  set ::blob [db incrblob blobs v 1]
82  read $::blob
83}
84
85do_ioerr_test incrblob_err-5 -cksum 1 -sqlprep {
86  CREATE TABLE blobs(k, v BLOB);
87  INSERT INTO blobs VALUES(1, zeroblob(length(CAST($::data AS BLOB))));
88} -tclbody {
89  set ::blob [db incrblob blobs v 1]
90  puts -nonewline $::blob $::data
91  close $::blob
92}
93
94do_ioerr_test incrblob_err-6 -cksum 1 -sqlprep {
95  CREATE TABLE blobs(k, v BLOB);
96  INSERT INTO blobs VALUES(1, $::data || $::data || $::data);
97} -tclbody {
98  set ::blob [db incrblob blobs v 1]
99  seek $::blob -20 end
100  puts -nonewline $::blob "12345678900987654321"
101  close $::blob
102}
103
104do_ioerr_test incrblob_err-7 -cksum 1 -sqlprep {
105  PRAGMA auto_vacuum = 1;
106  CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);
107  INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));
108} -tclbody {
109  # Read some data from the end of the large blob inserted into table
110  # "blobs". This forces the IO error to occur while reading a pointer
111  # map page for the purposes of seeking to the end of the blob.
112  #
113  sqlite3 db2 test.db
114  set ::blob [db2 incrblob blobs v 1]
115  sqlite3_blob_read $::blob [expr 500*1020-20] 20
116  close $::blob
117}
118catch {db2 close}
119
120do_ioerr_test incrblob_err-8 -cksum 1 -sqlprep {
121  PRAGMA auto_vacuum = 1;
122  CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);
123  INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));
124} -tclbody {
125  # Read some data from the end of the large blob inserted into table
126  # "blobs". This forces the IO error to occur while reading a pointer
127  # map page for the purposes of seeking to the end of the blob.
128  #
129  sqlite3 db2 test.db
130  set ::blob [db2 incrblob blobs v 1]
131  sqlite3_blob_write $::blob [expr 500*1020-20] 12345678900987654321
132  close $::blob
133}
134
135catch {db2 close}
136
137finish_test
138