gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/enc3.test (about) 1 # 2002 May 24 2 # 3 # The author disclaims copyright to this source code. In place of 4 # 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 # The focus of this file is testing of the proper handling of conversions 14 # to the native text representation. 15 # 16 # $Id: enc3.test,v 1.8 2008/01/22 01:48:09 drh Exp $ 17 18 set testdir [file dirname $argv0] 19 source $testdir/tester.tcl 20 21 ifcapable {utf16} { 22 do_test enc3-1.1 { 23 execsql { 24 PRAGMA encoding=utf16le; 25 PRAGMA encoding; 26 } 27 } {UTF-16le} 28 } 29 do_test enc3-1.2 { 30 execsql { 31 CREATE TABLE t1(x,y); 32 INSERT INTO t1 VALUES('abc''123',5); 33 SELECT * FROM t1 34 } 35 } {abc'123 5} 36 do_test enc3-1.3 { 37 execsql { 38 SELECT quote(x) || ' ' || quote(y) FROM t1 39 } 40 } {{'abc''123' 5}} 41 ifcapable {bloblit} { 42 do_test enc3-1.4 { 43 execsql { 44 DELETE FROM t1; 45 INSERT INTO t1 VALUES(x'616263646566',NULL); 46 SELECT * FROM t1 47 } 48 } {abcdef {}} 49 do_test enc3-1.5 { 50 execsql { 51 SELECT quote(x) || ' ' || quote(y) FROM t1 52 } 53 } {{X'616263646566' NULL}} 54 } 55 ifcapable {bloblit && utf16} { 56 do_test enc3-2.1 { 57 execsql { 58 PRAGMA encoding 59 } 60 } {UTF-16le} 61 do_test enc3-2.2 { 62 execsql { 63 CREATE TABLE t2(a); 64 INSERT INTO t2 VALUES(x'61006200630064006500'); 65 SELECT CAST(a AS text) FROM t2 WHERE CAST(a AS text) LIKE 'abc%'; 66 } 67 } {abcde} 68 do_test enc3-2.3 { 69 execsql { 70 SELECT CAST(x'61006200630064006500' AS text); 71 } 72 } {abcde} 73 do_test enc3-2.4 { 74 execsql { 75 SELECT rowid FROM t2 76 WHERE CAST(a AS text) LIKE CAST(x'610062002500' AS text); 77 } 78 } {1} 79 } 80 81 # Try to attach a database with a different encoding. 82 # 83 ifcapable {utf16 && shared_cache} { 84 db close 85 forcedelete test8.db test8.db-journal 86 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] 87 sqlite3 dbaux test8.db 88 sqlite3 db test.db 89 db eval {SELECT 1 FROM sqlite_master LIMIT 1} 90 do_test enc3-3.1 { 91 dbaux eval { 92 PRAGMA encoding='utf8'; 93 CREATE TABLE t1(x); 94 PRAGMA encoding 95 } 96 } {UTF-8} 97 do_test enc3-3.2 { 98 catchsql { 99 ATTACH 'test.db' AS utf16; 100 SELECT 1 FROM utf16.sqlite_master LIMIT 1; 101 } dbaux 102 } {1 {attached databases must use the same text encoding as main database}} 103 dbaux close 104 forcedelete test8.db test8.db-journal 105 sqlite3_enable_shared_cache $::enable_shared_cache 106 } 107 108 finish_test