Index: third_party/sqlite/src/test/rdonly.test |
diff --git a/third_party/sqlite/src/test/rdonly.test b/third_party/sqlite/src/test/rdonly.test |
index a975cef97b1b5610cd312b2b7c866df02aa07a84..bf19597871ac4dc07dd9d21bb3746f6e9ca14447 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); |