Return to enc3.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/enc3.test, revision 1.1.1.1

1.1       misho       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:   forcedelete 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:   forcedelete test8.db test8.db-journal
                    104:   sqlite3_enable_shared_cache $::enable_shared_cache
                    105: }
                    106: 
                    107: finish_test