OLD | NEW |
| (Empty) |
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 | |
17 source [file join [file dirname [info script]] fts5_common.tcl] | |
18 set testprefix fts5full | |
19 | |
20 # If SQLITE_ENABLE_FTS5 is defined, omit this file. | |
21 ifcapable !fts5 { | |
22 finish_test | |
23 return | |
24 } | |
25 | |
26 do_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 | |
32 db func rnddoc fts5_rnddoc | |
33 do_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 } {1 {database or disk is full}} | |
40 | |
41 | |
42 finish_test | |
43 | |
OLD | NEW |