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