sl@0: # 2007 May 3
sl@0: #
sl@0: # The author disclaims copyright to this source code.  In place of
sl@0: # a legal notice, here is a blessing:
sl@0: #
sl@0: #    May you do good and not evil.
sl@0: #    May you find forgiveness for yourself and forgive others.
sl@0: #    May you share freely, never taking more than you give.
sl@0: #
sl@0: #***********************************************************************
sl@0: #
sl@0: # $Id: tkt2332.test,v 1.4 2007/09/12 17:01:45 danielk1977 Exp $
sl@0: #
sl@0: 
sl@0: set testdir [file dirname $argv0]
sl@0: source $testdir/tester.tcl
sl@0: 
sl@0: ifcapable !incrblob||!tclvar {
sl@0:   finish_test
sl@0:   return
sl@0: }
sl@0: 
sl@0: do_test tkt2332.1 {
sl@0:   execsql {
sl@0:     CREATE TABLE blobs (k INTEGER PRIMARY KEY, v BLOB);
sl@0:     PRAGMA cache_size = 100;
sl@0:   }
sl@0: } {}
sl@0: 
sl@0: set ::iKey 1
sl@0: foreach Len [list 10000 100000 1000000] {
sl@0:   do_test tkt2332.$Len.1 {
sl@0:     set val "[expr rand()][expr rand()][expr rand()][expr rand()][expr rand()]"
sl@0:     set ::blobstr [string range \
sl@0:       [string repeat $val [expr ($Len/[string length $val])+1]] 0 [expr $Len-1]
sl@0:     ]
sl@0: 
sl@0:     db eval { INSERT INTO blobs VALUES($::iKey, zeroblob($Len)) }
sl@0:   } {}
sl@0: 
sl@0:   do_test tkt2332.$Len.2 {
sl@0:     execsql {
sl@0:       SELECT length(v) FROM blobs WHERE k = $::iKey;
sl@0:     }
sl@0:   } $Len
sl@0: 
sl@0:   do_test tkt2332.$Len.3 {
sl@0:     set ::fd [db incrblob blobs v $::iKey]
sl@0:     puts -nonewline $::fd $::blobstr
sl@0:     close $::fd
sl@0:   } {}
sl@0: 
sl@0:   do_test tkt2332.$Len.4 {
sl@0:     execsql { SELECT length(v) FROM blobs WHERE k = $::iKey; }
sl@0:   } $Len
sl@0: 
sl@0:   do_test tkt2332.$Len.5 {
sl@0:     lindex [execsql {SELECT v FROM blobs WHERE k = $::iKey}] 0
sl@0:   } $::blobstr
sl@0: 
sl@0:   incr ::iKey
sl@0: }
sl@0: 
sl@0: # Free memory:
sl@0: unset ::blobstr
sl@0: 
sl@0: finish_test