OLD | NEW |
(Empty) | |
| 1 # 2010 February 18 |
| 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 # The tests in this file check that SQLite uses (or does not use) a |
| 13 # statement journal for various SQL statements. |
| 14 # |
| 15 |
| 16 set testdir [file dirname $argv0] |
| 17 source $testdir/tester.tcl |
| 18 |
| 19 do_test stmt-1.1 { |
| 20 execsql { CREATE TABLE t1(a integer primary key, b INTEGER NOT NULL) } |
| 21 } {} |
| 22 |
| 23 # The following tests verify the method used for the tests in this file - |
| 24 # that if a statement journal is required by a statement it is opened and |
| 25 # remains open until the current transaction is committed or rolled back. |
| 26 # |
| 27 # This only work if SQLITE_TEMP_STORE!=3 |
| 28 # |
| 29 if {$::TEMP_STORE==3} { |
| 30 finish_test |
| 31 return |
| 32 } |
| 33 do_test stmt-1.2 { |
| 34 set sqlite_open_file_count |
| 35 } {1} |
| 36 do_test stmt-1.3 { |
| 37 execsql { |
| 38 PRAGMA temp_store = file; |
| 39 BEGIN; |
| 40 INSERT INTO t1 VALUES(1, 1); |
| 41 } |
| 42 set sqlite_open_file_count |
| 43 } {2} |
| 44 do_test stmt-1.4 { |
| 45 execsql { |
| 46 INSERT INTO t1 SELECT a+1, b+1 FROM t1; |
| 47 } |
| 48 set sqlite_open_file_count |
| 49 } {3} |
| 50 do_test stmt-1.5 { |
| 51 execsql COMMIT |
| 52 set sqlite_open_file_count |
| 53 } {1} |
| 54 do_test stmt-1.6.1 { |
| 55 execsql { |
| 56 BEGIN; |
| 57 INSERT INTO t1 SELECT a+2, b+2 FROM t1; |
| 58 } |
| 59 set sqlite_open_file_count |
| 60 } {2} |
| 61 do_test stmt-1.6.2 { |
| 62 execsql { INSERT INTO t1 SELECT a+4, b+4 FROM t1 } |
| 63 set sqlite_open_file_count |
| 64 } {3} |
| 65 do_test stmt-1.7 { |
| 66 execsql COMMIT |
| 67 set sqlite_open_file_count |
| 68 } {1} |
| 69 |
| 70 |
| 71 proc filecount {testname sql expected} { |
| 72 uplevel [list do_test $testname [subst -nocommand { |
| 73 execsql BEGIN |
| 74 execsql { $sql } |
| 75 set ret [set sqlite_open_file_count] |
| 76 execsql ROLLBACK |
| 77 set ret |
| 78 }] $expected] |
| 79 } |
| 80 |
| 81 filecount stmt-2.1 { INSERT INTO t1 VALUES(9, 9) } 2 |
| 82 filecount stmt-2.2 { REPLACE INTO t1 VALUES(9, 9) } 2 |
| 83 filecount stmt-2.3 { INSERT INTO t1 SELECT 9, 9 } 2 |
| 84 filecount stmt-2.4 { |
| 85 INSERT INTO t1 SELECT 9, 9; |
| 86 INSERT INTO t1 SELECT 10, 10; |
| 87 } 3 |
| 88 |
| 89 do_test stmt-2.5 { |
| 90 execsql { CREATE INDEX i1 ON t1(b) } |
| 91 } {} |
| 92 filecount stmt-2.6 { |
| 93 REPLACE INTO t1 VALUES(5, 5); |
| 94 REPLACE INTO t1 VALUES(5, 5); |
| 95 } 3 |
| 96 |
| 97 finish_test |
OLD | NEW |