Index: third_party/sqlite/sqlite-src-3100200/test/snapshot_fault.test |
diff --git a/third_party/sqlite/sqlite-src-3100200/test/snapshot_fault.test b/third_party/sqlite/sqlite-src-3100200/test/snapshot_fault.test |
deleted file mode 100644 |
index 3ac13daefd42400fb7060b7ad49562dfac45c27f..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3100200/test/snapshot_fault.test |
+++ /dev/null |
@@ -1,164 +0,0 @@ |
-# 2015 December 10 |
-# |
-# The author disclaims copyright to this source code. In place of |
-# a legal notice, here is a blessing: |
-# |
-# May you do good and not evil. |
-# May you find forgiveness for yourself and forgive others. |
-# May you share freely, never taking more than you give. |
-# |
-#*********************************************************************** |
-# This file implements regression tests for SQLite library. The focus |
-# of this file is the sqlite3_snapshot_xxx() APIs. |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-ifcapable !snapshot {finish_test; return} |
-set testprefix snapshot_fault |
- |
-#------------------------------------------------------------------------- |
-# Check that an sqlite3_snapshot_open() client cannot be tricked into |
-# reading a corrupt snapshot even if a second client fails while |
-# checkpointing the db. |
-# |
-do_faultsim_test 1.0 -prep { |
- faultsim_delete_and_reopen |
- sqlite3 db2 test.db |
- db2 eval { |
- CREATE TABLE t1(a, b UNIQUE, c UNIQUE); |
- INSERT INTO t1 VALUES(1, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(2, randomblob(500), randomblob(500)); |
- PRAGMA journal_mode = wal; |
- INSERT INTO t1 VALUES(3, randomblob(500), randomblob(500)); |
- BEGIN; |
- SELECT a FROM t1; |
- } |
- set ::snapshot [sqlite3_snapshot_get db2 main] |
- db2 eval COMMIT |
- db2 eval { |
- UPDATE t1 SET b=randomblob(501), c=randomblob(501) WHERE a=1; |
- INSERT INTO t1 VALUES(4, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(5, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(6, randomblob(500), randomblob(500)); |
- } |
-} -body { |
- db eval { PRAGMA wal_checkpoint } |
-} -test { |
- db2 eval BEGIN |
- if {[catch { sqlite3_snapshot_open db2 main $::snapshot } msg]} { |
- if {$msg != "SQLITE_BUSY_SNAPSHOT" && $msg != "SQLITE_BUSY"} { |
- error "error is $msg" |
- } |
- } else { |
- set res [db2 eval { |
- SELECT a FROM t1; |
- PRAGMA integrity_check; |
- }] |
- if {$res != "1 2 3 ok"} { error "res is $res" } |
- } |
- |
- sqlite3_snapshot_free $::snapshot |
-} |
- |
-#------------------------------------------------------------------------- |
-# This test is similar to the previous one. Except, after the |
-# "PRAGMA wal_checkpoint" command fails the db is closed and reopened |
-# so as to require wal file recovery. It should not be possible to open |
-# a snapshot that is part of the body of a recovered wal file. |
-# |
-do_faultsim_test 2.0 -prep { |
- faultsim_delete_and_reopen |
- db eval { |
- CREATE TABLE t1(a, b UNIQUE, c UNIQUE); |
- INSERT INTO t1 VALUES(1, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(2, randomblob(500), randomblob(500)); |
- PRAGMA journal_mode = wal; |
- INSERT INTO t1 VALUES(3, randomblob(500), randomblob(500)); |
- BEGIN; |
- SELECT a FROM t1; |
- } |
- set ::snapshot [sqlite3_snapshot_get db main] |
- db eval COMMIT |
- |
- db eval { |
- UPDATE t1 SET b=randomblob(501), c=randomblob(501) WHERE a=1; |
- INSERT INTO t1 VALUES(4, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(5, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(6, randomblob(500), randomblob(500)); |
- } |
-} -body { |
- db eval { PRAGMA wal_checkpoint } |
-} -test { |
- |
- db_save |
- db close |
- db_restore_and_reopen |
- db eval { SELECT * FROM t1 } |
- |
- db eval BEGIN |
- if {[catch { sqlite3_snapshot_open db main $::snapshot } msg]} { |
- if {$msg != "SQLITE_BUSY_SNAPSHOT" && $msg != "SQLITE_BUSY"} { |
- error "error is $msg" |
- } |
- } else { |
- # This branch should actually never be taken. But it was useful in |
- # determining whether or not this test was actually working (by |
- # running a modified version of SQLite that allowed snapshots to be |
- # opened following a recovery). |
- error "TEST HAS FAILED" |
- |
- set res [db eval { |
- SELECT a FROM t1; |
- PRAGMA integrity_check; |
- }] |
- if {$res != "1 2 3 ok"} { error "res is $res" } |
- } |
- |
- sqlite3_snapshot_free $::snapshot |
-} |
- |
-#------------------------------------------------------------------------- |
-# Test the handling of faults that occur within sqlite3_snapshot_open(). |
-# |
-do_faultsim_test 3.0 -prep { |
- faultsim_delete_and_reopen |
- db eval { |
- CREATE TABLE t1(a, b UNIQUE, c UNIQUE); |
- INSERT INTO t1 VALUES(1, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(2, randomblob(500), randomblob(500)); |
- PRAGMA journal_mode = wal; |
- INSERT INTO t1 VALUES(3, randomblob(500), randomblob(500)); |
- BEGIN; |
- SELECT a FROM t1; |
- } |
- set ::snapshot [sqlite3_snapshot_get db main] |
- db eval COMMIT |
- db eval { |
- UPDATE t1 SET b=randomblob(501), c=randomblob(501) WHERE a=1; |
- INSERT INTO t1 VALUES(4, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(5, randomblob(500), randomblob(500)); |
- INSERT INTO t1 VALUES(6, randomblob(500), randomblob(500)); |
- BEGIN; |
- } |
-} -body { |
- if { [catch { sqlite3_snapshot_open db main $::snapshot } msg] } { |
- error $msg |
- } |
-} -test { |
- faultsim_test_result {0 {}} {1 SQLITE_IOERR} \ |
- {1 SQLITE_IOERR_NOMEM} {1 SQLITE_IOERR_READ} |
- if {$testrc==0} { |
- set res [db eval { |
- SELECT a FROM t1; |
- PRAGMA integrity_check; |
- }] |
- if {$res != "1 2 3 ok"} { error "res is $res" } |
- } |
- |
- sqlite3_snapshot_free $::snapshot |
-} |
- |
- |
- |
-finish_test |