Artifact
6e71cd964ff3d93fa519ee90a0a1fd3662ed9a4b:
- File
Tests/tkt-7c151a2f0e.eagle
— part of check-in
[749d5af8d3]
at
2015-05-19 18:24:27
on branch trunk
— Make sure enabling UseUTF16Encoding sets the schema encoding to UTF-16. Fix for [7c151a2f0e].
(user:
mistachkin
size: 2445)
###############################################################################
#
# tkt-7c151a2f0e.eagle --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
package require Eagle
package require Eagle.Library
package require Eagle.Test
runTestPrologue
###############################################################################
package require System.Data.SQLite.Test
runSQLiteTestPrologue
###############################################################################
set character \UDDFDD83D; # NOTE: This is little-endian.
###############################################################################
runTest {test tkt-7c151a2f0e-1.1 {Open with UseUTF16Encoding=False} -setup {
set fileName tkt-7c151a2f0e-1.1.db
setupDb $fileName "" "" "" "" UseUTF16Encoding=False
} -body {
sql execute $db "CREATE TABLE t1(x TEXT);"
sql execute $db [appendArgs "INSERT INTO t1 (x) VALUES(?);"] \
[list param1 String $character]
list [sql execute -execute scalar $db "PRAGMA encoding;"] \
[sql execute -execute scalar $db "SELECT x FROM t1;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result [appendArgs "UTF-8 " $character]}
###############################################################################
runTest {test tkt-7c151a2f0e-1.2 {Open with UseUTF16Encoding=True} -setup {
set fileName tkt-7c151a2f0e-1.2.db
setupDb $fileName "" "" "" "" UseUTF16Encoding=True
} -body {
sql execute $db "CREATE TABLE t1(x TEXT);"
sql execute $db [appendArgs "INSERT INTO t1 (x) VALUES(?);"] \
[list param1 String $character]
list [sql execute -execute scalar $db "PRAGMA encoding;"] \
[sql execute -execute scalar $db "SELECT x FROM t1;"]
} -cleanup {
cleanupDb $fileName
unset -nocomplain db fileName
} -constraints {eagle command.object monoBug28 command.sql compile.DATA SQLite\
System.Data.SQLite} -result [appendArgs "UTF-16le " $character]}
###############################################################################
unset -nocomplain character
###############################################################################
runSQLiteTestEpilogue
runTestEpilogue