Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Clear a global variable in the incrblob.test script. Ticket #3062. (CVS 5021) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
1c19854ae7790a8a1d5c9cfe8b2cb71e |
User & Date: | drh 2008-04-16 23:39:26.000 |
Context
2008-04-16
| ||
23:50 | Add the -overwrite option to speedtest8.c. (CVS 5022) (check-in: 6765ea52b3 user: drh tags: trunk) | |
23:39 | Clear a global variable in the incrblob.test script. Ticket #3062. (CVS 5021) (check-in: 1c19854ae7 user: drh tags: trunk) | |
16:11 | Fix the bind.test test script so that the tests for zeros embedded in strings work correctly for UTF-16 encoded databases. (CVS 5020) (check-in: 7c094c80b2 user: drh tags: trunk) | |
Changes
Changes to test/incrblob.test.
1 2 3 4 5 6 7 8 9 10 11 | # 2007 May 1 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # 2007 May 1 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # # $Id: incrblob.test,v 1.19 2008/04/16 23:39:26 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!autovacuum || !pragma || !incrblob} { finish_test |
︙ | ︙ | |||
28 29 30 31 32 33 34 35 36 37 38 39 40 41 | } } {} do_test incrblob-1.2.1 { set ::blob [db incrblob blobs v 1] string match incrblob_* $::blob } {1} do_test incrblob-1.2.2 { binary scan [read $::blob] c* data set data } {1 2 3 4 5 6 7 8 9 10} do_test incrblob-1.2.3 { seek $::blob 0 puts -nonewline $::blob "1234567890" | > | 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | } } {} do_test incrblob-1.2.1 { set ::blob [db incrblob blobs v 1] string match incrblob_* $::blob } {1} unset -nocomplain data do_test incrblob-1.2.2 { binary scan [read $::blob] c* data set data } {1 2 3 4 5 6 7 8 9 10} do_test incrblob-1.2.3 { seek $::blob 0 puts -nonewline $::blob "1234567890" |
︙ | ︙ |