OLD | NEW |
(Empty) | |
| 1 # 2016 June 17 |
| 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 |
| 14 |
| 15 set testdir [file dirname $argv0] |
| 16 source $testdir/tester.tcl |
| 17 source $testdir/malloc_common.tcl |
| 18 set ::testprefix rowvaluefault |
| 19 |
| 20 do_execsql_test 1.0 { |
| 21 CREATE TABLE xyz(one, two, thr, fou); |
| 22 INSERT INTO xyz VALUES('A', 'A', 'A', 1); |
| 23 INSERT INTO xyz VALUES('B', 'B', 'B', 2); |
| 24 INSERT INTO xyz VALUES('C', 'C', 'C', 3); |
| 25 INSERT INTO xyz VALUES('D', 'D', 'D', 4); |
| 26 |
| 27 CREATE UNIQUE INDEX xyz_one_two ON xyz(one, two); |
| 28 } |
| 29 |
| 30 do_faultsim_test 1 -faults oom* -body { |
| 31 execsql { SELECT fou FROM xyz WHERE (one, two, thr) = ('B', 'B', 'B') } |
| 32 } -test { |
| 33 faultsim_test_result {0 2} |
| 34 } |
| 35 |
| 36 do_faultsim_test 2 -faults oom* -body { |
| 37 execsql { SELECT fou FROM xyz WHERE (two, thr) IS ('C', 'C') } |
| 38 } -test { |
| 39 faultsim_test_result {0 3} |
| 40 } |
| 41 |
| 42 do_faultsim_test 3 -faults oom* -body { |
| 43 execsql { SELECT fou FROM xyz WHERE (one, two, thr) > ('B', 'B', 'B') } |
| 44 } -test { |
| 45 faultsim_test_result {0 {3 4}} |
| 46 } |
| 47 |
| 48 do_faultsim_test 4 -faults oom* -body { |
| 49 execsql { SELECT fou FROM xyz WHERE (one, two) IN (SELECT one, two FROM xyz) } |
| 50 } -test { |
| 51 faultsim_test_result {0 {1 2 3 4}} |
| 52 } |
| 53 |
| 54 do_faultsim_test 5 -faults oom* -body { |
| 55 execsql { |
| 56 SELECT fou FROM xyz |
| 57 WHERE (one, two, thr) IN (SELECT one, two, thr FROM xyz) |
| 58 } |
| 59 } -test { |
| 60 faultsim_test_result {0 {1 2 3 4}} |
| 61 } |
| 62 |
| 63 do_faultsim_test 6 -faults oom* -body { |
| 64 execsql { |
| 65 SELECT fou FROM xyz |
| 66 WHERE (one, two, thr) BETWEEN ('B', 'B', 'B') AND ('C', 'C', 'C') } |
| 67 } -test { |
| 68 faultsim_test_result {0 {2 3}} |
| 69 } |
| 70 |
| 71 finish_test |
OLD | NEW |