Index: third_party/sqlite/sqlite-src-3080704/test/fts3expr3.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/fts3expr3.test b/third_party/sqlite/sqlite-src-3080704/test/fts3expr3.test |
deleted file mode 100644 |
index a8d7319266afed1269af26dbdaa3b7aadeda27d1..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/fts3expr3.test |
+++ /dev/null |
@@ -1,206 +0,0 @@ |
-# 2009 January 1 |
-# |
-# The author disclaims copyright to this source code. In place of |
-# a legal notice, here is a blessing: |
-# |
-# May you do good and not evil. |
-# May you find forgiveness for yourself and forgive others. |
-# May you share freely, never taking more than you give. |
-# |
-#************************************************************************* |
-# This file implements regression tests for SQLite library. The |
-# focus of this script is testing the part of the FTS3 expression |
-# parser that rebalances large expressions. |
-# |
-# $Id: fts3expr2.test,v 1.2 2009/06/05 17:09:12 drh Exp $ |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-source $testdir/malloc_common.tcl |
-set ::testprefix fts3expr3 |
- |
-# If SQLITE_ENABLE_FTS3 is defined, omit this file. |
-ifcapable !fts3 { |
- finish_test |
- return |
-} |
- |
-set sqlite_fts3_enable_parentheses 1 |
- |
-proc strip_phrase_data {L} { |
- if {[lindex $L 0] eq "PHRASE"} { |
- return [list P [lrange $L 3 end]] |
- } |
- return [list \ |
- [lindex $L 0] \ |
- [strip_phrase_data [lindex $L 1]] \ |
- [strip_phrase_data [lindex $L 2]] \ |
- ] |
-} |
-proc test_fts3expr2 {expr} { |
- strip_phrase_data [ |
- db one {SELECT fts3_exprtest_rebalance('simple', $expr, 'a', 'b', 'c')} |
- ] |
-} |
- |
-proc balanced_exprtree_structure {nEntry} { |
- set L [list] |
- for {set i 1} {$i <= $nEntry} {incr i} { |
- lappend L xxx |
- } |
- while {[llength $L] > 1} { |
- set N [list] |
- if {[llength $L] % 2} { |
- foreach {a b} [lrange $L 0 end-1] { lappend N [list AND $a $b] } |
- lappend N [lindex $L end] |
- } else { |
- foreach {a b} $L { lappend N [list AND $a $b] } |
- } |
- set L $N |
- } |
- return [lindex $L 0] |
-} |
- |
-proc balanced_and_tree {nEntry} { |
- set query [balanced_exprtree_structure $nEntry] |
- if {$query == "xxx"} { |
- return "P 1" |
- } |
- for {set i 1} {$i <= $nEntry} {incr i} { |
- regsub xxx $query "{P $i}" query |
- } |
- return $query |
-} |
- |
-proc random_tree_structure {nEntry bParen op} { |
- set query xxx |
- for {set i 1} {$i < $nEntry} {incr i} { |
- set x1 [expr int(rand()*4.0)] |
- set x2 [expr int(rand()*2.0)] |
- if {$x1==0 && $bParen} { |
- set query "($query)" |
- } |
- if {$x2} { |
- set query "xxx $op $query" |
- } else { |
- set query "$query $op xxx" |
- } |
- } |
- return $query |
-} |
- |
-proc random_and_query {nEntry {bParen 0}} { |
- set query [random_tree_structure $nEntry $bParen AND] |
- for {set i 1} {$i <= $nEntry} {incr i} { |
- regsub xxx $query $i query |
- } |
- return $query |
-} |
- |
-proc random_or_query {nEntry} { |
- set query [random_tree_structure $nEntry 1 OR] |
- for {set i 1} {$i <= $nEntry} {incr i} { |
- regsub xxx $query $i query |
- } |
- return $query |
-} |
- |
-proc random_andor_query {nEntry} { |
- set query [random_tree_structure $nEntry 1 AND] |
- for {set i 1} {$i <= $nEntry} {incr i} { |
- regsub xxx $query "([random_or_query $nEntry])" query |
- } |
- return $query |
-} |
- |
-proc balanced_andor_tree {nEntry} { |
- set tree [balanced_exprtree_structure $nEntry] |
- set node "{[balanced_and_tree $nEntry]}" |
- regsub -all AND $node OR node |
- regsub -all xxx $tree $node tree |
- return $tree |
-} |
- |
-# Test that queries like "1 AND 2 AND 3 AND 4..." are transformed to |
-# balanced trees by FTS. |
-# |
-for {set i 1} {$i < 100} {incr i} { |
- do_test 1.$i { |
- test_fts3expr2 [random_and_query $i] |
- } [balanced_and_tree $i] |
-} |
- |
-# Same again, except with parenthesis inserted at arbitrary points. |
-# |
-for {set i 1} {$i < 100} {incr i} { |
- do_test 2.$i { |
- test_fts3expr2 [random_and_query $i 1] |
- } [balanced_and_tree $i] |
-} |
- |
-# Now attempt to balance two AND trees joined by an OR. |
-# |
-for {set i 1} {$i < 100} {incr i} { |
- do_test 3.$i { |
- test_fts3expr2 "[random_and_query $i 1] OR [random_and_query $i 1]" |
- } [list OR [balanced_and_tree $i] [balanced_and_tree $i]] |
-} |
- |
-# Try trees of AND nodes with leaves that are themselves trees of OR nodes. |
-# |
-for {set i 2} {$i < 64} {incr i 4} { |
- do_test 3.$i { |
- test_fts3expr2 [random_andor_query $i] |
- } [balanced_andor_tree $i] |
-} |
- |
-# These exceed the depth limit. |
-# |
-for {set i 65} {$i < 70} {incr i} { |
- do_test 3.$i { |
- list [catch {test_fts3expr2 [random_andor_query $i]} msg] $msg |
- } {1 {Error parsing expression}} |
-} |
- |
-# This also exceeds the depth limit. |
-# |
- |
-do_test 4.1.1 { |
- set q "1" |
- for {set i 2} {$i < 5000} {incr i} { |
- append q " AND $i" |
- } |
- list [catch {test_fts3expr2 $q} msg] $msg |
-} {1 {Error parsing expression}} |
-do_test 4.1.2 { |
- set q "1" |
- for {set i 2} {$i < 4000} {incr i} { |
- append q " AND $i" |
- } |
- catch {test_fts3expr2 $q} |
-} {0} |
- |
-proc create_toggle_tree {nDepth} { |
- if {$nDepth == 0} { return xxx } |
- set nNew [expr $nDepth-1] |
- if {$nDepth % 2} { |
- return "([create_toggle_tree $nNew]) OR ([create_toggle_tree $nNew])" |
- } |
- return "([create_toggle_tree $nNew]) AND ([create_toggle_tree $nNew])" |
-} |
- |
-do_test 4.2 { |
- list [catch {test_fts3expr2 [create_toggle_tree 17]} msg] $msg |
-} {1 {Error parsing expression}} |
- |
-set query [random_andor_query 12] |
-set result [balanced_andor_tree 12] |
-do_faultsim_test fts3expr3-fault-1 -faults oom-* -body { |
- test_fts3expr2 $::query |
-} -test { |
- faultsim_test_result [list 0 $::result] |
-} |
- |
-set sqlite_fts3_enable_parentheses 0 |
-finish_test |