Annotation of embedaddon/sqlite3/test/boundary1.tcl, revision 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: 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: 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 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}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to boundary1.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