wasCSharpSQLite – Blame information for rev 7
?pathlinks?
Rev | Author | Line No. | Line |
---|---|---|---|
1 | office | 1 | puts {# 2008 December 11
|
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 is automatically generated from a separate TCL script.
|
||
14 | # This file seeks to exercise integer boundary values.
|
||
15 | #
|
||
16 | # $Id: boundary1.tcl,v 1.3 2009/01/02 15:45:48 shane Exp $
|
||
17 | |||
18 | set testdir [file dirname $argv0] |
||
19 | source $testdir/tester.tcl |
||
20 | |||
21 | # Many of the boundary tests depend on a working 64-bit implementation.
|
||
22 | if {![working_64bit_int]} { finish_test; return } |
||
23 | } |
||
24 | |||
25 | expr srand(0) |
||
26 | |||
27 | # Generate interesting boundary numbers
|
||
28 | #
|
||
29 | foreach x { |
||
30 | |||
31 | 1 |
||
32 | 0x7f |
||
33 | 0x7fff |
||
34 | 0x7fffff |
||
35 | 0x7fffffff |
||
36 | 0x7fffffffff |
||
37 | 0x7fffffffffff |
||
38 | 0x7fffffffffffff |
||
39 | 0x7fffffffffffffff |
||
40 | } { |
||
41 | set x [expr {wide($x)}] |
||
42 | set boundarynum($x) 1 |
||
43 | set boundarynum([expr {$x+1}]) 1 |
||
44 | set boundarynum([expr {-($x+1)}]) 1 |
||
45 | set boundarynum([expr {-($x+2)}]) 1 |
||
46 | set boundarynum([expr {$x+$x+1}]) 1 |
||
47 | set boundarynum([expr {$x+$x+2}]) 1 |
||
48 | } |
||
49 | set x [expr {wide(127)}] |
||
50 | for {set i 1} {$i<=9} {incr i} { |
||
51 | set boundarynum($x) 1 |
||
52 | set boundarynum([expr {$x+1}]) 1 |
||
53 | set x [expr {wide($x*128 + 127)}] |
||
54 | } |
||
55 | |||
56 | # Scramble the $inlist into a random order.
|
||
57 | #
|
||
58 | proc scramble {inlist} { |
||
59 | set y {} |
||
60 | foreach x $inlist { |
||
61 | lappend y [list [expr {rand()}] $x] |
||
62 | } |
||
63 | set y [lsort $y] |
||
64 | set outlist {} |
||
65 | foreach x $y { |
||
66 | lappend outlist [lindex $x 1] |
||
67 | } |
||
68 | return $outlist |
||
69 | } |
||
70 | |||
71 | # A simple selection sort. Not trying to be efficient.
|
||
72 | #
|
||
73 | proc sort {inlist} { |
||
74 | set outlist {} |
||
75 | set mn [lindex $inlist 0] |
||
76 | foreach x $inlist { |
||
77 | if {$x<$mn} {set mn $x} |
||
78 | } |
||
79 | set outlist $mn |
||
80 | set mx $mn |
||
81 | while {1} { |
||
82 | set valid 0 |
||
83 | foreach x $inlist { |
||
84 | if {$x>$mx && (!$valid || $mn>$x)} { |
||
85 | set mn $x |
||
86 | set valid 1 |
||
87 | } |
||
88 | } |
||
89 | if {!$valid} break |
||
90 | lappend outlist $mn |
||
91 | set mx $mn |
||
92 | } |
||
93 | return $outlist |
||
94 | } |
||
95 | |||
96 | # Reverse the order of a list
|
||
97 | #
|
||
98 | proc reverse {inlist} { |
||
99 | set i [llength $inlist] |
||
100 | set outlist {} |
||
101 | for {incr i -1} {$i>=0} {incr i -1} { |
||
102 | lappend outlist [lindex $inlist $i] |
||
103 | } |
||
104 | return $outlist |
||
105 | } |
||
106 | |||
107 | set nums1 [scramble [array names boundarynum]] |
||
108 | set nums2 [scramble [array names boundarynum]] |
||
109 | |||
110 | set tname boundary1 |
||
111 | puts "do_test $tname-1.1 \173" |
||
112 | puts " db eval \173" |
||
113 | puts " CREATE TABLE t1(a,x);" |
||
114 | set a 0 |
||
115 | foreach r $nums1 { |
||
116 | incr a |
||
117 | set t1ra($r) $a |
||
118 | set t1ar($a) $r |
||
119 | set x [format %08x%08x [expr {wide($r)>>32}] $r] |
||
120 | set t1rx($r) $x |
||
121 | set t1xr($x) $r |
||
122 | puts " INSERT INTO t1(oid,a,x) VALUES($r,$a,'$x');" |
||
123 | } |
||
124 | puts " CREATE INDEX t1i1 ON t1(a);" |
||
125 | puts " CREATE INDEX t1i2 ON t1(x);" |
||
126 | puts " \175" |
||
127 | puts "\175 {}" |
||
128 | |||
129 | puts "do_test $tname-1.2 \173" |
||
130 | puts " db eval \173" |
||
131 | puts " SELECT count(*) FROM t1" |
||
132 | puts " \175" |
||
133 | puts "\175 {64}" |
||
134 | |||
135 | set nums3 $nums2 |
||
136 | lappend nums3 9.22337303685477580800e+18 |
||
137 | lappend nums3 -9.22337303685477580800e+18 |
||
138 | |||
139 | set i 0 |
||
140 | foreach r $nums3 { |
||
141 | incr i |
||
142 | |||
143 | if {abs($r)<9.22337203685477580800e+18} { |
||
144 | set x $t1rx($r) |
||
145 | set a $t1ra($r) |
||
146 | set r5 $r.5 |
||
147 | set r0 $r.0 |
||
148 | puts "do_test $tname-2.$i.1 \173" |
||
149 | puts " db eval \173" |
||
150 | puts " SELECT * FROM t1 WHERE rowid=$r" |
||
151 | puts " \175" |
||
152 | puts "\175 {$a $x}" |
||
153 | puts "do_test $tname-2.$i.2 \173" |
||
154 | puts " db eval \173" |
||
155 | puts " SELECT rowid, a FROM t1 WHERE x='$x'" |
||
156 | puts " \175" |
||
157 | puts "\175 {$r $a}" |
||
158 | puts "do_test $tname-2.$i.3 \173" |
||
159 | puts " db eval \173" |
||
160 | puts " SELECT rowid, x FROM t1 WHERE a=$a" |
||
161 | puts " \175" |
||
162 | puts "\175 {$r $x}" |
||
163 | } |
||
164 | |||
165 | foreach op {> >= < <=} subno {gt ge lt le} { |
||
166 | |||
167 | ################################################################ 2.x.y.1
|
||
168 | set rset {} |
||
169 | set aset {} |
||
170 | foreach rx $nums2 { |
||
171 | if "\$rx $op \$r" { |
||
172 | lappend rset $rx |
||
173 | lappend aset $t1ra($rx) |
||
174 | } |
||
175 | } |
||
176 | puts "do_test $tname-2.$i.$subno.1 \173" |
||
177 | puts " db eval \173" |
||
178 | puts " SELECT a FROM t1 WHERE rowid $op $r ORDER BY a" |
||
179 | puts " \175" |
||
180 | puts "\175 {[sort $aset]}" |
||
181 | |||
182 | ################################################################ 2.x.y.2
|
||
183 | puts "do_test $tname-2.$i.$subno.2 \173" |
||
184 | puts " db eval \173" |
||
185 | puts " SELECT a FROM t1 WHERE rowid $op $r ORDER BY a DESC" |
||
186 | puts " \175" |
||
187 | puts "\175 {[reverse [sort $aset]]}" |
||
188 | |||
189 | ################################################################ 2.x.y.3
|
||
190 | set aset {} |
||
191 | foreach rx [sort $rset] { |
||
192 | lappend aset $t1ra($rx) |
||
193 | } |
||
194 | puts "do_test $tname-2.$i.$subno.3 \173" |
||
195 | puts " db eval \173" |
||
196 | puts " SELECT a FROM t1 WHERE rowid $op $r ORDER BY rowid" |
||
197 | puts " \175" |
||
198 | puts "\175 {$aset}" |
||
199 | |||
200 | ################################################################ 2.x.y.4
|
||
201 | set aset {} |
||
202 | foreach rx [reverse [sort $rset]] { |
||
203 | lappend aset $t1ra($rx) |
||
204 | } |
||
205 | puts "do_test $tname-2.$i.$subno.4 \173" |
||
206 | puts " db eval \173" |
||
207 | puts " SELECT a FROM t1 WHERE rowid $op $r ORDER BY rowid DESC" |
||
208 | puts " \175" |
||
209 | puts "\175 {$aset}" |
||
210 | |||
211 | ################################################################ 2.x.y.5
|
||
212 | set aset {} |
||
213 | set xset {} |
||
214 | foreach rx $rset { |
||
215 | lappend xset $t1rx($rx) |
||
216 | } |
||
217 | foreach x [sort $xset] { |
||
218 | set rx $t1xr($x) |
||
219 | lappend aset $t1ra($rx) |
||
220 | } |
||
221 | puts "do_test $tname-2.$i.$subno.5 \173" |
||
222 | puts " db eval \173" |
||
223 | puts " SELECT a FROM t1 WHERE rowid $op $r ORDER BY x" |
||
224 | puts " \175" |
||
225 | puts "\175 {$aset}" |
||
226 | |||
227 | ################################################################ 2.x.y.10
|
||
228 | if {abs($r)>9223372036854775808 || [string length $r5]>15} continue |
||
229 | set rset {} |
||
230 | set aset {} |
||
231 | foreach rx $nums2 { |
||
232 | if "\$rx $op \$r0" { |
||
233 | lappend rset $rx |
||
234 | } |
||
235 | } |
||
236 | foreach rx [sort $rset] { |
||
237 | lappend aset $t1ra($rx) |
||
238 | } |
||
239 | puts "do_test $tname-2.$i.$subno.10 \173" |
||
240 | puts " db eval \173" |
||
241 | puts " SELECT a FROM t1 WHERE rowid $op $r0 ORDER BY rowid" |
||
242 | puts " \175" |
||
243 | puts "\175 {$aset}" |
||
244 | |||
245 | ################################################################ 2.x.y.11
|
||
246 | set aset {} |
||
247 | foreach rx [reverse [sort $rset]] { |
||
248 | lappend aset $t1ra($rx) |
||
249 | } |
||
250 | puts "do_test $tname-2.$i.$subno.11 \173" |
||
251 | puts " db eval \173" |
||
252 | puts " SELECT a FROM t1 WHERE rowid $op $r0 ORDER BY rowid DESC" |
||
253 | puts " \175" |
||
254 | puts "\175 {$aset}" |
||
255 | |||
256 | |||
257 | ################################################################ 2.x.y.12
|
||
258 | set rset {} |
||
259 | set aset {} |
||
260 | foreach rx $nums2 { |
||
261 | if "\$rx $op \$r5" { |
||
262 | lappend rset $rx |
||
263 | } |
||
264 | } |
||
265 | foreach rx [sort $rset] { |
||
266 | lappend aset $t1ra($rx) |
||
267 | } |
||
268 | puts "do_test $tname-2.$i.$subno.12 \173" |
||
269 | puts " db eval \173" |
||
270 | puts " SELECT a FROM t1 WHERE rowid $op $r5 ORDER BY rowid" |
||
271 | puts " \175" |
||
272 | puts "\175 {$aset}" |
||
273 | |||
274 | ################################################################ 2.x.y.13
|
||
275 | set aset {} |
||
276 | foreach rx [reverse [sort $rset]] { |
||
277 | lappend aset $t1ra($rx) |
||
278 | } |
||
279 | puts "do_test $tname-2.$i.$subno.13 \173" |
||
280 | puts " db eval \173" |
||
281 | puts " SELECT a FROM t1 WHERE rowid $op $r5 ORDER BY rowid DESC" |
||
282 | puts " \175" |
||
283 | puts "\175 {$aset}" |
||
284 | } |
||
285 | |||
286 | } |
||
287 | |||
288 | |||
289 | puts {finish_test} |