| 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
|
|
|