# 2007 May 1

 #

 # The author disclaims copyright to this source code.  In place of

 # a legal notice, here is a blessing:

 #

 #    May you do good and not evil.

 #    May you find forgiveness for yourself and forgive others.

 #    May you share freely, never taking more than you give.

 #

 #***********************************************************************

 #

 # $Id: incrblob_err.test,v 1.14 2008/07/18 17:16:27 drh Exp $

 #

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 ifcapable {!incrblob  || !memdebug || !tclvar} {

   finish_test

   return

 }

 source $testdir/malloc_common.tcl

 unset -nocomplain ::fd ::data

 set ::fd [open [info script]]

 set ::data [read $::fd]

 close $::fd

 do_malloc_test 1 -tclprep {

   set bytes [file size [info script]]

   execsql {

     CREATE TABLE blobs(k, v BLOB);

     INSERT INTO blobs VALUES(1, zeroblob($::bytes));

   }

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   set rc [catch {puts -nonewline $::blob $::data}]

   if {$rc} { error "out of memory" }

 } 

 do_malloc_test 2 -tclprep {

   execsql {

     CREATE TABLE blobs(k, v BLOB);

     INSERT INTO blobs VALUES(1, $::data);

   }

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   set rc [catch {set ::r [read $::blob]}]

   if {$rc} { 

     error "out of memory" 

   } elseif {$::r ne $::data} {

     error "Bad data read..."

   }

 }

 do_malloc_test 3 -tclprep {

   execsql {

     CREATE TABLE blobs(k, v BLOB);

     INSERT INTO blobs VALUES(1, $::data);

   }

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   set rc [catch {set ::r [read $::blob]}]

   if {$rc} { 

     error "out of memory" 

   } elseif {$::r ne $::data} {

     error "Bad data read..."

   }

   set rc [catch {close $::blob}]

   if {$rc} { 

     error "out of memory" 

   }

 } 

 do_ioerr_test incrblob_err-4 -cksum 1 -sqlprep {

   CREATE TABLE blobs(k, v BLOB);

   INSERT INTO blobs VALUES(1, $::data);

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   read $::blob

 }

 do_ioerr_test incrblob_err-5 -cksum 1 -sqlprep {

   CREATE TABLE blobs(k, v BLOB);

   INSERT INTO blobs VALUES(1, zeroblob(length(CAST($::data AS BLOB))));

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   puts -nonewline $::blob $::data

   close $::blob

 }

 do_ioerr_test incrblob_err-6 -cksum 1 -sqlprep {

   CREATE TABLE blobs(k, v BLOB);

   INSERT INTO blobs VALUES(1, $::data || $::data || $::data);

 } -tclbody {

   set ::blob [db incrblob blobs v 1]

   seek $::blob -20 end

   puts -nonewline $::blob "12345678900987654321"

   close $::blob

 }

 do_ioerr_test incrblob_err-7 -cksum 1 -sqlprep {

   PRAGMA auto_vacuum = 1;

   CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);

   INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));

 } -tclbody {

   # Read some data from the end of the large blob inserted into table 

   # "blobs". This forces the IO error to occur while reading a pointer

   # map page for the purposes of seeking to the end of the blob.

   #

   sqlite3 db2 test.db

   set ::blob [db2 incrblob blobs v 1]

   sqlite3_blob_read $::blob [expr 500*1020-20] 20

   close $::blob

 }

 catch {db2 close}

 do_ioerr_test incrblob_err-8 -cksum 1 -sqlprep {

   PRAGMA auto_vacuum = 1;

   CREATE TABLE blobs(k INTEGER PRIMARY KEY, v BLOB);

   INSERT INTO blobs VALUES(1, zeroblob(500 * 1020));

 } -tclbody {

   # Read some data from the end of the large blob inserted into table 

   # "blobs". This forces the IO error to occur while reading a pointer

   # map page for the purposes of seeking to the end of the blob.

   #

   sqlite3 db2 test.db

   set ::blob [db2 incrblob blobs v 1]

   sqlite3_blob_write $::blob [expr 500*1020-20] 12345678900987654321

   close $::blob

 }

 catch {db2 close}

 finish_test