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 |