Return to fts3conf.test CVS log

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

Annotation of embedaddon/sqlite3/test/fts3conf.test, revision 1.1

1.1     ! misho       1: # 2011 April 25
        !             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.  The
        !            12: # focus of this script is testing the FTS3 module.
        !            13: 
        !            14: 
        !            15: set testdir [file dirname $argv0]
        !            16: source $testdir/tester.tcl
        !            17: set testprefix fts3conf
        !            18: 
        !            19: # If SQLITE_ENABLE_FTS3 is defined, omit this file.
        !            20: ifcapable !fts3 {
        !            21:   finish_test
        !            22:   return
        !            23: }
        !            24: 
        !            25: 
        !            26: proc fts3_integrity {tn db tbl} {
        !            27: 
        !            28:   if {[sqlite3_get_autocommit $db]==0} {
        !            29:     error "fts3_integrity does not work with an open transaction"
        !            30:   }
        !            31: 
        !            32:   set sql [db one {SELECT sql FROM sqlite_master WHERE name = $tbl}]
        !            33:   regexp -nocase {[^(]* using (.*)} $sql -> tail
        !            34:   set cols [list]
        !            35:   $db eval "PRAGMA table_info($tbl)" {
        !            36:     lappend cols $name
        !            37:   }
        !            38:   set cols [join [concat docid $cols] ,]
        !            39: 
        !            40:   $db eval [subst {
        !            41:     CREATE VIRTUAL TABLE fts3check USING fts4term($tbl);
        !            42:     CREATE VIRTUAL TABLE temp.fts3check2 USING $tail;
        !            43:     INSERT INTO temp.fts3check2($cols) SELECT docid, * FROM $tbl;
        !            44:     CREATE VIRTUAL TABLE temp.fts3check3 USING fts4term(fts3check2);
        !            45:   }]
        !            46: 
        !            47:   set m1 [$db one {SELECT md5sum(term, docid, col, pos) FROM fts3check}]
        !            48:   set m2 [$db one {SELECT md5sum(term, docid, col, pos) FROM fts3check3}]
        !            49: 
        !            50:   $db eval {
        !            51:     DROP TABLE fts3check;
        !            52:     DROP TABLE temp.fts3check2;
        !            53:     DROP TABLE temp.fts3check3;
        !            54:   }
        !            55:   
        !            56:   uplevel [list do_test $tn [list set {} $m1] $m2]
        !            57: }
        !            58: 
        !            59: do_execsql_test 1.0.1 {
        !            60:   CREATE VIRTUAL TABLE t1 USING fts3(x);
        !            61:   INSERT INTO t1(rowid, x) VALUES(1, 'a b c d');
        !            62:   INSERT INTO t1(rowid, x) VALUES(2, 'e f g h');
        !            63: 
        !            64:   CREATE TABLE source(a, b);
        !            65:   INSERT INTO source VALUES(4, 'z');
        !            66:   INSERT INTO source VALUES(2, 'y');
        !            67: }
        !            68: db_save_and_close
        !            69: 
        !            70: set T1 "INTO t1(rowid, x) VALUES(1, 'x')"
        !            71: set T2 "INTO t1(rowid, x) SELECT * FROM source"
        !            72: 
        !            73: set T3 "t1 SET docid = 2 WHERE docid = 1"
        !            74: set T4 "t1 SET docid = CASE WHEN docid = 1 THEN 4 ELSE 3 END WHERE docid <=2"
        !            75: 
        !            76: foreach {tn sql uses constraint data} [subst {
        !            77:   1    "INSERT OR ROLLBACK $T1"   0 1 {{a b c d} {e f g h}}
        !            78:   2    "INSERT OR ABORT    $T1"   0 1 {{a b c d} {e f g h} {i j k l}}
        !            79:   3    "INSERT OR FAIL     $T1"   0 1 {{a b c d} {e f g h} {i j k l}}
        !            80:   4    "INSERT OR IGNORE   $T1"   0 0 {{a b c d} {e f g h} {i j k l}}
        !            81:   5    "INSERT OR REPLACE  $T1"   0 0 {x {e f g h} {i j k l}}
        !            82: 
        !            83:   6    "INSERT OR ROLLBACK $T2"   1 1 {{a b c d} {e f g h}}
        !            84:   7    "INSERT OR ABORT    $T2"   1 1 {{a b c d} {e f g h} {i j k l}}
        !            85:   8    "INSERT OR FAIL     $T2"   1 1 {{a b c d} {e f g h} {i j k l} z}
        !            86:   9    "INSERT OR IGNORE   $T2"   1 0 {{a b c d} {e f g h} {i j k l} z}
        !            87:   10   "INSERT OR REPLACE  $T2"   1 0 {{a b c d} y {i j k l} z}
        !            88: 
        !            89:   11   "UPDATE OR ROLLBACK $T3"   1 1 {{a b c d} {e f g h}}
        !            90:   12   "UPDATE OR ABORT    $T3"   1 1 {{a b c d} {e f g h} {i j k l}}
        !            91:   13   "UPDATE OR FAIL     $T3"   1 1 {{a b c d} {e f g h} {i j k l}}
        !            92:   14   "UPDATE OR IGNORE   $T3"   1 0 {{a b c d} {e f g h} {i j k l}}
        !            93:   15   "UPDATE OR REPLACE  $T3"   1 0 {{a b c d} {i j k l}}
        !            94: 
        !            95:   16   "UPDATE OR ROLLBACK $T4"   1 1 {{a b c d} {e f g h}}
        !            96:   17   "UPDATE OR ABORT    $T4"   1 1 {{a b c d} {e f g h} {i j k l}}
        !            97:   18   "UPDATE OR FAIL     $T4"   1 1 {{e f g h} {i j k l} {a b c d}}
        !            98:   19   "UPDATE OR IGNORE   $T4"   1 0 {{e f g h} {i j k l} {a b c d}}
        !            99:   20   "UPDATE OR REPLACE  $T4"   1 0 {{e f g h} {a b c d}}
        !           100: }] {
        !           101:   db_restore_and_reopen
        !           102:   execsql { 
        !           103:     BEGIN;
        !           104:       INSERT INTO t1(rowid, x) VALUES(3, 'i j k l');
        !           105:   }
        !           106:   set R(0) {0 {}}
        !           107:   set R(1) {1 {constraint failed}}
        !           108:   do_catchsql_test 1.$tn.1 $sql $R($constraint)
        !           109:   do_catchsql_test 1.$tn.2 { SELECT * FROM t1 } [list 0 $data]
        !           110:   catchsql COMMIT
        !           111: 
        !           112:   fts3_integrity 1.$tn.3 db t1
        !           113: 
        !           114:   do_test 1.$tn.4 [list sql_uses_stmt db $sql] $uses
        !           115: }
        !           116: 
        !           117: do_execsql_test 2.1.1 {
        !           118:   DELETE FROM t1;
        !           119:   BEGIN;
        !           120:     INSERT INTO t1 VALUES('a b c');
        !           121:     SAVEPOINT a;
        !           122:       INSERT INTO t1 VALUES('x y z');
        !           123:     ROLLBACK TO a;
        !           124:   COMMIT;
        !           125: }
        !           126: fts3_integrity 2.1.2 db t1
        !           127: 
        !           128: do_catchsql_test 2.2.1 {
        !           129:   DELETE FROM t1;
        !           130:   BEGIN;
        !           131:     INSERT INTO t1(docid, x) VALUES(0, 'a b c');
        !           132:     INSERT INTO t1(docid, x) VALUES(1, 'a b c');
        !           133:     REPLACE INTO t1(docid, x) VALUES('zero', 'd e f');
        !           134: } {1 {datatype mismatch}}
        !           135: do_execsql_test 2.2.2 { COMMIT }
        !           136: do_execsql_test 2.2.3 { SELECT * FROM t1 } {{a b c} {a b c}}
        !           137: fts3_integrity 2.2.4 db t1
        !           138: 
        !           139: finish_test