1: # 2009 September 23
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 to verify that
14: # ticket [4a03edc4c8c028c93e9269f64fc5e97f632c1166] has been fixed.
15: #
16:
17: set testdir [file dirname $argv0]
18: source $testdir/tester.tcl
19:
20: do_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 FAIL
25: );
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 {column b is not unique}}
35: do_test tkt-4a03ed-1.2 {
36: db eval {
37: PRAGMA integrity_check;
38: }
39: } {ok}
40: do_test tkt-4a03ed-1.3 {
41: db eval {
42: SELECT * FROM t1 ORDER BY a;
43: }
44: } {1 1 2 2}
45:
46: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>