wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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 a 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 WHERE a LIKE x'610062002500';
76 }
77 } {1}
78 }
79  
80 # Try to attach a database with a different encoding.
81 #
82 ifcapable {utf16 && shared_cache} {
83 db close
84 file delete -force test8.db test8.db-journal
85 set ::enable_shared_cache [sqlite3_enable_shared_cache 1]
86 sqlite3 dbaux test8.db
87 sqlite3 db test.db
88 db eval {SELECT 1 FROM sqlite_master LIMIT 1}
89 do_test enc3-3.1 {
90 dbaux eval {
91 PRAGMA encoding='utf8';
92 CREATE TABLE t1(x);
93 PRAGMA encoding
94 }
95 } {UTF-8}
96 do_test enc3-3.2 {
97 catchsql {
98 ATTACH 'test.db' AS utf16;
99 SELECT 1 FROM utf16.sqlite_master LIMIT 1;
100 } dbaux
101 } {1 {attached databases must use the same text encoding as main database}}
102 dbaux close
103 file delete -force test8.db test8.db-journal
104 sqlite3_enable_shared_cache $::enable_shared_cache
105 }
106  
107 finish_test