OLD | NEW |
1 # 2007 June 13 | 1 # 2007 June 13 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
(...skipping 89 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
100 | 100 |
101 do_test tkt2409-1.2 { | 101 do_test tkt2409-1.2 { |
102 sqlite3_errcode $::DB | 102 sqlite3_errcode $::DB |
103 } {SQLITE_OK} | 103 } {SQLITE_OK} |
104 | 104 |
105 # Check the integrity of the cache. | 105 # Check the integrity of the cache. |
106 # | 106 # |
107 integrity_check tkt2409-1.3 | 107 integrity_check tkt2409-1.3 |
108 | 108 |
109 # Check that the transaction was rolled back. Because the INSERT | 109 # Check that the transaction was rolled back. Because the INSERT |
110 # statement in which the "I/O error" occured did not open a statement | 110 # statement in which the "I/O error" occurred did not open a statement |
111 # transaction, SQLite had no choice but to roll back the transaction. | 111 # transaction, SQLite had no choice but to roll back the transaction. |
112 # | 112 # |
113 do_test tkt2409-1.4 { | 113 do_test tkt2409-1.4 { |
114 unread_lock_db | 114 unread_lock_db |
115 catchsql { ROLLBACK } | 115 catchsql { ROLLBACK } |
116 } {0 {}} | 116 } {0 {}} |
117 | 117 |
118 set ::zShort [string repeat 0123456789 1] | 118 set ::zShort [string repeat 0123456789 1] |
119 set ::zLong [string repeat 0123456789 1500] | 119 set ::zLong [string repeat 0123456789 1500] |
120 set ::rc 1 | 120 set ::rc 1 |
(...skipping 47 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
168 | 168 |
169 do_test tkt2409-3.2 { | 169 do_test tkt2409-3.2 { |
170 sqlite3_errcode $::DB | 170 sqlite3_errcode $::DB |
171 } {SQLITE_OK} | 171 } {SQLITE_OK} |
172 | 172 |
173 # Check the integrity of the cache. | 173 # Check the integrity of the cache. |
174 # | 174 # |
175 integrity_check tkt2409-3.3 | 175 integrity_check tkt2409-3.3 |
176 | 176 |
177 # Check that the transaction was rolled back. Because the INSERT | 177 # Check that the transaction was rolled back. Because the INSERT |
178 # statement in which the "I/O error" occured did not open a statement | 178 # statement in which the "I/O error" occurred did not open a statement |
179 # transaction, SQLite had no choice but to roll back the transaction. | 179 # transaction, SQLite had no choice but to roll back the transaction. |
180 # | 180 # |
181 do_test tkt2409-3.4 { | 181 do_test tkt2409-3.4 { |
182 unread_lock_db | 182 unread_lock_db |
183 catchsql { ROLLBACK } | 183 catchsql { ROLLBACK } |
184 } {0 {}} | 184 } {0 {}} |
185 integrity_check tkt2409-3.5 | 185 integrity_check tkt2409-3.5 |
186 | 186 |
187 expr {srand(1)} | 187 expr {srand(1)} |
188 do_test tkt2409-4.1 { | 188 do_test tkt2409-4.1 { |
(...skipping 31 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
220 | 220 |
221 do_test tkt2409-4.4 { | 221 do_test tkt2409-4.4 { |
222 catchsql { ROLLBACK } | 222 catchsql { ROLLBACK } |
223 } {0 {}} | 223 } {0 {}} |
224 integrity_check tkt2409-4.5 | 224 integrity_check tkt2409-4.5 |
225 | 225 |
226 unread_lock_db | 226 unread_lock_db |
227 db2 close | 227 db2 close |
228 unset -nocomplain t1 | 228 unset -nocomplain t1 |
229 finish_test | 229 finish_test |
OLD | NEW |