10
10
#***********************************************************************
11
11
# This file implements regression tests for SQLite library.
13
# $Id: blob.test,v 1.5 2006/01/03 00:33:50 drh Exp $
13
# $Id: blob.test,v 1.7 2008/04/04 15:12:22 drh Exp $
15
15
set testdir [file dirname $argv0]
16
16
source $testdir/tester.tcl
45
45
set blob [execsql {SELECT x'abcdEF12';}]
46
46
bin_to_hex [lindex $blob 0]
49
set blob [execsql {SELECT x'0123456789abcdefABCDEF';}]
50
bin_to_hex [lindex $blob 0]
51
} {0123456789ABCDEFABCDEF}
49
53
# Try some syntax errors in blob literals.
51
55
catchsql {SELECT X'01020k304', 100}
52
} {1 {unrecognized token: "X'01020"}}
56
} {1 {unrecognized token: "X'01020k304'"}}
54
58
catchsql {SELECT X'01020, 100}
55
} {1 {unrecognized token: "X'01020"}}
59
} {1 {unrecognized token: "X'01020, 100"}}
57
61
catchsql {SELECT X'01020 100'}
58
} {1 {unrecognized token: "X'01020"}}
62
} {1 {unrecognized token: "X'01020 100'"}}
60
64
catchsql {SELECT X'01001'}
61
65
} {1 {unrecognized token: "X'01001'"}}
67
catchsql {SELECT x'012/45'}
68
} {1 {unrecognized token: "x'012/45'"}}
70
catchsql {SELECT x'012:45'}
71
} {1 {unrecognized token: "x'012:45'"}}
73
catchsql {SELECT x'012@45'}
74
} {1 {unrecognized token: "x'012@45'"}}
76
catchsql {SELECT x'012G45'}
77
} {1 {unrecognized token: "x'012G45'"}}
79
catchsql {SELECT x'012`45'}
80
} {1 {unrecognized token: "x'012`45'"}}
82
catchsql {SELECT x'012g45'}
83
} {1 {unrecognized token: "x'012g45'"}}
63
86
# Insert a blob into a table and retrieve it.