OLD | NEW |
1 # 2007 December 19 | 1 # 2007 December 19 |
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 13 matching lines...) Expand all Loading... |
24 return | 24 return |
25 } | 25 } |
26 | 26 |
27 # Enable shared cache mode and incremental vacuum. | 27 # Enable shared cache mode and incremental vacuum. |
28 # | 28 # |
29 do_test ioerr4-1.1 { | 29 do_test ioerr4-1.1 { |
30 db close | 30 db close |
31 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] | 31 set ::enable_shared_cache [sqlite3_enable_shared_cache 1] |
32 } {0} | 32 } {0} |
33 do_test ioerr4-1.2 { | 33 do_test ioerr4-1.2 { |
34 file delete -force test.db test.db-journal | 34 forcedelete test.db test.db-journal |
35 sqlite3 db test.db | 35 sqlite3 db test.db |
36 sqlite3 db2 test.db | 36 sqlite3 db2 test.db |
37 db eval { | 37 db eval { |
38 PRAGMA auto_vacuum=INCREMENTAL; | 38 PRAGMA auto_vacuum=INCREMENTAL; |
39 CREATE TABLE a(i INTEGER, b BLOB); | 39 CREATE TABLE a(i INTEGER, b BLOB); |
40 } | 40 } |
41 db2 eval { | 41 db2 eval { |
42 SELECT name FROM sqlite_master | 42 SELECT name FROM sqlite_master |
43 } | 43 } |
44 } {a} | 44 } {a} |
(...skipping 27 matching lines...) Expand all Loading... |
72 DELETE FROM a; | 72 DELETE FROM a; |
73 PRAGMA freelist_count; | 73 PRAGMA freelist_count; |
74 } | 74 } |
75 } {64} | 75 } {64} |
76 | 76 |
77 # Set up for an I/O error on incremental vacuum | 77 # Set up for an I/O error on incremental vacuum |
78 # with two connections on shared cache. | 78 # with two connections on shared cache. |
79 # | 79 # |
80 db close | 80 db close |
81 db2 close | 81 db2 close |
82 file copy -force test.db test.db-bu | 82 forcecopy test.db test.db-bu |
83 do_ioerr_test ioerr4-2 -tclprep { | 83 do_ioerr_test ioerr4-2 -tclprep { |
84 catch {db2 close} | 84 catch {db2 close} |
85 db close | 85 db close |
86 file delete -force test.db test.db-journal | 86 forcedelete test.db test.db-journal |
87 file copy -force test.db-bu test.db | 87 forcecopy test.db-bu test.db |
88 sqlite3_enable_shared_cache 1 | 88 sqlite3_enable_shared_cache 1 |
89 set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db] | 89 set ::DB [sqlite3 db test.db; sqlite3_connection_pointer db] |
90 db eval {PRAGMA auto_vacuum=INCREMENTAL} | 90 db eval {PRAGMA auto_vacuum=INCREMENTAL} |
91 sqlite3 db2 test.db | 91 sqlite3 db2 test.db |
92 } -tclbody { | 92 } -tclbody { |
93 db eval {PRAGMA incremental_vacuum(5)} | 93 db eval {PRAGMA incremental_vacuum(5)} |
94 } | 94 } |
95 | 95 |
96 db2 close | 96 db2 close |
97 file delete -force test.db-bu | 97 forcedelete test.db-bu |
98 sqlite3_enable_shared_cache $::enable_shared_cache | 98 sqlite3_enable_shared_cache $::enable_shared_cache |
99 | 99 |
100 finish_test | 100 finish_test |
OLD | NEW |