wasCSharpSQLite – Blame information for rev 4

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 200 July 1
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. The
12 # focus of this script is attaching many database files to a single
13 # connection.
14 #
15  
16 set testdir [file dirname $argv0]
17 source $testdir/tester.tcl
18  
19 set testprefix attach4
20  
21 ifcapable !attach {
22 finish_test
23 return
24 }
25  
26 puts "Testing with SQLITE_MAX_ATTACHED=$SQLITE_MAX_ATTACHED"
27  
28 set files {main test.db}
29 for {set ii 0} {$ii < $SQLITE_MAX_ATTACHED} {incr ii} {
30 lappend files aux$ii "test.db$ii"
31 }
32  
33 do_test 1.1 {
34 sqlite3_limit db SQLITE_LIMIT_ATTACHED -1
35 } $SQLITE_MAX_ATTACHED
36  
37 do_test 1.2.1 {
38 db close
39 foreach {name f} $files { forcedelete $f }
40 sqlite3 db test.db
41  
42 foreach {name f} $files {
43 if {$name == "main"} continue
44 execsql "ATTACH '$f' AS $name"
45 }
46  
47 db eval {PRAGMA database_list} {
48 lappend L $name [file tail $file]
49 }
50 set L
51 } $files
52  
53 do_catchsql_test 1.2.2 {
54 ATTACH 'x.db' AS next;
55 } [list 1 "too many attached databases - max $SQLITE_MAX_ATTACHED"]
56  
57 do_test 1.3 {
58 execsql BEGIN;
59 foreach {name f} $files {
60 execsql "CREATE TABLE $name.tbl(x)"
61 execsql "INSERT INTO $name.tbl VALUES('$f')"
62 }
63 execsql COMMIT;
64 } {}
65  
66 do_test 1.4 {
67 set L [list]
68 foreach {name f} $files {
69 lappend L $name [execsql "SELECT x FROM $name.tbl"]
70 }
71 set L
72 } $files
73  
74 set L [list]
75 set S ""
76 foreach {name f} $files {
77 ifcapable wal {
78 if {[permutation] == "journaltest" } {
79 lappend L delete
80 } else {
81 lappend L wal
82 }
83 } else {
84 lappend L delete
85 }
86 append S "
87 PRAGMA $name.journal_mode = WAL;
88 UPDATE $name.tbl SET x = '$name';
89 "
90 }
91 do_execsql_test 1.5 $S $L
92  
93 do_test 1.6 {
94 set L [list]
95 foreach {name f} $files {
96 lappend L [execsql "SELECT x FROM $name.tbl"] $f
97 }
98 set L
99 } $files
100  
101 do_test 1.7 {
102 execsql BEGIN;
103 foreach {name f} $files {
104 execsql "UPDATE $name.tbl SET x = '$f'"
105 }
106 execsql COMMIT;
107 } {}
108  
109 do_test 1.8 {
110 set L [list]
111 foreach {name f} $files {
112 lappend L $name [execsql "SELECT x FROM $name.tbl"]
113 }
114 set L
115 } $files
116  
117 db close
118 foreach {name f} $files { forcedelete $f }
119  
120 finish_test