147 lines
		
	
	
		
			4.4 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			147 lines
		
	
	
		
			4.4 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
# 2015 Sep 27
 | 
						|
#
 | 
						|
# 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.
 | 
						|
#
 | 
						|
#*************************************************************************
 | 
						|
#
 | 
						|
 | 
						|
set testdir [file dirname $argv0]
 | 
						|
source $testdir/tester.tcl
 | 
						|
source $testdir/fts3_common.tcl
 | 
						|
set ::testprefix fts4onepass
 | 
						|
 | 
						|
# If SQLITE_ENABLE_FTS3 is defined, omit this file.
 | 
						|
ifcapable !fts3 {
 | 
						|
  finish_test
 | 
						|
  return
 | 
						|
}
 | 
						|
 | 
						|
do_execsql_test 1.0 {
 | 
						|
  CREATE VIRTUAL TABLE ft USING fts3;
 | 
						|
  INSERT INTO ft(rowid, content) VALUES(1, '1 2 3');
 | 
						|
  INSERT INTO ft(rowid, content) VALUES(2, '4 5 6');
 | 
						|
  INSERT INTO ft(rowid, content) VALUES(3, '7 8 9');
 | 
						|
}
 | 
						|
 | 
						|
#-------------------------------------------------------------------------
 | 
						|
# Check that UPDATE and DELETE statements that feature "WHERE rowid=?" or 
 | 
						|
# or "WHERE docid=?" clauses do not use statement journals. But that other
 | 
						|
# DELETE and UPDATE statements do.
 | 
						|
#
 | 
						|
# Note: "MATCH ? AND docid=?" does use a statement journal.
 | 
						|
#
 | 
						|
foreach {tn sql uses} {
 | 
						|
  1.1 { DELETE FROM ft } 1
 | 
						|
  1.2 { DELETE FROM ft WHERE docid=? } 0
 | 
						|
  1.3 { DELETE FROM ft WHERE rowid=? } 0
 | 
						|
  1.4 { DELETE FROM ft WHERE ft MATCH '1' } 1
 | 
						|
  1.5 { DELETE FROM ft WHERE ft MATCH '1' AND docid=? } 1
 | 
						|
  1.6 { DELETE FROM ft WHERE ft MATCH '1' AND rowid=? } 1
 | 
						|
 | 
						|
  2.1 { UPDATE ft SET content='a b c' } 1
 | 
						|
  2.2 { UPDATE ft SET content='a b c' WHERE docid=? } 0
 | 
						|
  2.3 { UPDATE ft SET content='a b c' WHERE rowid=? } 0
 | 
						|
  2.4 { UPDATE ft SET content='a b c' WHERE ft MATCH '1' } 1
 | 
						|
  2.5 { UPDATE ft SET content='a b c' WHERE ft MATCH '1' AND docid=? } 1
 | 
						|
  2.6 { UPDATE ft SET content='a b c' WHERE ft MATCH '1' AND rowid=? } 1
 | 
						|
} {
 | 
						|
  do_test 1.$tn { sql_uses_stmt db $sql } $uses
 | 
						|
}
 | 
						|
 | 
						|
#-------------------------------------------------------------------------
 | 
						|
# Check that putting a "DELETE/UPDATE ... WHERE rowid=?" statement in a
 | 
						|
# trigger program does not prevent the VM from using a statement 
 | 
						|
# transaction. Even if the calling statement cannot hit a constraint.
 | 
						|
#
 | 
						|
do_execsql_test 2.0 {
 | 
						|
  CREATE TABLE t1(x);
 | 
						|
 | 
						|
  CREATE TRIGGER t1_ai AFTER INSERT ON t1 BEGIN
 | 
						|
    DELETE FROM ft WHERE rowid=new.x;
 | 
						|
  END;
 | 
						|
 | 
						|
  CREATE TRIGGER t1_ad AFTER DELETE ON t1 BEGIN
 | 
						|
    UPDATE ft SET content = 'a b c' WHERE rowid=old.x;
 | 
						|
  END;
 | 
						|
 | 
						|
  CREATE TRIGGER t1_bu BEFORE UPDATE ON t1 BEGIN
 | 
						|
    DELETE FROM ft WHERE rowid=old.x;
 | 
						|
  END;
 | 
						|
}
 | 
						|
 | 
						|
