[sql] Import SQLite 3.17.0.

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 ::fd [open $::cmdlinearg(INFO_SCRIPT)]
 set ::data [read $::fd]
 close $::fd
 
 do_malloc_test 1 -tclprep {
-  set bytes [file size [info script]]
+  set bytes [file size $::cmdlinearg(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" }
 } 
@@ skipping 88 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