| Index: third_party/sqlite/src/test/incrblob_err.test
|
| diff --git a/third_party/sqlite/src/test/incrblob_err.test b/third_party/sqlite/src/test/incrblob_err.test
|
| index b4c258772aabc03dcc9f783568e96cfac9be123f..a08bea3e4e6609ac396e96d07200f2a0279eec46 100644
|
| --- a/third_party/sqlite/src/test/incrblob_err.test
|
| +++ b/third_party/sqlite/src/test/incrblob_err.test
|
| @@ -14,6 +14,7 @@
|
|
|
| set testdir [file dirname $argv0]
|
| source $testdir/tester.tcl
|
| +set ::testprefix incrblob_err
|
|
|
| ifcapable {!incrblob || !memdebug || !tclvar} {
|
| finish_test
|
| @@ -35,6 +36,7 @@ do_malloc_test 1 -tclprep {
|
| }
|
| } -tclbody {
|
| set ::blob [db incrblob blobs v 1]
|
| + fconfigure $::blob -translation binary
|
| set rc [catch {puts -nonewline $::blob $::data}]
|
| if {$rc} { error "out of memory" }
|
| }
|
| @@ -71,8 +73,7 @@ do_malloc_test 3 -tclprep {
|
| if {$rc} {
|
| error "out of memory"
|
| }
|
| -}
|
| -
|
| +}
|
|
|
| do_ioerr_test incrblob_err-4 -cksum 1 -sqlprep {
|
| CREATE TABLE blobs(k, v BLOB);
|
| @@ -87,6 +88,7 @@ do_ioerr_test incrblob_err-5 -cksum 1 -sqlprep {
|
| INSERT INTO blobs VALUES(1, zeroblob(length(CAST($::data AS BLOB))));
|
| } -tclbody {
|
| set ::blob [db incrblob blobs v 1]
|
| + fconfigure $::blob -translation binary
|
| puts -nonewline $::blob $::data
|
| close $::blob
|
| }
|
| @@ -96,6 +98,7 @@ do_ioerr_test incrblob_err-6 -cksum 1 -sqlprep {
|
| INSERT INTO blobs VALUES(1, $::data || $::data || $::data);
|
| } -tclbody {
|
| set ::blob [db incrblob blobs v 1]
|
| + fconfigure $::blob -translation binary
|
| seek $::blob -20 end
|
| puts -nonewline $::blob "12345678900987654321"
|
| close $::blob
|
|
|