Index: third_party/sqlite/sqlite-src-3080704/test/sortfault.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/sortfault.test b/third_party/sqlite/sqlite-src-3080704/test/sortfault.test |
new file mode 100644 |
index 0000000000000000000000000000000000000000..a1983ac1c0b8c251deb336df005edbf451348d3a |
--- /dev/null |
+++ b/third_party/sqlite/sqlite-src-3080704/test/sortfault.test |
@@ -0,0 +1,165 @@ |
+# 2014 March 25. |
+# |
+# 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. |
+# |
+# Specifically, it tests the effects of fault injection on the sorter |
+# module (code in vdbesort.c). |
+# |
+ |
+set testdir [file dirname $argv0] |
+source $testdir/tester.tcl |
+set testprefix sortfault |
+ |
+do_execsql_test 1.0 { |
+ PRAGMA cache_size = 5; |
+} |
+ |
+foreach {tn mmap_limit nWorker tmpstore threadsmode fakeheap lookaside} { |
+ 1 0 0 file multithread false false |
+ 2 100000 0 file multithread false false |
+ 3 100000 1 file multithread false false |
+ 4 2000000 0 file singlethread false true |
+} { |
+ if {$sqlite_options(threadsafe)} { set threadsmode singlethread } |
+ |
+ db eval "PRAGMA threads=$nWorker" |
+ sqlite3_config $threadsmode |
+ if { $lookaside } { |
+ sqlite3_config_lookaside 100 500 |
+ } else { |
+ sqlite3_config_lookaside 0 0 |
+ } |
+ sqlite3_initialize |
+ sorter_test_fakeheap $fakeheap |
+ |
+ set str [string repeat a 1000] |
+ puts $threadsmode |
+ |
+ do_faultsim_test 1.$tn -prep { |
+ sqlite3 db test.db |
+ sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit |
+ execsql { PRAGMA cache_size = 5 } |
+ } -body { |
+ execsql { |
+ WITH r(x,y) AS ( |
+ SELECT 1, $::str |
+ UNION ALL |
+ SELECT x+1, $::str FROM r |
+ LIMIT 200 |
+ ) |
+ SELECT count(x), length(y) FROM r GROUP BY (x%5) |
+ } |
+ } -test { |
+ faultsim_test_result {0 {40 1000 40 1000 40 1000 40 1000 40 1000}} |
+ } |
+ |
+ do_faultsim_test 2.$tn -faults oom* -prep { |
+ sqlite3 db test.db |
+ sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit |
+ add_test_utf16bin_collate db |
+ execsql { PRAGMA cache_size = 5 } |
+ } -body { |
+ execsql { |
+ WITH r(x,y) AS ( |
+ SELECT 100, $::str |
+ UNION ALL |
+ SELECT x-1, $::str FROM r |
+ LIMIT 100 |
+ ) |
+ SELECT count(x), length(y) FROM r GROUP BY y COLLATE utf16bin, (x%5) |
+ } |
+ } -test { |
+ faultsim_test_result {0 {20 1000 20 1000 20 1000 20 1000 20 1000}} |
+ } |
+ |
+ if {$mmap_limit > 1000000} { |
+ set str2 [string repeat $str 10] |
+ |
+ sqlite3_memdebug_vfs_oom_test 0 |
+ sqlite3 db test.db |
+ sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit |
+ execsql { PRAGMA cache_size = 5 } |
+ |
+ do_faultsim_test 3.$tn -faults oom-trans* -body { |
+ execsql { |
+ WITH r(x,y) AS ( |
+ SELECT 300, $::str2 |
+ UNION ALL |
+ SELECT x-1, $::str2 FROM r |
+ LIMIT 300 |
+ ) |
+ SELECT count(x), length(y) FROM r GROUP BY y, (x%5) |
+ } |
+ } -test { |
+ faultsim_test_result {0 {60 10000 60 10000 60 10000 60 10000 60 10000}} |
+ } |
+ |
+ sqlite3_memdebug_vfs_oom_test 1 |
+ } |
+} |
+ |
+catch { db close } |
+sqlite3_shutdown |
+set t(0) singlethread |
+set t(1) multithread |
+set t(2) serialized |
+sqlite3_config $t($sqlite_options(threadsafe)) |
+sqlite3_config_lookaside 100 500 |
+sqlite3_initialize |
+ |
+#------------------------------------------------------------------------- |
+# |
+reset_db |
+do_execsql_test 4.0 { |
+ CREATE TABLE t1(a, b, c); |
+ INSERT INTO t1 VALUES(1, 2, 3); |
+} |
+do_test 4.1 { |
+ for {set i 0} {$i < 256} {incr i} { |
+ execsql { |
+ INSERT INTO t1 SELECT |
+ ((a<<3) + b) & 2147483647, |
+ ((b<<3) + c) & 2147483647, |
+ ((c<<3) + a) & 2147483647 |
+ FROM t1 ORDER BY rowid DESC LIMIT 1; |
+ } |
+ } |
+} {} |
+ |
+faultsim_save_and_close |
+ |
+do_faultsim_test 4.2 -faults oom* -prep { |
+ faultsim_restore_and_reopen |
+} -body { |
+ execsql { CREATE UNIQUE INDEX i1 ON t1(a,b,c) } |
+} -test { |
+ faultsim_test_result {0 {}} |
+} |
+ |
+#------------------------------------------------------------------------- |
+# |
+reset_db |
+set a [string repeat a 500] |
+set b [string repeat b 500] |
+set c [string repeat c 500] |
+do_execsql_test 5.0 { |
+ CREATE TABLE t1(a, b, c); |
+ INSERT INTO t1 VALUES($a, $b, $c); |
+ INSERT INTO t1 VALUES($c, $b, $a); |
+} |
+ |
+do_faultsim_test 5.1 -faults oom* -body { |
+ execsql { SELECT * FROM t1 ORDER BY a } |
+} -test { |
+ faultsim_test_result [list 0 [list $::a $::b $::c $::c $::b $::a]] |
+} |
+ |
+finish_test |