| 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 |