Import SQLite 3.8.7.4.

third_party/sqlite/src/test/incrblob_err.test

 # 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
+set ::testprefix incrblob_err
 
 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]
+  fconfigure $::blob -translation binary
   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 {
@@ skipping 16 matching lines @@
   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]
+  fconfigure $::blob -translation binary
   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]
+  fconfigure $::blob -translation binary
   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 {
@@ skipping 19 matching lines @@
   #
   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