diff options
| author | drh <drh@noemail.net> | 2005-08-23 11:17:58 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2005-08-23 11:17:58 +0000 |
| commit | 6c8c6cec1fc4d0d0a39f21c6bca19df4094108c5 (patch) | |
| tree | 6e2d24a41a2bdb83756d1fde0d5a27fa7800d2e9 /test/blob.test | |
| parent | 75757853a0203e3885944d502df955fd3fd205ea (diff) | |
| download | sqlite-6c8c6cec1fc4d0d0a39f21c6bca19df4094108c5.tar.gz sqlite-6c8c6cec1fc4d0d0a39f21c6bca19df4094108c5.zip | |
Handle empty blob constants correctly. Ticket #1373. (CVS 2615)
FossilOrigin-Name: 5cada745ac9bf18a65d21705a398b2bb8bd1aaa2
Diffstat (limited to 'test/blob.test')
| -rw-r--r-- | test/blob.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/blob.test b/test/blob.test index c5251e954..4e49f3864 100644 --- a/test/blob.test +++ b/test/blob.test @@ -10,7 +10,7 @@ #*********************************************************************** # This file implements regression tests for SQLite library. # -# $Id: blob.test,v 1.3 2004/11/03 13:59:06 drh Exp $ +# $Id: blob.test,v 1.4 2005/08/23 11:17:59 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -30,19 +30,19 @@ proc bin_to_hex {blob} { # Simplest possible case. Specify a blob literal do_test blob-1.0 { - set blob [execsql {SELECT X'01020304'}] + set blob [execsql {SELECT X'01020304';}] bin_to_hex [lindex $blob 0] } {01020304} do_test blob-1.1 { - set blob [execsql {SELECT x'ABCDEF'}] + set blob [execsql {SELECT x'ABCDEF';}] bin_to_hex [lindex $blob 0] } {ABCDEF} do_test blob-1.2 { - set blob [execsql {SELECT x''}] + set blob [execsql {SELECT x'';}] bin_to_hex [lindex $blob 0] } {} do_test blob-1.3 { - set blob [execsql {SELECT x'abcdEF12'}] + set blob [execsql {SELECT x'abcdEF12';}] bin_to_hex [lindex $blob 0] } {ABCDEF12} |