database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

More changes for 2.0.7. (CVS 293)

Browse Source 
FossilOrigin-Name: f8328a5f11801c5124f9a8dace22df3c1cfb2191
This commit is contained in:
drh
2001-10-22 02:58:08 +00:00
parent 01a346616f
commit 6d4abfbee5
25 changed files with 567 additions and 223 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
test/tclsqlite.test
View File

@ -15,7 +15,7 @@
# interface is pretty well tested. This file contains some addition
# tests for fringe issues that the main test suite does not cover.
#
# $Id: tclsqlite.test,v 1.2 2001/09/16 00:13:28 drh Exp $
# $Id: tclsqlite.test,v 1.3 2001/10/22 02:58:11 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -65,4 +65,29 @@ do_test tcl-1.6 {
lappend v $msg
} {1 {syntax error in expression "x*"}}
if {[sqlite -encoding]=="UTF-8" && [sqlite -tcl-uses-utf]} {
do_test tcl-2.1 {
execsql "CREATE TABLE t\u0123x(a int, b\u1235 float)"
execsql "PRAGMA table_info(t\u0123x)"
} "0 a int 0 {} 1 b\u1235 float 0 {}"
do_test tcl-2.2 {
execsql "INSERT INTO t\u0123x VALUES(1,2.3)"
db eval "SELECT * FROM t\u0123x" result break
set result(*)
} "a b\u1235"
}
if {[sqlite -encoding]=="iso8859" && [sqlite -tcl-uses-utf]} {
do_test tcl-2.1 {
execsql "CREATE TABLE t\251x(a int, b\306 float)"
execsql "PRAGMA table_info(t\251x)"
} "0 a int 0 {} 1 b\306 float 0 {}"
do_test tcl-2.2 {
execsql "INSERT INTO t\251x VALUES(1,2.3)"
db eval "SELECT * FROM t\251x" result break
set result(*)
} "a b\306"
}
finish_test