test/fts4merge3.test

   1 # 2012 March 06
   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 incremental merge function.
  13 #
  14
  15 set testdir [file dirname $argv0]
  16 source $testdir/tester.tcl
  17 source $testdir/fts3_common.tcl
  18 source $testdir/lock_common.tcl
  19 source $testdir/bc_common.tcl
  20
  21 set ::testprefix fts4merge3
  22
  23 ifcapable !fts3 {
  24   finish_test
  25   return
  26 }
  27
  28 if {"" == [bc_find_binaries backcompat.test]} {
  29   finish_test
  30   return
  31 }
  32
  33 db close
  34 do_all_bc_test {
  35
  36   sql2 { PRAGMA page_size = 512 }
  37   if { 0==[catch { sql2 { CREATE VIRTUAL TABLE x USING fts4 } } ] } {
  38
  39     # Build a large database.
  40     set msg "this takes around 12 seconds"
  41     do_test "1.1 ($msg)" { fts3_build_db_2 20000 } {}
  42
  43     # Run some queries on it, using the old and new versions.
  44     do_test 1.2 { sql1 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" } {1485}
  45     do_test 1.3 { sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'" } {1485}
  46
  47     do_test 1.4 {
  48       set x [sql2 "PRAGMA page_count"]
  49       expr {$x>=1284 && $x<=1286}
  50     } {1}
  51     do_test 1.5 { sql2 {
  52       SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1
  53     } } [list 0 15    1 1     2 14    3 4]
  54
  55     # Run some incr-merge operations on the db.
  56     for {set i 0} {$i<10} {incr i} {
  57       do_test 1.6.$i.1 { sql1 { INSERT INTO t2(t2) VALUES('merge=2,2') } } {}
  58       do_test 1.6.$i.2 {
  59         sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'"
  60       } {1485}
  61     }
  62
  63     do_test 1.7 { sql2 {
  64       SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1
  65     } } {2 15 3 5}
  66
  67     # Using the old connection, insert many rows.
  68     do_test 1.8 {
  69       for {set i 0} {$i < 1500} {incr i} {
  70         sql2 "INSERT INTO t2 SELECT content FROM t2 WHERE docid = $i"
  71       }
  72     } {}
  73
  74     do_test 1.9 { sql2 {
  75       SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1
  76     } } [list  0 12  1 13  2 4  3 6]
  77
  78     # Run a big incr-merge operation on the db.
  79     do_test 1.10 { sql1 { INSERT INTO t2(t2) VALUES('merge=2000,2') } } {}
  80     do_test 1.11 {
  81       sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'"
  82     } {1485 21485}
  83
  84     do_test 1.12 {
  85       for {set i 0} {$i < 1500} {incr i} {
  86         sql2 "INSERT INTO t2 SELECT content FROM t2 WHERE docid = $i"
  87       }
  88     } {}
  89     do_test 1.13 {
  90       sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'"
  91     } {1485 21485 22985}
  92
  93     do_test 1.14 {
  94       sql2 "INSERT INTO t2(t2) VALUES('optimize')"
  95       sql2 "SELECT docid FROM t2 WHERE t2 MATCH 'abc'"
  96     } {1485 21485 22985}
  97
  98     do_test 1.15 { sql2 {
  99       SELECT level, count(*) FROM t2_segdir GROUP BY level ORDER BY 1
 100     } } {4 1}
 101   }
 102 }
 103
 104
 105 finish_test