wasCSharpSQLite – Blame information for rev 1

Subversion Repositories:
Rev:
Rev Author Line No. Line
1 office 1 # 2002 November 30
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 testing the ability of SQLite to handle database
13 # files larger than 4GB.
14 #
15 # $Id: bigfile.test,v 1.12 2009/03/05 04:27:08 shane Exp $
16 #
17  
18 set testdir [file dirname $argv0]
19 source $testdir/tester.tcl
20  
21 # Do not use a codec for this file, as the database is manipulated using
22 # external methods (the [fake_big_file] and [hexio_write] commands).
23 #
24 do_not_use_codec
25  
26 # If SQLITE_DISABLE_LFS is defined, omit this file.
27 ifcapable !lfs {
28 finish_test
29 return
30 }
31  
32 # These tests only work for Tcl version 8.4 and later. Prior to 8.4,
33 # Tcl was unable to handle large files.
34 #
35 scan $::tcl_version %f vx
36 if {$vx<8.4} return
37  
38 # Mac OS X does not handle large files efficiently. So skip this test
39 # on that platform.
40 if {$tcl_platform(os)=="Darwin"} return
41  
42 # This is the md5 checksum of all the data in table t1 as created
43 # by the first test. We will use this number to make sure that data
44 # never changes.
45 #
46 set MAGIC_SUM {593f1efcfdbe698c28b4b1b693f7e4cf}
47  
48 do_test bigfile-1.1 {
49 execsql {
50 BEGIN;
51 CREATE TABLE t1(x);
52 INSERT INTO t1 VALUES('abcdefghijklmnopqrstuvwxyz');
53 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
54 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
55 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
56 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
57 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
58 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
59 INSERT INTO t1 SELECT rowid || ' ' || x FROM t1;
60 COMMIT;
61 }
62 execsql {
63 SELECT md5sum(x) FROM t1;
64 }
65 } $::MAGIC_SUM
66  
67 # Try to create a large file - a file that is larger than 2^32 bytes.
68 # If this fails, it means that the system being tested does not support
69 # large files. So skip all of the remaining tests in this file.
70 #
71 db close
72 if {[catch {fake_big_file 4096 [pwd]/test.db} msg]} {
73 puts "**** Unable to create a file larger than 4096 MB. *****"
74 finish_test
75 return
76 }
77 hexio_write test.db 28 00000000
78  
79 do_test bigfile-1.2 {
80 sqlite3 db test.db
81 execsql {
82 SELECT md5sum(x) FROM t1;
83 }
84 } $::MAGIC_SUM
85  
86 # The previous test may fail on some systems because they are unable
87 # to handle large files. If that is so, then skip all of the following
88 # tests. We will know the above test failed because the "db" command
89 # does not exist.
90 #
91 if {[llength [info command db]]<=0} {
92 puts "**** Large file support appears to be broken. *****"
93 finish_test
94 return
95 }
96  
97 do_test bigfile-1.3 {
98 execsql {
99 CREATE TABLE t2 AS SELECT * FROM t1;
100 SELECT md5sum(x) FROM t2;
101 }
102 } $::MAGIC_SUM
103 do_test bigfile-1.4 {
104 db close
105 sqlite3 db test.db
106 execsql {
107 SELECT md5sum(x) FROM t1;
108 }
109 } $::MAGIC_SUM
110  
111 db close
112 if {[catch {fake_big_file 8192 [pwd]/test.db}]} {
113 puts "**** Unable to create a file larger than 8192 MB. *****"
114 finish_test
115 return
116 }
117 hexio_write test.db 28 00000000
118  
119 do_test bigfile-1.5 {
120 sqlite3 db test.db
121 execsql {
122 SELECT md5sum(x) FROM t1;
123 }
124 } $::MAGIC_SUM
125 do_test bigfile-1.6 {
126 sqlite3 db test.db
127 execsql {
128 SELECT md5sum(x) FROM t2;
129 }
130 } $::MAGIC_SUM
131 do_test bigfile-1.7 {
132 execsql {
133 CREATE TABLE t3 AS SELECT * FROM t1;
134 SELECT md5sum(x) FROM t3;
135 }
136 } $::MAGIC_SUM
137 do_test bigfile-1.8 {
138 db close
139 sqlite3 db test.db
140 execsql {
141 SELECT md5sum(x) FROM t1;
142 }
143 } $::MAGIC_SUM
144 do_test bigfile-1.9 {
145 execsql {
146 SELECT md5sum(x) FROM t2;
147 }
148 } $::MAGIC_SUM
149  
150 db close
151 if {[catch {fake_big_file 16384 [pwd]/test.db}]} {
152 puts "**** Unable to create a file larger than 16384 MB. *****"
153 finish_test
154 return
155 }
156 hexio_write test.db 28 00000000
157  
158 do_test bigfile-1.10 {
159 sqlite3 db test.db
160 execsql {
161 SELECT md5sum(x) FROM t1;
162 }
163 } $::MAGIC_SUM
164 do_test bigfile-1.11 {
165 sqlite3 db test.db
166 execsql {
167 SELECT md5sum(x) FROM t2;
168 }
169 } $::MAGIC_SUM
170 do_test bigfile-1.12 {
171 sqlite3 db test.db
172 execsql {
173 SELECT md5sum(x) FROM t3;
174 }
175 } $::MAGIC_SUM
176 do_test bigfile-1.13 {
177 execsql {
178 CREATE TABLE t4 AS SELECT * FROM t1;
179 SELECT md5sum(x) FROM t4;
180 }
181 } $::MAGIC_SUM
182 do_test bigfile-1.14 {
183 db close
184 sqlite3 db test.db
185 execsql {
186 SELECT md5sum(x) FROM t1;
187 }
188 } $::MAGIC_SUM
189 do_test bigfile-1.15 {
190 execsql {
191 SELECT md5sum(x) FROM t2;
192 }
193 } $::MAGIC_SUM
194 do_test bigfile-1.16 {
195 execsql {
196 SELECT md5sum(x) FROM t3;
197 }
198 } $::MAGIC_SUM
199  
200 finish_test