Annotation of embedaddon/sqlite3/test/boundary2.tcl, revision 1.1.1.1
1.1 misho 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: boundary2.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: 0
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 boundary2
111: puts "do_test $tname-1.1 \173"
112: puts " db eval \173"
113: puts " CREATE TABLE t1(r INTEGER, a INTEGER, x TEXT);"
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 VALUES($r,$a,'$x');"
123: }
124: puts " CREATE INDEX t1i1 ON t1(r);"
125: puts " CREATE INDEX t1i2 ON t1(a);"
126: puts " CREATE INDEX t1i3 ON t1(x);"
127: puts " \175"
128: puts "\175 {}"
129:
130: puts "do_test $tname-1.2 \173"
131: puts " db eval \173"
132: puts " SELECT count(*) FROM t1"
133: puts " \175"
134: puts "\175 {64}"
135:
136: set nums3 $nums2
137: lappend nums3 9.22337303685477580800e+18
138: lappend nums3 -9.22337303685477580800e+18
139:
140: set i 0
141: foreach r $nums3 {
142: incr i
143:
144: if {abs($r)<9.22337203685477580800e+18} {
145: set x $t1rx($r)
146: set a $t1ra($r)
147: set r5 $r.5
148: set r0 $r.0
149: puts "do_test $tname-2.$i.1 \173"
150: puts " db eval \173"
151: puts " SELECT * FROM t1 WHERE r=$r"
152: puts " \175"
153: puts "\175 {$r $a $x}"
154: puts "do_test $tname-2.$i.2 \173"
155: puts " db eval \173"
156: puts " SELECT r, a FROM t1 WHERE x='$x'"
157: puts " \175"
158: puts "\175 {$r $a}"
159: puts "do_test $tname-2.$i.3 \173"
160: puts " db eval \173"
161: puts " SELECT r, x FROM t1 WHERE a=$a"
162: puts " \175"
163: puts "\175 {$r $x}"
164: }
165:
166: foreach op {> >= < <=} subno {gt ge lt le} {
167:
168: ################################################################ 2.x.y.1
169: set rset {}
170: set aset {}
171: foreach rx $nums2 {
172: if "\$rx $op \$r" {
173: lappend rset $rx
174: lappend aset $t1ra($rx)
175: }
176: }
177: puts "do_test $tname-2.$i.$subno.1 \173"
178: puts " db eval \173"
179: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY a"
180: puts " \175"
181: puts "\175 {[sort $aset]}"
182:
183: ################################################################ 2.x.y.2
184: puts "do_test $tname-2.$i.$subno.2 \173"
185: puts " db eval \173"
186: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY a DESC"
187: puts " \175"
188: puts "\175 {[reverse [sort $aset]]}"
189:
190: ################################################################ 2.x.y.3
191: set aset {}
192: foreach rx [sort $rset] {
193: lappend aset $t1ra($rx)
194: }
195: puts "do_test $tname-2.$i.$subno.3 \173"
196: puts " db eval \173"
197: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY r"
198: puts " \175"
199: puts "\175 {$aset}"
200:
201: ################################################################ 2.x.y.4
202: set aset {}
203: foreach rx [reverse [sort $rset]] {
204: lappend aset $t1ra($rx)
205: }
206: puts "do_test $tname-2.$i.$subno.4 \173"
207: puts " db eval \173"
208: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY r DESC"
209: puts " \175"
210: puts "\175 {$aset}"
211:
212: ################################################################ 2.x.y.5
213: set aset {}
214: set xset {}
215: foreach rx $rset {
216: lappend xset $t1rx($rx)
217: }
218: foreach x [sort $xset] {
219: set rx $t1xr($x)
220: lappend aset $t1ra($rx)
221: }
222: puts "do_test $tname-2.$i.$subno.5 \173"
223: puts " db eval \173"
224: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY x"
225: puts " \175"
226: puts "\175 {$aset}"
227:
228: ################################################################ 2.x.y.10
229: if {abs($r)>9223372036854775808 || [string length $r5]>15} continue
230: set rset {}
231: set aset {}
232: foreach rx $nums2 {
233: if "\$rx $op \$r0" {
234: lappend rset $rx
235: }
236: }
237: foreach rx [sort $rset] {
238: lappend aset $t1ra($rx)
239: }
240: puts "do_test $tname-2.$i.$subno.10 \173"
241: puts " db eval \173"
242: puts " SELECT a FROM t1 WHERE r $op $r0 ORDER BY r"
243: puts " \175"
244: puts "\175 {$aset}"
245:
246: ################################################################ 2.x.y.11
247: set aset {}
248: foreach rx [reverse [sort $rset]] {
249: lappend aset $t1ra($rx)
250: }
251: puts "do_test $tname-2.$i.$subno.11 \173"
252: puts " db eval \173"
253: puts " SELECT a FROM t1 WHERE r $op $r0 ORDER BY r DESC"
254: puts " \175"
255: puts "\175 {$aset}"
256:
257:
258: ################################################################ 2.x.y.12
259: set rset {}
260: set aset {}
261: foreach rx $nums2 {
262: if "\$rx $op \$r5" {
263: lappend rset $rx
264: }
265: }
266: foreach rx [sort $rset] {
267: lappend aset $t1ra($rx)
268: }
269: puts "do_test $tname-2.$i.$subno.12 \173"
270: puts " db eval \173"
271: puts " SELECT a FROM t1 WHERE r $op $r5 ORDER BY r"
272: puts " \175"
273: puts "\175 {$aset}"
274:
275: ################################################################ 2.x.y.13
276: set aset {}
277: foreach rx [reverse [sort $rset]] {
278: lappend aset $t1ra($rx)
279: }
280: puts "do_test $tname-2.$i.$subno.13 \173"
281: puts " db eval \173"
282: puts " SELECT a FROM t1 WHERE r $op $r5 ORDER BY r DESC"
283: puts " \175"
284: puts "\175 {$aset}"
285: }
286: }
287:
288: puts "do_test $tname-3.1 \173"
289: puts " db eval \173"
290: puts " DROP INDEX t1i1;"
291: puts " DROP INDEX t1i2;"
292: puts " DROP INDEX t1i3;"
293: puts " \175"
294: puts "\175 {}"
295:
296: set i 0
297: foreach r $nums3 {
298: incr i
299:
300: if {abs($r)<9.22337203685477580800e+18} {
301: set x $t1rx($r)
302: set a $t1ra($r)
303: set r5 $r.5
304: set r0 $r.0
305: puts "do_test $tname-4.$i.1 \173"
306: puts " db eval \173"
307: puts " SELECT * FROM t1 WHERE r=$r"
308: puts " \175"
309: puts "\175 {$r $a $x}"
310: puts "do_test $tname-4.$i.2 \173"
311: puts " db eval \173"
312: puts " SELECT r, a FROM t1 WHERE x='$x'"
313: puts " \175"
314: puts "\175 {$r $a}"
315: puts "do_test $tname-4.$i.3 \173"
316: puts " db eval \173"
317: puts " SELECT r, x FROM t1 WHERE a=$a"
318: puts " \175"
319: puts "\175 {$r $x}"
320: }
321:
322: foreach op {> >= < <=} subno {gt ge lt le} {
323:
324: ################################################################ 2.x.y.1
325: set rset {}
326: set aset {}
327: foreach rx $nums2 {
328: if "\$rx $op \$r" {
329: lappend rset $rx
330: lappend aset $t1ra($rx)
331: }
332: }
333: puts "do_test $tname-4.$i.$subno.1 \173"
334: puts " db eval \173"
335: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY a"
336: puts " \175"
337: puts "\175 {[sort $aset]}"
338:
339: ################################################################ 2.x.y.2
340: puts "do_test $tname-4.$i.$subno.2 \173"
341: puts " db eval \173"
342: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY a DESC"
343: puts " \175"
344: puts "\175 {[reverse [sort $aset]]}"
345:
346: ################################################################ 2.x.y.3
347: set aset {}
348: foreach rx [sort $rset] {
349: lappend aset $t1ra($rx)
350: }
351: puts "do_test $tname-4.$i.$subno.3 \173"
352: puts " db eval \173"
353: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY r"
354: puts " \175"
355: puts "\175 {$aset}"
356:
357: ################################################################ 2.x.y.4
358: set aset {}
359: foreach rx [reverse [sort $rset]] {
360: lappend aset $t1ra($rx)
361: }
362: puts "do_test $tname-4.$i.$subno.4 \173"
363: puts " db eval \173"
364: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY r DESC"
365: puts " \175"
366: puts "\175 {$aset}"
367:
368: ################################################################ 2.x.y.5
369: set aset {}
370: set xset {}
371: foreach rx $rset {
372: lappend xset $t1rx($rx)
373: }
374: foreach x [sort $xset] {
375: set rx $t1xr($x)
376: lappend aset $t1ra($rx)
377: }
378: puts "do_test $tname-4.$i.$subno.5 \173"
379: puts " db eval \173"
380: puts " SELECT a FROM t1 WHERE r $op $r ORDER BY x"
381: puts " \175"
382: puts "\175 {$aset}"
383:
384: ################################################################ 2.x.y.10
385: if {abs($r)>9223372036854775808 || [string length $r5]>15} continue
386: set rset {}
387: set aset {}
388: foreach rx $nums2 {
389: if "\$rx $op \$r0" {
390: lappend rset $rx
391: }
392: }
393: foreach rx [sort $rset] {
394: lappend aset $t1ra($rx)
395: }
396: puts "do_test $tname-4.$i.$subno.10 \173"
397: puts " db eval \173"
398: puts " SELECT a FROM t1 WHERE r $op $r0 ORDER BY r"
399: puts " \175"
400: puts "\175 {$aset}"
401:
402: ################################################################ 2.x.y.11
403: set aset {}
404: foreach rx [reverse [sort $rset]] {
405: lappend aset $t1ra($rx)
406: }
407: puts "do_test $tname-4.$i.$subno.11 \173"
408: puts " db eval \173"
409: puts " SELECT a FROM t1 WHERE r $op $r0 ORDER BY r DESC"
410: puts " \175"
411: puts "\175 {$aset}"
412:
413:
414: ################################################################ 2.x.y.12
415: set rset {}
416: set aset {}
417: foreach rx $nums2 {
418: if "\$rx $op \$r5" {
419: lappend rset $rx
420: }
421: }
422: foreach rx [sort $rset] {
423: lappend aset $t1ra($rx)
424: }
425: puts "do_test $tname-4.$i.$subno.12 \173"
426: puts " db eval \173"
427: puts " SELECT a FROM t1 WHERE r $op $r5 ORDER BY r"
428: puts " \175"
429: puts "\175 {$aset}"
430:
431: ################################################################ 2.x.y.13
432: set aset {}
433: foreach rx [reverse [sort $rset]] {
434: lappend aset $t1ra($rx)
435: }
436: puts "do_test $tname-4.$i.$subno.13 \173"
437: puts " db eval \173"
438: puts " SELECT a FROM t1 WHERE r $op $r5 ORDER BY r DESC"
439: puts " \175"
440: puts "\175 {$aset}"
441: }
442: }
443:
444:
445: puts {finish_test}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to boundary2.tcl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test