src/third_party/sqlite/src/test/fts1i.test

   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
  13 set testdir [file dirname $argv0]
  14 source $testdir/tester.tcl
  15
  16 # If SQLITE_ENABLE_FTS1 is defined, omit this file.
  17 ifcapable !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.
  26 proc 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
  34 db eval {
  35   PRAGMA encoding = "UTF-16le";
  36   CREATE VIRTUAL TABLE t1 USING fts1(content);
  37 }
  38
  39 do_test fts1i-1.0 {
  40   execsql {PRAGMA encoding}
  41 } {UTF-16le}
  42
  43 do_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
  48 do_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
  56 do_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
  68 do_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
  76 do_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
  88 finish_test