12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364 |
- # 2014 June 17
- #
- # 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 script is testing the FTS5 module.
- #
- # Specifically, it tests transactions and savepoints
- #
- source [file join [file dirname [info script]] fts5_common.tcl]
- set testprefix fts5ai
- # If SQLITE_ENABLE_FTS5 is not defined, omit this file.
- ifcapable !fts5 {
- finish_test
- return
- }
- foreach_detail_mode $testprefix {
- do_execsql_test 1.0 {
- CREATE VIRTUAL TABLE t1 USING fts5(a, detail=%DETAIL%);
- } {}
- do_execsql_test 1.1 {
- BEGIN;
- INSERT INTO t1 VALUES('a b c');
- INSERT INTO t1 VALUES('d e f');
- SAVEPOINT one;
- INSERT INTO t1 VALUES('g h i');
- SAVEPOINT two;
- INSERT INTO t1 VALUES('j k l');
- ROLLBACK TO one;
- INSERT INTO t1 VALUES('m n o');
- SAVEPOINT two;
- INSERT INTO t1 VALUES('p q r');
- RELEASE one;
- SAVEPOINT one;
- INSERT INTO t1 VALUES('s t u');
- ROLLBACK TO one;
- COMMIT;
- }
- do_execsql_test 1.2 {
- INSERT INTO t1(t1) VALUES('integrity-check');
- }
- do_execsql_test 1.3 {
- SAVEPOINT one;
- INSERT INTO t1 VALUES('v w x');
- ROLLBACK TO one;
- }
- }
- finish_test
|