AryaWu/sqlite

1# 2009 September 232#3# The author disclaims copyright to this source code.  In place of4# 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 to verify that14# ticket [4a03edc4c8c028c93e9269f64fc5e97f632c1166] has been fixed.  15#16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19 20do_test tkt-4a03ed-1.1 {21  db eval {22    CREATE TABLE t1(23      a INTEGER PRIMARY KEY ON CONFLICT REPLACE,24      b UNIQUE ON CONFLICT FAIL25    );26    INSERT INTO t1 VALUES(1, 1);27    INSERT INTO t1 VALUES(2, 2);28  }29  catchsql {30    BEGIN;31      INSERT INTO t1 VALUES(1, 2);32    COMMIT;33  }34} {1 {UNIQUE constraint failed: t1.b}}35do_test tkt-4a03ed-1.2 {36  db eval {37    PRAGMA integrity_check;38  }39} {ok}40do_test tkt-4a03ed-1.3 {41  db eval {42    SELECT * FROM t1 ORDER BY a;43  }44} {1 1 2 2}45 46finish_test47