github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/fts4merge5.test (about)

     1  # 2019 October 02
     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 FTS4 module.
    13  #
    14  
    15  set testdir [file dirname $argv0]
    16  source $testdir/tester.tcl
    17  set testprefix fts4merge5
    18  
    19  # If SQLITE_ENABLE_FTS3 is defined, omit this file.
    20  ifcapable !fts3 {
    21    finish_test
    22    return
    23  }
    24  
    25  source $testdir/genesis.tcl
    26  
    27  do_execsql_test 1.1 { 
    28    CREATE TABLE t1(docid, words);
    29  }
    30  fts_kjv_genesis
    31  
    32  do_execsql_test 1.2 {
    33    CREATE VIRTUAL TABLE x1 USING fts3; 
    34    INSERT INTO x1(x1) VALUES('nodesize=64');
    35    INSERT INTO x1(x1) VALUES('maxpending=64');
    36  }
    37  
    38  do_execsql_test 1.3 {
    39    INSERT INTO x1(docid, content) SELECT * FROM t1;
    40  }
    41  
    42  for {set tn 1} {1} {incr tn} {
    43    set tc1 [db total_changes]
    44    do_execsql_test 1.4.$tn.1 {
    45      INSERT INTO x1(x1) VALUES('merge=1,2');
    46    }
    47    set tc2 [db total_changes]
    48  
    49    if {($tc2 - $tc1)<2} break
    50  
    51    do_execsql_test 1.4.$tn.1 {
    52      INSERT INTO x1(x1) VALUES('integrity-check');
    53    }
    54  }
    55  
    56  
    57  
    58  finish_test