wasCSharpSQLite – Blame information for rev
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1 | office | 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 |