Return to tkt-b1d3a2e531.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt-b1d3a2e531.test, revision 1.1

1.1     ! misho       1: # 2011 August 22
        !             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. Specifically, it tests
        !            14: # that ticket b1d3a2e531 has been fixed.
        !            15: #
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: ifcapable {!foreignkey||!trigger} {
        !            21:   finish_test
        !            22:   return
        !            23: }
        !            24: set testprefix tkt-b1d3a2e531
        !            25: 
        !            26: do_execsql_test 1.0 { PRAGMA foreign_keys = ON }
        !            27: 
        !            28: do_execsql_test 1.1 {
        !            29:   CREATE TABLE pp(x PRIMARY KEY);
        !            30:   CREATE TABLE cc(y REFERENCES pp DEFERRABLE INITIALLY DEFERRED);
        !            31:   INSERT INTO pp VALUES('abc');
        !            32:   INSERT INTO cc VALUES('abc');
        !            33: }
        !            34: do_execsql_test 1.2 {
        !            35:   BEGIN;
        !            36:     DROP TABLE pp;
        !            37:     DROP TABLE cc;
        !            38:   COMMIT;
        !            39: }
        !            40: do_execsql_test 1.3 {
        !            41:   CREATE TABLE pp(x PRIMARY KEY);
        !            42:   CREATE TABLE cc(y REFERENCES pp DEFERRABLE INITIALLY DEFERRED);
        !            43:   INSERT INTO pp VALUES('abc');
        !            44:   INSERT INTO cc VALUES('abc');
        !            45: }
        !            46: do_execsql_test 1.4 {
        !            47:   BEGIN;
        !            48:     DROP TABLE cc;
        !            49:     DROP TABLE pp;
        !            50:   COMMIT;
        !            51: }
        !            52: 
        !            53: do_execsql_test 2.1 {
        !            54:   CREATE TABLE pp(x PRIMARY KEY);
        !            55:   CREATE TABLE cc(
        !            56:     y INTEGER PRIMARY KEY REFERENCES pp DEFERRABLE INITIALLY DEFERRED
        !            57:   );
        !            58:   INSERT INTO pp VALUES(5);
        !            59:   INSERT INTO cc VALUES(5);
        !            60: }
        !            61: do_execsql_test 2.2 {
        !            62:   BEGIN;
        !            63:     DROP TABLE pp;
        !            64:     DROP TABLE cc;
        !            65:   COMMIT;
        !            66: }
        !            67: do_execsql_test 2.3 {
        !            68:   CREATE TABLE pp(x PRIMARY KEY);
        !            69:   CREATE TABLE cc(
        !            70:     y INTEGER PRIMARY KEY REFERENCES pp DEFERRABLE INITIALLY DEFERRED
        !            71:   );
        !            72:   INSERT INTO pp VALUES(5);
        !            73:   INSERT INTO cc VALUES(5);
        !            74: }
        !            75: do_execsql_test 2.4 {
        !            76:   BEGIN;
        !            77:     DROP TABLE cc;
        !            78:     DROP TABLE pp;
        !            79:   COMMIT;
        !            80: }
        !            81: 
        !            82: do_execsql_test 3.1 {
        !            83:   CREATE TABLE pp1(x PRIMARY KEY);
        !            84:   CREATE TABLE cc1(y REFERENCES pp1 DEFERRABLE INITIALLY DEFERRED);
        !            85: 
        !            86:   CREATE TABLE pp2(x PRIMARY KEY);
        !            87:   CREATE TABLE cc2(y REFERENCES pp1 DEFERRABLE INITIALLY DEFERRED);
        !            88: 
        !            89:   INSERT INTO pp1 VALUES(2200);
        !            90:   INSERT INTO cc1 VALUES(NULL);
        !            91: 
        !            92:   INSERT INTO pp2 VALUES(2200);
        !            93:   INSERT INTO cc2 VALUES(2200);
        !            94: }
        !            95: do_catchsql_test 3.2 {
        !            96:   BEGIN;
        !            97:     DELETE FROM pp2;
        !            98:     DROP TABLE pp1;
        !            99:     DROP TABLE cc1;
        !           100:   COMMIT;
        !           101: } {1 {foreign key constraint failed}}
        !           102: do_catchsql_test 3.3 {
        !           103:     DROP TABLE cc2;
        !           104:   COMMIT;
        !           105: } {0 {}}
        !           106: 
        !           107: 
        !           108: 
        !           109: finish_test