135 lines
		
	
	
		
			3.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			135 lines
		
	
	
		
			3.7 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| # 2014 August 30
 | |
| #
 | |
| # 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 contains tests for the RBU module. More specifically, it
 | |
| # contains tests to ensure that RBU works with FTS tables.
 | |
| #
 | |
| 
 | |
| if {![info exists testdir]} {
 | |
|   set testdir [file join [file dirname [info script]] .. .. test]
 | |
| }
 | |
| source $testdir/tester.tcl
 | |
| set ::testprefix rbufts
 | |
| 
 | |
| ifcapable !fts3 {
 | |
|   finish_test
 | |
|   return
 | |
| }
 | |
| 
 | |
| proc step_rbu {target rbu} {
 | |
|   while 1 {
 | |
|     sqlite3rbu rbu $target $rbu
 | |
|     set rc [rbu step]
 | |
|     rbu close
 | |
|     if {$rc != "SQLITE_OK"} break
 | |
|   }
 | |
|   set rc
 | |
| }
 | |
| 
 | |
| proc apply_rbu_update {target sql} {
 | |
|   forcedelete rbu.db
 | |
|   sqlite3 dbrbu rbu.db
 | |
|   execsql $sql dbrbu
 | |
|   dbrbu close
 | |
| 
 | |
|   step_rbu $target rbu.db
 | |
| }
 | |
| 
 | |
| do_execsql_test 1.1.0 {
 | |
|   CREATE TABLE t1(i INTEGER PRIMARY KEY, a, b);
 | |
|   CREATE VIRTUAL TABLE xx USING fts4(content=t1, a, b);
 | |
|   INSERT INTO t1(rowid, a, b) VALUES(10, 'a b c', 'c b a');
 | |
|   INSERT INTO t1(rowid, a, b) VALUES(20, 'a b c', 'd e f');
 | |
|   INSERT INTO t1(rowid, a, b) VALUES(30, 'd e f', 'a b c');
 | |
|   INSERT INTO t1(rowid, a, b) VALUES(40, 'd e f', 'd e f');
 | |
| }
 | |
| 
 | |
| do_execsql_test 1.1.1 {
 | |
|   INSERT INTO xx(xx) VALUES('rebuild');
 | |
|   INSERT INTO xx(xx) VALUES('integrity-check');
 | |
| }
 | |
| 
 | |
| do_test 1.1.2 {
 | |
|   apply_rbu_update test.db {
 | |
|     CREATE TABLE data_t1(i, a, b, rbu_control);
 | |
|     INSERT INTO data_t1 VALUES(20, NULL, NULL, 1);        -- delete
 | |
|     INSERT INTO data_t1 VALUES(30, 'x y z', NULL, '.x.'); -- update
 | |
|     INSERT INTO data_t1 VALUES(50, '1 2 3', 'x y z', 0);  -- insert
 | |
| 
 | |
|     CREATE VIEW data0_xx AS 
 | |
|     SELECT i AS rbu_rowid, a, b, 
 | |
|     CASE WHEN rbu_control IN (0, 1) 
 | |
|     THEN rbu_control ELSE substr(rbu_control, 2) END AS rbu_control
 | |
|     FROM data_t1;
 | |
|   }
 | |
| } {SQLITE_DONE}
 | |
| 
 | |
| do_execsql_test 1.1.3 {
 | |
|   INSERT INTO xx(xx) VALUES('integrity-check');
 | |
| }
 | |
| 
 | |
| reset_db
 | |
| do_execsql_test 1.2.1 {
 | |
|   CREATE TABLE ccc(addr, text);
 | |
|   CREATE VIRTUAL TABLE ccc_fts USING fts4(addr, text, content=ccc);
 | |
|   INSERT INTO ccc VALUES('a b c', 'd e f');
 | |
|   INSERT INTO ccc VALUES('a b c', 'd e f');
 | |
|   INSERT INTO ccc_fts(ccc_fts) VALUES('rebuild');
 | |
|   INSERT INTO ccc_fts(ccc_fts) VALUES('integrity-check');
 | |
| }
 | |
| 
 | |
| do_test 1.2.2 {
 | |
|   apply_rbu_update test.db {
 | |
|     CREATE TABLE data_ccc(addr, text, rbu_rowid, rbu_control);
 | |
|     CREATE VIEW data0_ccc_fts AS SELECT * FROM data_ccc;
 | |
|     INSERT INTO data_ccc VALUES(NULL, NULL, 1, 1);
 | |
|     INSERT INTO data_ccc VALUES('x y z', NULL, 2, 'x.');
 | |
|     INSERT INTO data_ccc VALUES('y y y', '1 1 1', 3, 0);
 | |
|   }
 | |
| } {SQLITE_DONE}
 | |
| 
 | |
| do_execsql_test 1.2.3 {
 | |
|   INSERT INTO ccc_fts(ccc_fts) VALUES('integrity-check');
 | |
| }
 | |
| do_execsql_test 1.2.4 {
 | |
|   SELECT rowid, * FROM ccc_fts;
 | |
| } {2 {x y z} {d e f} 3 {y y y} {1 1 1}}
 | |
| 
 | |
| #-------------------------------------------------------------------------
 | |
| # Test the outcome of attempting to delete or update a row within a 
 | |
| # contentless FTS table using RBU. An error.
 | |
| #
 | |
| reset_db
 | |
| do_execsql_test 3.1 {
 | |
|   CREATE VIRTUAL TABLE ft USING fts4(x, content=);
 | |
|   INSERT INTO ft(rowid, x) VALUES(1, '1 2 3');
 | |
|   INSERT INTO ft(rowid, x) VALUES(2, '4 5 6');
 | |
| }
 | |
| 
 | |
| do_test 3.2 {
 | |
|   list [catch { apply_rbu_update test.db {
 | |
|     CREATE TABLE data_ft(x, rbu_rowid, rbu_control);
 | |
|     INSERT INTO data_ft VALUES(NULL, 2, 1);
 | |
|   } } msg] $msg]
 | |
| } {1 {SQLITE_ERROR - SQL logic error or missing database]}}
 | |
| 
 | |
| do_test 3.3 {
 | |
|   list [catch { apply_rbu_update test.db {
 | |
|     CREATE TABLE data_ft(x, rbu_rowid, rbu_control);
 | |
|     INSERT INTO data_ft VALUES('7 8 9', 1, 'x');
 | |
|   } } msg] $msg]
 | |
| } {1 {SQLITE_ERROR - SQL logic error or missing database]}}
 | |
| 
 | |
| 
 | |
| 
 | |
| finish_test
 | |
| 
 | 
