wasCSharpSQLite – Blame information for rev 7

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 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