foreach {tn sql uses} {
 | 
						|
  1 { INSERT INTO t1 VALUES(1)      } 1
 | 
						|
  2 { DELETE FROM t1 WHERE x=4      } 1
 | 
						|
  3 { UPDATE t1 SET x=10 WHERE x=11 } 1
 | 
						|
} {
 | 
						|
  do_test 2.$tn { sql_uses_stmt db $sql } $uses
 | 
						|
}
 | 
						|
 | 
						|
#-------------------------------------------------------------------------
 | 
						|
# Test that an "UPDATE ... WHERE rowid=?" works and does not corrupt the
 | 
						|
# index when it strikes a constraint. Both inside and outside a 
 | 
						|
# transaction.
 | 
						|
#
 | 
						|
foreach {tn tcl1 tcl2}  {
 | 
						|
  1 {} {}
 | 
						|
 | 
						|
  2 {
 | 
						|
    execsql BEGIN
 | 
						|
  } {
 | 
						|
    if {[sqlite3_get_autocommit db]==1} { error "transaction rolled back!" }
 | 
						|
    execsql COMMIT
 | 
						|
  }
 | 
						|
} {
 | 
						|
 | 
						|
  do_execsql_test 3.$tn.0 {
 | 
						|
    DROP TABLE IF EXISTS ft2;
 | 
						|
    CREATE VIRTUAL TABLE ft2 USING fts4;
 | 
						|
    INSERT INTO ft2(rowid, content) VALUES(1, 'a b c');
 | 
						|
    INSERT INTO ft2(rowid, content) VALUES(2, 'a b d');
 | 
						|
    INSERT INTO ft2(rowid, content) VALUES(3, 'a b e');
 | 
						|
  }
 | 
						|
 | 
						|
  eval $tcl1
 | 
						|
  foreach {tn2 sql content} {
 | 
						|
    1 { UPDATE ft2 SET docid=2 WHERE docid=1 }
 | 
						|
      { 1 {a b c} 2 {a b d} 3 {a b e} }
 | 
						|
 | 
						|
    2 { 
 | 
						|
      INSERT INTO ft2(rowid, content) VALUES(4, 'a b f');
 | 
						|
      UPDATE ft2 SET docid=5 WHERE docid=4;
 | 
						|
      UPDATE ft2 SET docid=3 WHERE docid=5;
 | 
						|
    } { 1 {a b c} 2 {a b d} 3 {a b e} 5 {a b f} }
 | 
						|
 | 
						|
    3 {
 | 
						|
      UPDATE ft2 SET docid=3 WHERE docid=4;           -- matches 0 rows
 | 
						|
      UPDATE ft2 SET docid=2 WHERE docid=3;
 | 
						|
    } { 1 {a b c} 2 {a b d} 3 {a b e} 5 {a b f} }
 | 
						|
 | 
						|
    4 {
 | 
						|
      INSERT INTO ft2(rowid, content) VALUES(4, 'a b g');
 | 
						|
      UPDATE ft2 SET docid=-1 WHERE docid=4;
 | 
						|
      UPDATE ft2 SET docid=3 WHERE docid=-1;
 | 
						|
    } {-1 {a b g} 1 {a b c} 2 {a b d} 3 {a b e} 5 {a b f} }
 | 
						|
 | 
						|
    5 {
 | 
						|
      DELETE FROM ft2 WHERE rowid=451;
 | 
						|
      DELETE FROM ft2 WHERE rowid=-1;
 | 
						|
      UPDATE ft2 SET docid = 2 WHERE docid = 1;
 | 
						|
    } {1 {a b c} 2 {a b d} 3 {a b e} 5 {a b f} }
 | 
						|
  } {
 | 
						|
    do_catchsql_test 3.$tn.$tn2.a $sql {1 {constraint failed}}
 | 
						|
    do_execsql_test  3.$tn.$tn2.b { SELECT rowid, content FROM ft2 } $content
 | 
						|
    do_execsql_test  3.$tn.$tn2.c { 
 | 
						|
      INSERT INTO ft2(ft2) VALUES('integrity-check');
 | 
						|
    }
 | 
						|
  }
 | 
						|
  eval $tcl2
 | 
						|
}
 | 
						|
 | 
						|
finish_test
 |