test/fkey8.test

   1 # 2001 September 15
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file implements regression tests for SQLite library.
  12 #
  13 # This file implements tests for foreign keys.
  14 #
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18 set testprefix fkey8
  19
  20 ifcapable {!foreignkey} {
  21   finish_test
  22   return
  23 }
  24 do_execsql_test 1.0 { PRAGMA foreign_keys = 1; }
  25
  26
  27 foreach {tn use_stmt sql schema} {
  28   1   1 "DELETE FROM p1" {
  29     CREATE TABLE p1(a PRIMARY KEY);
  30     CREATE TABLE c1(b REFERENCES p1);
  31   }
  32
  33   2.1     0 "DELETE FROM p1" {
  34     CREATE TABLE p1(a PRIMARY KEY);
  35     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE);
  36   }
  37   2.2   0 "DELETE FROM p1" {
  38     CREATE TABLE p1(a PRIMARY KEY);
  39     CREATE TABLE c1(b REFERENCES p1 ON DELETE SET NULL);
  40   }
  41   2.3   1 "DELETE FROM p1" {
  42     CREATE TABLE p1(a PRIMARY KEY);
  43     CREATE TABLE c1(b REFERENCES p1 ON DELETE SET DEFAULT);
  44   }
  45
  46   3   1 "DELETE FROM p1" {
  47     CREATE TABLE p1(a PRIMARY KEY);
  48     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE);
  49     CREATE TRIGGER ct1 AFTER DELETE ON c1 BEGIN
  50       INSERT INTO p1 VALUES('x');
  51     END;
  52   }
  53
  54   4   1 "DELETE FROM p1" {
  55     CREATE TABLE p1(a PRIMARY KEY);
  56     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE, c PRIMARY KEY);
  57     CREATE TABLE cc1(d REFERENCES c1);
  58   }
  59
  60   5.1   0 "DELETE FROM p1" {
  61     CREATE TABLE p1(a PRIMARY KEY);
  62     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE, c PRIMARY KEY);
  63     CREATE TABLE cc1(d REFERENCES c1 ON DELETE CASCADE);
  64   }
  65   5.2   0 "DELETE FROM p1" {
  66     CREATE TABLE p1(a PRIMARY KEY);
  67     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE, c PRIMARY KEY);
  68     CREATE TABLE cc1(d REFERENCES c1 ON DELETE SET NULL);
  69   }
  70   5.3   1 "DELETE FROM p1" {
  71     CREATE TABLE p1(a PRIMARY KEY);
  72     CREATE TABLE c1(b REFERENCES p1 ON DELETE CASCADE, c PRIMARY KEY);
  73     CREATE TABLE cc1(d REFERENCES c1 ON DELETE SET DEFAULT);
  74   }
  75
  76   6.1   1 "UPDATE p1 SET a = ?" {
  77     CREATE TABLE p1(a PRIMARY KEY);
  78     CREATE TABLE c1(b REFERENCES p1 ON UPDATE SET NULL, c);
  79   }
  80   6.2   0 "UPDATE OR IGNORE p1 SET a = ?" {
  81     CREATE TABLE p1(a PRIMARY KEY);
  82     CREATE TABLE c1(b REFERENCES p1 ON UPDATE SET NULL, c);
  83   }
  84   6.3   1 "UPDATE OR IGNORE p1 SET a = ?" {
  85     CREATE TABLE p1(a PRIMARY KEY);
  86     CREATE TABLE c1(b REFERENCES p1 ON UPDATE CASCADE, c);
  87   }
  88   6.4   1 "UPDATE OR IGNORE p1 SET a = ?" {
  89     CREATE TABLE p1(a PRIMARY KEY);
  90     CREATE TABLE c1(b NOT NULL REFERENCES p1 ON UPDATE SET NULL, c);
  91   }
  92
  93 } {
  94   drop_all_tables
  95   do_test 1.$tn {
  96     execsql $schema
  97     set stmt [sqlite3_prepare_v2 db $sql -1 dummy]
  98     set ret [uses_stmt_journal $stmt]
  99     sqlite3_finalize $stmt
 100     set ret
 101   } $use_stmt
 102 }
 103
 104
 105 finish_test