wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2009 November 10
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 the "intarray" object implemented
14 # in test_intarray.c.
15 #
16  
17 set testdir [file dirname $argv0]
18 source $testdir/tester.tcl
19  
20 ifcapable !vtab {
21 return
22 }
23  
24 do_test intarray-1.0 {
25 db eval {
26 CREATE TABLE t1(a INTEGER PRIMARY KEY, b);
27 }
28 for {set i 1} {$i<=999} {incr i} {
29 set b [format {x%03d} $i]
30 db eval {INSERT INTO t1(a,b) VALUES($i,$b)}
31 }
32 db eval {
33 CREATE TABLE t2(x INTEGER PRIMARY KEY, y);
34 INSERT INTO t2 SELECT * FROM t1;
35 SELECT b FROM t1 WHERE a IN (12,34,56,78) ORDER BY a
36 }
37 } {x012 x034 x056 x078}
38  
39 do_test intarray-1.1 {
40 set ia1 [sqlite3_intarray_create db ia1]
41 set ia2 [sqlite3_intarray_create db ia2]
42 set ia3 [sqlite3_intarray_create db ia3]
43 set ia4 [sqlite3_intarray_create db ia4]
44 db eval {
45 SELECT type, name FROM sqlite_temp_master
46 ORDER BY name
47 }
48 } {table ia1 table ia2 table ia3 table ia4}
49  
50 do_test intarray-1.2 {
51 db eval {
52 SELECT b FROM t1 WHERE a IN ia3 ORDER BY a
53 }
54 } {}
55  
56 do_test intarray-1.3 {
57 sqlite3_intarray_bind $ia3 45 123 678
58 db eval {
59 SELECT b FROM t1 WHERE a IN ia3 ORDER BY a
60 }
61 } {x045 x123 x678}
62  
63 do_test intarray-1.4 {
64 db eval {
65 SELECT count(b) FROM t1 WHERE a NOT IN ia3 ORDER BY a
66 }
67 } {996}
68  
69 #explain {SELECT b FROM t1 WHERE a NOT IN ia3}
70  
71 do_test intarray-1.5 {
72 set cmd sqlite3_intarray_bind
73 lappend cmd $ia1
74 for {set i 1} {$i<=999} {incr i} {
75 lappend cmd $i
76 lappend cmd [expr {$i+1000}]
77 lappend cmd [expr {$i+2000}]
78 }
79 eval $cmd
80 db eval {
81 REPLACE INTO t1 SELECT * FROM t2;
82 DELETE FROM t1 WHERE a NOT IN ia1;
83 SELECT count(*) FROM t1;
84 }
85 } {999}
86  
87 do_test intarray-1.6 {
88 db eval {
89 DELETE FROM t1 WHERE a IN ia1;
90 SELECT count(*) FROM t1;
91 }
92 } {0}
93  
94 do_test intarray-2.1 {
95 db eval {
96 CREATE TEMP TABLE t3(p,q);
97 INSERT INTO t3 SELECT * FROM t2;
98 SELECT count(*) FROM t3 WHERE p IN ia1;
99 }
100 } {999}
101  
102 do_test intarray-2.2 {
103 set ia5 [sqlite3_intarray_create db ia5]
104 db eval {
105 SELECT count(*) FROM t3 WHERE p IN ia1;
106 }
107 } {999}
108  
109 finish_test