test/tkt2332.test

   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