176 lines
		
	
	
		
			4.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			176 lines
		
	
	
		
			4.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
# 2013-07-11
 | 
						|
#
 | 
						|
# 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.
 | 
						|
#
 | 
						|
# This file tests the PRAGMA defer_foreign_keys and 
 | 
						|
# SQLITE_DBSTATUS_DEFERRED_FKS
 | 
						|
#
 | 
						|
# EVIDENCE-OF: R-18981-16292 When the defer_foreign_keys PRAGMA is on,
 | 
						|
# enforcement of all foreign key constraints is delayed until the
 | 
						|
# outermost transaction is committed.
 | 
						|
#
 | 
						|
# EVIDENCE-OF: R-28911-57501 The defer_foreign_keys pragma defaults to
 | 
						|
# OFF so that foreign key constraints are only deferred if they are
 | 
						|
# created as "DEFERRABLE INITIALLY DEFERRED".
 | 
						|
 | 
						|
set testdir [file dirname $argv0]
 | 
						|
source $testdir/tester.tcl
 | 
						|
 | 
						|
ifcapable {!foreignkey} {
 | 
						|
  finish_test
 | 
						|
  return
 | 
						|
}
 | 
						|
 | 
						|
do_execsql_test fkey6-1.0 {
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
} {0}
 | 
						|
 | 
						|
do_execsql_test fkey6-1.1 {
 | 
						|
  PRAGMA foreign_keys=ON;
 | 
						|
  CREATE TABLE t1(x INTEGER PRIMARY KEY);
 | 
						|
  CREATE TABLE t2(y INTEGER PRIMARY KEY,
 | 
						|
          z INTEGER REFERENCES t1(x) DEFERRABLE INITIALLY DEFERRED);
 | 
						|
  CREATE INDEX t2z ON t2(z);
 | 
						|
  CREATE TABLE t3(u INTEGER PRIMARY KEY, v INTEGER REFERENCES t1(x));
 | 
						|
  CREATE INDEX t3v ON t3(v);
 | 
						|
  INSERT INTO t1 VALUES(1),(2),(3),(4),(5);
 | 
						|
  INSERT INTO t2 VALUES(1,1),(2,2);
 | 
						|
  INSERT INTO t3 VALUES(3,3),(4,4);
 | 
						|
} {}
 | 
						|
do_test fkey6-1.2 {
 | 
						|
  catchsql {DELETE FROM t1 WHERE x=2;}
 | 
						|
} {1 {FOREIGN KEY constraint failed}}
 | 
						|
do_test fkey6-1.3 {
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 0 0}
 | 
						|
do_test fkey6-1.4 {
 | 
						|
  execsql {
 | 
						|
    BEGIN;
 | 
						|
    DELETE FROM t1 WHERE x=1;
 | 
						|
  }
 | 
						|
} {}
 | 
						|
do_test fkey6-1.5.1 {
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 1
 | 
						|
} {0 1 0}
 | 
						|
do_test fkey6-1.5.2 {
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 1 0}
 | 
						|
do_test fkey6-1.6 {
 | 
						|
  execsql {
 | 
						|
    ROLLBACK;
 | 
						|
  }
 | 
						|
} {}
 | 
						|
do_test fkey6-1.7 {
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 0 0}
 | 
						|
do_test fkey6-1.8 {
 | 
						|
  execsql {
 | 
						|
    PRAGMA defer_foreign_keys=ON;
 | 
						|
    BEGIN;
 | 
						|
    DELETE FROM t1 WHERE x=3;
 | 
						|
  }
 | 
						|
} {}
 | 
						|
do_test fkey6-1.9 {
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 1 0}
 | 
						|
 | 
						|
# EVIDENCE-OF: R-21752-26913 The defer_foreign_keys pragma is
 | 
						|
# automatically switched off at each COMMIT or ROLLBACK. Hence, the
 | 
						|
# defer_foreign_keys pragma must be separately enabled for each
 | 
						|
# transaction.
 | 
						|
do_execsql_test fkey6-1.10.1 {
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
  ROLLBACK;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
  BEGIN;
 | 
						|
  PRAGMA defer_foreign_keys=ON;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
  COMMIT;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
  BEGIN;
 | 
						|
} {1 0 1 0}
 | 
						|
do_test fkey6-1.10.2 {
 | 
						|
  catchsql {DELETE FROM t1 WHERE x=3}
 | 
						|
} {1 {FOREIGN KEY constraint failed}}
 | 
						|
db eval {ROLLBACK}
 | 
						|
 | 
						|
do_test fkey6-1.20 {
 | 
						|
  execsql {
 | 
						|
    BEGIN;
 | 
						|
    DELETE FROM t1 WHERE x=1;
 | 
						|
  }
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 1 0}
 | 
						|
do_test fkey6-1.21 {
 | 
						|
  execsql {
 | 
						|
    DELETE FROM t2 WHERE y=1;
 | 
						|
  }
 | 
						|
  sqlite3_db_status db DBSTATUS_DEFERRED_FKS 0
 | 
						|
} {0 0 0}
 | 
						|
do_test fkey6-1.22 {
 | 
						|
  execsql {
 | 
						|
    COMMIT;
 | 
						|
  }
 | 
						|
} {}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.1 {
 | 
						|
  CREATE TABLE p1(a PRIMARY KEY);
 | 
						|
  INSERT INTO p1 VALUES('one'), ('two');
 | 
						|
  CREATE TABLE c1(x REFERENCES p1);
 | 
						|
  INSERT INTO c1 VALUES('two'), ('one');
 | 
						|
}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.2 {
 | 
						|
  BEGIN;
 | 
						|
    PRAGMA defer_foreign_keys = 1;
 | 
						|
    DELETE FROM p1;
 | 
						|
  ROLLBACK;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
} {0}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.3 {
 | 
						|
  BEGIN;
 | 
						|
    PRAGMA defer_foreign_keys = 1;
 | 
						|
    DROP TABLE p1;
 | 
						|
    PRAGMA vdbe_trace = 0;
 | 
						|
  ROLLBACK;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
} {0}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.4 {
 | 
						|
  BEGIN;
 | 
						|
    PRAGMA defer_foreign_keys = 1;
 | 
						|
    DELETE FROM p1;
 | 
						|
    DROP TABLE c1;
 | 
						|
  COMMIT;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
} {0}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.5 {
 | 
						|
  DROP TABLE p1;
 | 
						|
  CREATE TABLE p1(a PRIMARY KEY);
 | 
						|
  INSERT INTO p1 VALUES('one'), ('two');
 | 
						|
  CREATE TABLE c1(x REFERENCES p1);
 | 
						|
  INSERT INTO c1 VALUES('two'), ('one');
 | 
						|
}
 | 
						|
 | 
						|
do_execsql_test fkey6-2.6 {
 | 
						|
  BEGIN;
 | 
						|
    PRAGMA defer_foreign_keys = 1;
 | 
						|
    INSERT INTO c1 VALUES('three');
 | 
						|
    DROP TABLE c1;
 | 
						|
  COMMIT;
 | 
						|
  PRAGMA defer_foreign_keys;
 | 
						|
} {0}
 | 
						|
 | 
						|
 | 
						|
finish_test
 |