1# 2014 Dec 20 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# 12# Test that SQLITE_FULL is returned if the FTS5 table cannot find a free 13# segid to use. In practice this can only really happen when automerge and 14# crisismerge are both disabled. 15# 16 17source [file join [file dirname [info script]] fts5_common.tcl] 18set testprefix fts5full 19 20# If SQLITE_ENABLE_FTS5 is defined, omit this file. 21ifcapable !fts5 { 22 finish_test 23 return 24} 25 26do_execsql_test 1.0 { 27 CREATE VIRTUAL TABLE x8 USING fts5(i); 28 INSERT INTO x8(x8, rank) VALUES('automerge', 0); 29 INSERT INTO x8(x8, rank) VALUES('crisismerge', 100000); 30} 31 32db func rnddoc fts5_rnddoc 33do_test 1.1 { 34 list [catch { 35 for {set i 0} {$i < 2500} {incr i} { 36 execsql { INSERT INTO x8 VALUES( rnddoc(5) ); } 37 } 38 } msg] $msg 39} {0 {}} 40 41 42finish_test 43