Index: third_party/sqlite/src/test/savepoint2.test |
diff --git a/third_party/sqlite/src/test/savepoint2.test b/third_party/sqlite/src/test/savepoint2.test |
index 10765a31669811d35b9de4c261c99a87c912a73f..be1bdbd424539f2b58faaa07494b2f4215e89500 100644 |
--- a/third_party/sqlite/src/test/savepoint2.test |
+++ b/third_party/sqlite/src/test/savepoint2.test |
@@ -14,6 +14,7 @@ |
set testdir [file dirname $argv0] |
source $testdir/tester.tcl |
+ |
# Tests in this file are quite similar to those run by trans.test and |
# avtrans.test. |
# |
@@ -23,6 +24,7 @@ proc signature {} { |
} |
do_test savepoint2-1 { |
+ wal_set_journal_mode |
execsql { |
PRAGMA cache_size=10; |
BEGIN; |
@@ -42,6 +44,7 @@ do_test savepoint2-1 { |
SELECT count(*) FROM t3; |
} |
} {1024} |
+wal_check_journal_mode savepoint2-1.1 |
unset -nocomplain ::sig |
unset -nocomplain SQL |
@@ -140,6 +143,9 @@ for {set ii 2} {$ii < ($iterations+2)} {incr ii} { |
sqlite3_get_autocommit db |
} {1} |
integrity_check savepoint2-$ii.6.1 |
+ |
+ # Check that the connection is still running in WAL mode. |
+ wal_check_journal_mode savepoint2-$ii.7 |
} |
unset -nocomplain ::sig |