1 # 2007 May 3 2 # 3 # The author disclaims copyright to this source code. In place of 4 # a legal notice, here is a blessing: 5 # 6 # May you do good and not evil. 7 # May you find forgiveness for yourself and forgive others. 8 # May you share freely, never taking more than you give. 9 # 10 #*********************************************************************** 11 # 12 # $Id: tkt2332.test,v 1.4 2007/09/12 17:01:45 danielk1977 Exp $ 13 # 14 15 set testdir [file dirname $argv0] 16 source $testdir/tester.tcl 17 18 ifcapable !incrblob||!tclvar { 19 finish_test 20 return 21 } 22 23 do_test tkt2332.1 { 24 execsql { 25 CREATE TABLE blobs (k INTEGER PRIMARY KEY, v BLOB); 26 PRAGMA cache_size = 100; 27 } 28 } {} 29 30 set ::iKey 1 31 foreach Len [list 10000 100000 1000000] { 32 do_test tkt2332.$Len.1 { 33 set val "[expr rand()][expr rand()][expr rand()][expr rand()][expr rand()]" 34 set ::blobstr [string range \ 35 [string repeat $val [expr ($Len/[string length $val])+1]] 0 [expr $Len-1] 36 ] 37 38 db eval { INSERT INTO blobs VALUES($::iKey, zeroblob($Len)) } 39 } {} 40 41 do_test tkt2332.$Len.2 { 42 execsql { 43 SELECT length(v) FROM blobs WHERE k = $::iKey; 44 } 45 } $Len 46 47 do_test tkt2332.$Len.3 { 48 set ::fd [db incrblob blobs v $::iKey] 49 puts -nonewline $::fd $::blobstr 50 close $::fd 51 } {} 52 53 do_test tkt2332.$Len.4 { 54 execsql { SELECT length(v) FROM blobs WHERE k = $::iKey; } 55 } $Len 56 57 do_test tkt2332.$Len.5 { 58 lindex [execsql {SELECT v FROM blobs WHERE k = $::iKey}] 0 59 } $::blobstr 60 61 incr ::iKey 62 } 63 64 # Free memory: 65 unset ::blobstr 66 67 finish_test 68
