usr/src/lib/libsqlite/test/fkey1.test

   1
   2 #pragma ident   "%Z%%M% %I%     %E% SMI"
   3
   4 # 2001 September 15
   5 #
   6 # The author disclaims copyright to this source code.  In place of
   7 # a legal notice, here is a blessing:
   8 #
   9 #    May you do good and not evil.
  10 #    May you find forgiveness for yourself and forgive others.
  11 #    May you share freely, never taking more than you give.
  12 #
  13 #***********************************************************************
  14 # This file implements regression tests for SQLite library.
  15 #
  16 # This file implements tests for foreign keys.
  17 #
  18
  19 set testdir [file dirname $argv0]
  20 source $testdir/tester.tcl
  21
  22 # Create a table and some data to work with.
  23 #
  24 do_test fkey1-1.0 {
  25   execsql {
  26     CREATE TABLE t1(
  27       a INTEGER PRIMARY KEY,
  28       b INTEGER
  29            REFERENCES t1 ON DELETE CASCADE
  30            REFERENCES t2,
  31       c TEXT,
  32       FOREIGN KEY (b,c) REFERENCES t2(x,y) ON UPDATE CASCADE
  33     );
  34   }
  35 } {}
  36 do_test fkey1-1.1 {
  37   execsql {
  38     CREATE TABLE t2(
  39       x INTEGER PRIMARY KEY,
  40       y TEXT
  41     );
  42   }
  43 } {}
  44 do_test fkey1-1.2 {
  45   execsql {
  46     CREATE TABLE t3(
  47       a INTEGER REFERENCES t2,
  48       b INTEGER REFERENCES t1,
  49       FOREIGN KEY (a,b) REFERENCES t2(x,y)
  50     );
  51   }
  52 } {}
  53
  54
  55
  56 finish_test