[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/tkt2332.test

-# 2007 May 3
-#
-# 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: tkt2332.test,v 1.4 2007/09/12 17:01:45 danielk1977 Exp $
-#
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-
-ifcapable !incrblob||!tclvar {
-  finish_test
-  return
-}
-
-do_test tkt2332.1 {
-  execsql {
-    CREATE TABLE blobs (k INTEGER PRIMARY KEY, v BLOB);
-    PRAGMA cache_size = 100;
-  }
-} {}
-
-set ::iKey 1
-foreach Len [list 10000 100000 1000000] {
-  do_test tkt2332.$Len.1 {
-    set val "[expr rand()][expr rand()][expr rand()][expr rand()][expr rand()]"
-    set ::blobstr [string range \
-      [string repeat $val [expr ($Len/[string length $val])+1]] 0 [expr $Len-1]
-    ]
-
-    db eval { INSERT INTO blobs VALUES($::iKey, zeroblob($Len)) }
-  } {}
-
-  do_test tkt2332.$Len.2 {
-    execsql {
-      SELECT length(v) FROM blobs WHERE k = $::iKey;
-    }
-  } $Len
-
-  do_test tkt2332.$Len.3 {
-    set ::fd [db incrblob blobs v $::iKey]
-    puts -nonewline $::fd $::blobstr
-    close $::fd
-  } {}
-
-  do_test tkt2332.$Len.4 {
-    execsql { SELECT length(v) FROM blobs WHERE k = $::iKey; }
-  } $Len
-
-  do_test tkt2332.$Len.5 {
-    lindex [execsql {SELECT v FROM blobs WHERE k = $::iKey}] 0
-  } $::blobstr
-
-  incr ::iKey
-}
-
-# Free memory:
-unset ::blobstr
-
-finish_test