1# 2007 January 17 2# 3# The author disclaims copyright to this source code. 4# 5#************************************************************************* 6# This file implements regression tests for SQLite fts1 library. The 7# focus here is testing handling of UPDATE when using UTF-16-encoded 8# databases. 9# 10# $Id: fts1i.test,v 1.2 2007/01/24 03:43:20 drh Exp $ 11# 12 13set testdir [file dirname $argv0] 14source $testdir/tester.tcl 15 16# If SQLITE_ENABLE_FTS1 is defined, omit this file. 17ifcapable !fts1 { 18 finish_test 19 return 20} 21 22 23# Return the UTF-16 representation of the supplied UTF-8 string $str. 24# If $nt is true, append two 0x00 bytes as a nul terminator. 25# NOTE(shess) Copied from capi3.test. 26proc utf16 {str {nt 1}} { 27 set r [encoding convertto unicode $str] 28 if {$nt} { 29 append r "\x00\x00" 30 } 31 return $r 32} 33 34db eval { 35 PRAGMA encoding = "UTF-16le"; 36 CREATE VIRTUAL TABLE t1 USING fts1(content); 37} 38 39do_test fts1i-1.0 { 40 execsql {PRAGMA encoding} 41} {UTF-16le} 42 43do_test fts1i-1.1 { 44 execsql {INSERT INTO t1 (rowid, content) VALUES(1, 'one')} 45 execsql {SELECT content FROM t1 WHERE rowid = 1} 46} {one} 47 48do_test fts1i-1.2 { 49 set sql "INSERT INTO t1 (rowid, content) VALUES(2, 'two')" 50 set STMT [sqlite3_prepare $DB $sql -1 TAIL] 51 sqlite3_step $STMT 52 sqlite3_finalize $STMT 53 execsql {SELECT content FROM t1 WHERE rowid = 2} 54} {two} 55 56do_test fts1i-1.3 { 57 set sql "INSERT INTO t1 (rowid, content) VALUES(3, 'three')" 58 set STMT [sqlite3_prepare $DB $sql -1 TAIL] 59 sqlite3_step $STMT 60 sqlite3_finalize $STMT 61 set sql "UPDATE t1 SET content = 'trois' WHERE rowid = 3" 62 set STMT [sqlite3_prepare $DB $sql -1 TAIL] 63 sqlite3_step $STMT 64 sqlite3_finalize $STMT 65 execsql {SELECT content FROM t1 WHERE rowid = 3} 66} {trois} 67 68do_test fts1i-1.4 { 69 set sql16 [utf16 {INSERT INTO t1 (rowid, content) VALUES(4, 'four')}] 70 set STMT [sqlite3_prepare16 $DB $sql16 -1 TAIL] 71 sqlite3_step $STMT 72 sqlite3_finalize $STMT 73 execsql {SELECT content FROM t1 WHERE rowid = 4} 74} {four} 75 76do_test fts1i-1.5 { 77 set sql16 [utf16 {INSERT INTO t1 (rowid, content) VALUES(5, 'five')}] 78 set STMT [sqlite3_prepare16 $DB $sql16 -1 TAIL] 79 sqlite3_step $STMT 80 sqlite3_finalize $STMT 81 set sql "UPDATE t1 SET content = 'cinq' WHERE rowid = 5" 82 set STMT [sqlite3_prepare $DB $sql -1 TAIL] 83 sqlite3_step $STMT 84 sqlite3_finalize $STMT 85 execsql {SELECT content FROM t1 WHERE rowid = 5} 86} {cinq} 87 88finish_test 89