OLD | NEW |
1 # 2001 September 15 | 1 # 2001 September 15 |
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 316 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
327 } | 327 } |
328 } | 328 } |
329 } | 329 } |
330 | 330 |
331 if {$tcl_platform(platform)!="windows"} { | 331 if {$tcl_platform(platform)!="windows"} { |
332 do_malloc_test 14 -tclprep { | 332 do_malloc_test 14 -tclprep { |
333 catch {db close} | 333 catch {db close} |
334 sqlite3 db2 test2.db | 334 sqlite3 db2 test2.db |
335 sqlite3_extended_result_codes db2 1 | 335 sqlite3_extended_result_codes db2 1 |
336 db2 eval { | 336 db2 eval { |
| 337 PRAGMA journal_mode = DELETE; /* For inmemory_journal permutation */ |
337 PRAGMA synchronous = 0; | 338 PRAGMA synchronous = 0; |
338 CREATE TABLE t1(a, b); | 339 CREATE TABLE t1(a, b); |
339 INSERT INTO t1 VALUES(1, 2); | 340 INSERT INTO t1 VALUES(1, 2); |
340 BEGIN; | 341 BEGIN; |
341 INSERT INTO t1 VALUES(3, 4); | 342 INSERT INTO t1 VALUES(3, 4); |
342 } | 343 } |
343 copy_file test2.db test.db | 344 copy_file test2.db test.db |
344 copy_file test2.db-journal test.db-journal | 345 copy_file test2.db-journal test.db-journal |
345 db2 close | 346 db2 close |
346 } -tclbody { | 347 } -tclbody { |
(...skipping 547 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
894 } | 895 } |
895 | 896 |
896 # Ensure that no file descriptors were leaked. | 897 # Ensure that no file descriptors were leaked. |
897 do_test malloc-99.X { | 898 do_test malloc-99.X { |
898 catch {db close} | 899 catch {db close} |
899 set sqlite_open_file_count | 900 set sqlite_open_file_count |
900 } {0} | 901 } {0} |
901 | 902 |
902 puts open-file-count=$sqlite_open_file_count | 903 puts open-file-count=$sqlite_open_file_count |
903 finish_test | 904 finish_test |
OLD | NEW |