Return to tkt2332.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt2332.test, revision 1.1.1.1

1.1       misho       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