diff options
Diffstat (limited to 'third_party/sqlite/src/test/rdonly.test')
| -rw-r--r-- | third_party/sqlite/src/test/rdonly.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/third_party/sqlite/src/test/rdonly.test b/third_party/sqlite/src/test/rdonly.test index a975cef..bf19597 100644 --- a/third_party/sqlite/src/test/rdonly.test +++ b/third_party/sqlite/src/test/rdonly.test @@ -18,6 +18,10 @@ set testdir [file dirname $argv0] source $testdir/tester.tcl +# Do not use a codec for tests in this file, as the database file is +# manipulated directly using tcl scripts (using the [hexio_write] command). +# +do_not_use_codec # Create a database. # @@ -29,7 +33,7 @@ do_test rdonly-1.1 { } } {1} -# Changes the write version from 1 to 2. Verify that the database +# Changes the write version from 1 to 3. Verify that the database # can be read but not written. # do_test rdonly-1.2 { @@ -37,7 +41,7 @@ do_test rdonly-1.2 { hexio_get_int [hexio_read test.db 18 1] } 1 do_test rdonly-1.3 { - hexio_write test.db 18 02 + hexio_write test.db 18 03 sqlite3 db test.db execsql { SELECT * FROM t1; @@ -67,8 +71,10 @@ do_test rdonly-1.5 { # write-version is reloaded). This way, SQLite does not discover that # the database is read-only until after it is locked. # +set ro_version 02 +ifcapable wal { set ro_version 03 } do_test rdonly-1.6 { - hexio_write test.db 18 02 ; # write-version + hexio_write test.db 18 $ro_version ; # write-version hexio_write test.db 24 11223344 ; # change-counter catchsql { INSERT INTO t1 VALUES(2); |