AryaWu/sqlite

1# 2009 October 232#3# The author disclaims copyright to this source code.  In place of4# a legal notice, here is a blessing:5#6#    May you do good and not evil.7#    May you find forgiveness for yourself and forgive others.8#    May you share freely, never taking more than you give.9#10#***********************************************************************11# This file implements regression tests for SQLite library.12#13# This file implements tests to verify that ticket [3fe897352e8d8] has been14# fixed.  15#16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19 20# The following tests use hex_to_utf16be() and hex_to_utf16le() which 21# which are only available if SQLite is built with UTF16 support.22ifcapable {!utf16} {23  finish_test24  return25}26 27do_test tkt-3fe89-1.1 {28  db close29  sqlite3 db :memory:30  db eval {31    PRAGMA encoding=UTF8;32    CREATE TABLE t1(x);33    INSERT INTO t1 VALUES(hex_to_utf16be('D800'));34    SELECT hex(x) FROM t1;35  }36} {EDA080}37do_test tkt-3fe89-1.2 {38  db eval {39    DELETE FROM t1;40    INSERT INTO t1 VALUES(hex_to_utf16le('00D8'));41    SELECT hex(x) FROM t1;42  }43} {EDA080}44do_test tkt-3fe89-1.3 {45  db eval {46    DELETE FROM t1;47    INSERT INTO t1 VALUES(hex_to_utf16be('DFFF'));48    SELECT hex(x) FROM t1;49  }50} {EDBFBF}51do_test tkt-3fe89-1.4 {52  db eval {53    DELETE FROM t1;54    INSERT INTO t1 VALUES(hex_to_utf16le('FFDF'));55    SELECT hex(x) FROM t1;56  }57} {EDBFBF}58 59 60finish_test61