xref: /sqlite-3.40.0/test/sortfault.test (revision bd41d566) 
1# 2014 March 25.
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# This file implements regression tests for SQLite library.
12#
13# Specifically, it tests the effects of fault injection on the sorter
14# module (code in vdbesort.c).
15#
16
17set testdir [file dirname $argv0]
18source $testdir/tester.tcl
19set testprefix sortfault
20
21do_execsql_test 1.0 {
22  PRAGMA cache_size = 5;
23}
24
25foreach {tn mmap_limit nWorker tmpstore threadsmode fakeheap lookaside} {
26          1          0       0     file multithread    false     false
27          2     100000       0     file multithread    false     false
28          3     100000       1     file multithread    false     false
29          4    2000000       0     file singlethread   false      true
30} {
31  if {$sqlite_options(threadsafe)} { set threadsmode singlethread }
32
33  db eval "PRAGMA threads=$nWorker"
34  sqlite3_config $threadsmode
35  if { $lookaside } {
36    sqlite3_config_lookaside 100 500
37  } else {
38    sqlite3_config_lookaside 0 0
39  }
40  sqlite3_initialize
41  sorter_test_fakeheap $fakeheap
42
43  set str [string repeat a 1000]
44  puts $threadsmode
45
46  do_faultsim_test 1.$tn -prep {
47    sqlite3 db test.db
48    sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit
49    execsql { PRAGMA cache_size = 5 }
50  } -body {
51    execsql {
52      WITH r(x,y) AS (
53          SELECT 1, $::str
54          UNION ALL
55          SELECT x+1, $::str FROM r
56          LIMIT 200
57      )
58      SELECT count(x), length(y) FROM r GROUP BY (x%5)
59    }
60  } -test {
61    faultsim_test_result {0 {40 1000 40 1000 40 1000 40 1000 40 1000}}
62  }
63
64  do_faultsim_test 2.$tn -faults oom* -prep {
65    sqlite3 db test.db
66    sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit
67    add_test_utf16bin_collate db
68    execsql { PRAGMA cache_size = 5 }
69  } -body {
70    execsql {
71      WITH r(x,y) AS (
72          SELECT 100, $::str
73          UNION ALL
74          SELECT x-1, $::str FROM r
75          LIMIT 100
76      )
77      SELECT count(x), length(y) FROM r GROUP BY y COLLATE utf16bin, (x%5)
78    }
79  } -test {
80    faultsim_test_result {0 {20 1000 20 1000 20 1000 20 1000 20 1000}}
81  }
82
83  if {$mmap_limit > 1000000} {
84    set str2 [string repeat $str 10]
85
86    sqlite3_memdebug_vfs_oom_test 0
87    sqlite3 db test.db
88    sqlite3_test_control SQLITE_TESTCTRL_SORTER_MMAP db $::mmap_limit
89    execsql { PRAGMA cache_size = 5 }
90
91    do_faultsim_test 3.$tn -faults oom-trans* -body {
92      execsql {
93        WITH r(x,y) AS (
94            SELECT 300, $::str2
95            UNION ALL
96            SELECT x-1, $::str2 FROM r
97            LIMIT 300
98        )
99        SELECT count(x), length(y) FROM r GROUP BY y, (x%5)
100      }
101    } -test {
102      faultsim_test_result {0 {60 10000 60 10000 60 10000 60 10000 60 10000}}
103    }
104
105    sqlite3_memdebug_vfs_oom_test 1
106  }
107}
108
109catch { db close }
110sqlite3_shutdown
111set t(0) singlethread
112set t(1) multithread
113set t(2) serialized
114sqlite3_config $t($sqlite_options(threadsafe))
115sqlite3_config_lookaside 100 500
116sqlite3_initialize
117
118#-------------------------------------------------------------------------
119#
120reset_db
121do_execsql_test 4.0 {
122  CREATE TABLE t1(a, b, c);
123  INSERT INTO t1 VALUES(1, 2, 3);
124}
125do_test 4.1 {
126  for {set i 0} {$i < 256} {incr i} {
127    execsql {
128      INSERT INTO t1 SELECT
129        ((a<<3) + b) & 2147483647,
130        ((b<<3) + c) & 2147483647,
131        ((c<<3) + a) & 2147483647
132      FROM t1 ORDER BY rowid DESC LIMIT 1;
133    }
134  }
135} {}
136
137faultsim_save_and_close
138
139do_faultsim_test 4.2 -faults oom* -prep {
140  faultsim_restore_and_reopen
141} -body {
142  execsql { CREATE UNIQUE INDEX i1 ON t1(a,b,c) }
143} -test {
144  faultsim_test_result {0 {}}
145}
146
147#-------------------------------------------------------------------------
148#
149reset_db
150set a [string repeat a 500]
151set b [string repeat b 500]
152set c [string repeat c 500]
153do_execsql_test 5.0 {
154  CREATE TABLE t1(a, b, c);
155  INSERT INTO t1 VALUES($a, $b, $c);
156  INSERT INTO t1 VALUES($c, $b, $a);
157}
158
159do_faultsim_test 5.1 -faults oom* -body {
160  execsql { SELECT * FROM t1 ORDER BY a }
161} -test {
162  faultsim_test_result [list 0 [list $::a $::b $::c $::c $::b $::a]]
163}
164
165finish_test
166