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 | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 1c19854ae7790a8a1d5c9cfe8b2cb71e |
| User & Date: | drh 2008-04-16 23:39:26 |
Context
|
2008-04-16
| ||
| 23:50 | Add the -overwrite option to speedtest8.c. (CVS 5022) check-in: 6765ea52 user: drh tags: trunk | |
| 23:39 | Clear a global variable in the incrblob.test script. Ticket #3062. (CVS 5021) check-in: 1c19854a 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: 7c094c80 user: drh tags: trunk | |
Changes
Changes to test/incrblob.test.
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
..
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# # 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.18 2008/01/05 04:06:04 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable {!autovacuum || !pragma || !incrblob} { finish_test ................................................................................ } } {} 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" |
|
>
|
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
..
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# # 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 ................................................................................ } } {} 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" |