# 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.7 2007/08/30 11:48:32 danielk1977 Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!incrblob || !memdebug} { finish_test return } source $testdir/malloc_common.tcl 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 } finish_test