Annotation of embedaddon/sqlite3/test/boundary4.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: boundary4.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: ifcapable !altertable { finish_test; return }
! 24: }
! 25:
! 26: expr srand(0)
! 27:
! 28: # Generate interesting boundary numbers
! 29: #
! 30: foreach x {
! 31: 0x7f
! 32: 0x7fff
! 33: 0x7fffff
! 34: 0x7fffffff
! 35: 0x7fffffffff
! 36: 0x7fffffffffff
! 37: 0x7fffffffffffff
! 38: 0x7fffffffffffffff
! 39: } {
! 40: set x [expr {wide($x)}]
! 41: set boundarynum($x) 1
! 42: set boundarynum([expr {$x+1}]) 1
! 43: set boundarynum([expr {-($x+1)}]) 1
! 44: set boundarynum([expr {-($x+2)}]) 1
! 45: set boundarynum([expr {$x+$x+1}]) 1
! 46: set boundarynum([expr {$x+$x+2}]) 1
! 47: }
! 48: set x [expr {wide(127)}]
! 49: for {set i 127} {$i<=9} {incr i} {
! 50: set boundarynum($x) 1
! 51: set boundarynum([expr {$x+1}]) 1
! 52: set x [expr {wide($x*128 + 127)}]
! 53: }
! 54:
! 55: # Scramble the $inlist into a random order.
! 56: #
! 57: proc scramble {inlist} {
! 58: set y {}
! 59: foreach x $inlist {
! 60: lappend y [list [expr {rand()}] $x]
! 61: }
! 62: set y [lsort $y]
! 63: set outlist {}
! 64: foreach x $y {
! 65: lappend outlist [lindex $x 1]
! 66: }
! 67: return $outlist
! 68: }
! 69:
! 70: # A simple selection sort. Not trying to be efficient.
! 71: #
! 72: proc sort {inlist} {
! 73: set outlist {}
! 74: set mn [lindex $inlist 0]
! 75: foreach x $inlist {
! 76: if {$x<$mn} {set mn $x}
! 77: }
! 78: set outlist $mn
! 79: set mx $mn
! 80: while {1} {
! 81: set valid 0
! 82: foreach x $inlist {
! 83: if {$x>$mx && (!$valid || $mn>$x)} {
! 84: set mn $x
! 85: set valid 1
! 86: }
! 87: }
! 88: if {!$valid} break
! 89: lappend outlist $mn
! 90: set mx $mn
! 91: }
! 92: return $outlist
! 93: }
! 94:
! 95: # Reverse the order of a list
! 96: #
! 97: proc reverse {inlist} {
! 98: set i [llength $inlist]
! 99: set outlist {}
! 100: for {incr i -1} {$i>=0} {incr i -1} {
! 101: lappend outlist [lindex $inlist $i]
! 102: }
! 103: return $outlist
! 104: }
! 105:
! 106: set nums1 [scramble [array names boundarynum]]
! 107: set nums2 [scramble [array names boundarynum]]
! 108:
! 109: set tname boundary4
! 110: puts "do_test $tname-1.1 \173"
! 111: puts " db eval \173"
! 112: puts " CREATE TABLE t1(a,x);"
! 113: set a 0
! 114: set all_rowid {}
! 115: set all_a {}
! 116: set all_x {}
! 117: foreach r $nums1 {
! 118: incr a
! 119: set t1ra($r) $a
! 120: set t1ar($a) $r
! 121: set x [format %08x%08x [expr {wide($r)>>32}] $r]
! 122: set t1rx($r) $x
! 123: set t1xr($x) $r
! 124: puts " INSERT INTO t1(oid,a,x) VALUES($r,$a,'$x');"
! 125: lappend all_rowid $r
! 126: lappend all_a $a
! 127: lappend all_x $x
! 128: }
! 129: puts " CREATE INDEX t1i1 ON t1(a);"
! 130: puts " CREATE INDEX t1i2 ON t1(x);"
! 131: puts " \175"
! 132: puts "\175 {}"
! 133:
! 134: puts "do_test $tname-1.2 \173"
! 135: puts " db eval \173"
! 136: puts " SELECT count(*) FROM t1"
! 137: puts " \175"
! 138: puts "\175 {[llength $nums1]}"
! 139:
! 140: proc maketest {tnum sql answer} {
! 141: puts "do_test $::tname-$tnum \173"
! 142: puts " db eval \173"
! 143: puts " $sql"
! 144: puts " \175"
! 145: puts "\175 {$answer}"
! 146: }
! 147:
! 148: set ans {}
! 149: foreach r [sort $all_rowid] {
! 150: lappend ans $r $t1ra($r) $t1rx($r)
! 151: }
! 152: maketest 1.3 {SELECT rowid, a, x FROM t1 ORDER BY +rowid} $ans
! 153: maketest 1.4 {SELECT rowid, a, x FROM t1 ORDER BY rowid} $ans
! 154:
! 155: set ans {}
! 156: foreach r [reverse [sort $all_rowid]] {
! 157: lappend ans $r $t1ra($r) $t1rx($r)
! 158: }
! 159: maketest 1.5 {SELECT rowid, a, x FROM t1 ORDER BY +rowid DESC} $ans
! 160: maketest 1.6 {SELECT rowid, a, x FROM t1 ORDER BY rowid DESC} $ans
! 161:
! 162: set ans {}
! 163: foreach a [sort $all_a] {
! 164: set r $t1ar($a)
! 165: lappend ans $r $a $t1rx($r)
! 166: }
! 167: maketest 1.7 {SELECT rowid, a, x FROM t1 ORDER BY +a} $ans
! 168: maketest 1.8 {SELECT rowid, a, x FROM t1 ORDER BY a} $ans
! 169:
! 170: set ans {}
! 171: foreach a [reverse [sort $all_a]] {
! 172: set r $t1ar($a)
! 173: lappend ans $r $a $t1rx($r)
! 174: }
! 175: maketest 1.9 {SELECT rowid, a, x FROM t1 ORDER BY +a DESC} $ans
! 176: maketest 1.10 {SELECT rowid, a, x FROM t1 ORDER BY a DESC} $ans
! 177:
! 178: set ans {}
! 179: foreach x [sort $all_x] {
! 180: set r $t1xr($x)
! 181: lappend ans $r $t1ra($r) $x
! 182: }
! 183: maketest 1.11 {SELECT rowid, a, x FROM t1 ORDER BY +x} $ans
! 184: maketest 1.12 {SELECT rowid, a, x FROM t1 ORDER BY x} $ans
! 185:
! 186: set ans {}
! 187: foreach x [reverse [sort $all_x]] {
! 188: set r $t1xr($x)
! 189: lappend ans $r $t1ra($r) $x
! 190: }
! 191: maketest 1.13 {SELECT rowid, a, x FROM t1 ORDER BY +x DESC} $ans
! 192: maketest 1.14 {SELECT rowid, a, x FROM t1 ORDER BY x DESC} $ans
! 193:
! 194: maketest 2.1 {UPDATE t1 SET rowid=a, a=rowid} {}
! 195:
! 196: set ans {}
! 197: foreach r [sort $all_rowid] {
! 198: lappend ans $r $t1ra($r) $t1rx($r)
! 199: }
! 200: maketest 2.3 {SELECT a, rowid, x FROM t1 ORDER BY +a} $ans
! 201: maketest 2.4 {SELECT a, rowid, x FROM t1 ORDER BY a} $ans
! 202:
! 203: set ans {}
! 204: foreach r [reverse [sort $all_rowid]] {
! 205: lappend ans $r $t1ra($r) $t1rx($r)
! 206: }
! 207: maketest 2.5 {SELECT a, rowid, x FROM t1 ORDER BY +a DESC} $ans
! 208: maketest 2.6 {SELECT a, rowid, x FROM t1 ORDER BY a DESC} $ans
! 209:
! 210: set ans {}
! 211: foreach a [sort $all_a] {
! 212: set r $t1ar($a)
! 213: lappend ans $r $a $t1rx($r)
! 214: }
! 215: maketest 2.7 {SELECT a, rowid, x FROM t1 ORDER BY +rowid} $ans
! 216: maketest 2.8 {SELECT a, rowid, x FROM t1 ORDER BY rowid} $ans
! 217:
! 218: set ans {}
! 219: foreach a [reverse [sort $all_a]] {
! 220: set r $t1ar($a)
! 221: lappend ans $r $a $t1rx($r)
! 222: }
! 223: maketest 2.9 {SELECT a, rowid, x FROM t1 ORDER BY +rowid DESC} $ans
! 224: maketest 2.10 {SELECT a, rowid, x FROM t1 ORDER BY rowid DESC} $ans
! 225:
! 226: set ans {}
! 227: foreach x [sort $all_x] {
! 228: set r $t1xr($x)
! 229: lappend ans $r $t1ra($r) $x
! 230: }
! 231: maketest 2.11 {SELECT a, rowid, x FROM t1 ORDER BY +x} $ans
! 232: maketest 2.12 {SELECT a, rowid, x FROM t1 ORDER BY x} $ans
! 233:
! 234: set ans {}
! 235: foreach x [reverse [sort $all_x]] {
! 236: set r $t1xr($x)
! 237: lappend ans $r $t1ra($r) $x
! 238: }
! 239: maketest 2.13 {SELECT a, rowid, x FROM t1 ORDER BY +x DESC} $ans
! 240: maketest 2.14 {SELECT a, rowid, x FROM t1 ORDER BY x DESC} $ans
! 241:
! 242: maketest 3.1 {UPDATE t1 SET rowid=a, a=rowid} {}
! 243: maketest 3.2 {ALTER TABLE t1 ADD COLUMN z; UPDATE t1 SET z=zeroblob(600)} {}
! 244:
! 245: set ans {}
! 246: foreach r [sort $all_rowid] {
! 247: lappend ans $r $t1ra($r) $t1rx($r)
! 248: }
! 249: maketest 3.3 {SELECT rowid, a, x FROM t1 ORDER BY +rowid} $ans
! 250: maketest 3.4 {SELECT rowid, a, x FROM t1 ORDER BY rowid} $ans
! 251:
! 252: set ans {}
! 253: foreach r [reverse [sort $all_rowid]] {
! 254: lappend ans $r $t1ra($r) $t1rx($r)
! 255: }
! 256: maketest 3.5 {SELECT rowid, a, x FROM t1 ORDER BY +rowid DESC} $ans
! 257: maketest 3.6 {SELECT rowid, a, x FROM t1 ORDER BY rowid DESC} $ans
! 258:
! 259: set ans {}
! 260: foreach a [sort $all_a] {
! 261: set r $t1ar($a)
! 262: lappend ans $r $a $t1rx($r)
! 263: }
! 264: maketest 3.7 {SELECT rowid, a, x FROM t1 ORDER BY +a} $ans
! 265: maketest 3.8 {SELECT rowid, a, x FROM t1 ORDER BY a} $ans
! 266:
! 267: set ans {}
! 268: foreach a [reverse [sort $all_a]] {
! 269: set r $t1ar($a)
! 270: lappend ans $r $a $t1rx($r)
! 271: }
! 272: maketest 3.9 {SELECT rowid, a, x FROM t1 ORDER BY +a DESC} $ans
! 273: maketest 3.10 {SELECT rowid, a, x FROM t1 ORDER BY a DESC} $ans
! 274:
! 275: set ans {}
! 276: foreach x [sort $all_x] {
! 277: set r $t1xr($x)
! 278: lappend ans $r $t1ra($r) $x
! 279: }
! 280: maketest 3.11 {SELECT rowid, a, x FROM t1 ORDER BY +x} $ans
! 281: maketest 3.12 {SELECT rowid, a, x FROM t1 ORDER BY x} $ans
! 282:
! 283: set ans {}
! 284: foreach x [reverse [sort $all_x]] {
! 285: set r $t1xr($x)
! 286: lappend ans $r $t1ra($r) $x
! 287: }
! 288: maketest 3.13 {SELECT rowid, a, x FROM t1 ORDER BY +x DESC} $ans
! 289: maketest 3.14 {SELECT rowid, a, x FROM t1 ORDER BY x DESC} $ans
! 290:
! 291:
! 292: maketest 4.1 {UPDATE t1 SET rowid=a, a=rowid, x=z, z=x} {}
! 293:
! 294: set ans {}
! 295: foreach r [sort $all_rowid] {
! 296: lappend ans $r $t1ra($r) $t1rx($r)
! 297: }
! 298: maketest 4.3 {SELECT a, rowid, z FROM t1 ORDER BY +a} $ans
! 299: maketest 4.4 {SELECT a, rowid, z FROM t1 ORDER BY a} $ans
! 300:
! 301: set ans {}
! 302: foreach r [reverse [sort $all_rowid]] {
! 303: lappend ans $r $t1ra($r) $t1rx($r)
! 304: }
! 305: maketest 4.5 {SELECT a, rowid, z FROM t1 ORDER BY +a DESC} $ans
! 306: maketest 4.6 {SELECT a, rowid, z FROM t1 ORDER BY a DESC} $ans
! 307:
! 308: set ans {}
! 309: foreach a [sort $all_a] {
! 310: set r $t1ar($a)
! 311: lappend ans $r $a $t1rx($r)
! 312: }
! 313: maketest 4.7 {SELECT a, rowid, z FROM t1 ORDER BY +rowid} $ans
! 314: maketest 4.8 {SELECT a, rowid, z FROM t1 ORDER BY rowid} $ans
! 315:
! 316: set ans {}
! 317: foreach a [reverse [sort $all_a]] {
! 318: set r $t1ar($a)
! 319: lappend ans $r $a $t1rx($r)
! 320: }
! 321: maketest 4.9 {SELECT a, rowid, z FROM t1 ORDER BY +rowid DESC} $ans
! 322: maketest 4.10 {SELECT a, rowid, z FROM t1 ORDER BY rowid DESC} $ans
! 323:
! 324: set ans {}
! 325: foreach x [sort $all_x] {
! 326: set r $t1xr($x)
! 327: lappend ans $r $t1ra($r) $x
! 328: }
! 329: maketest 4.11 {SELECT a, rowid, z FROM t1 ORDER BY +z} $ans
! 330: maketest 4.12 {SELECT a, rowid, z FROM t1 ORDER BY z} $ans
! 331:
! 332: set ans {}
! 333: foreach x [reverse [sort $all_x]] {
! 334: set r $t1xr($x)
! 335: lappend ans $r $t1ra($r) $x
! 336: }
! 337: maketest 4.13 {SELECT a, rowid, z FROM t1 ORDER BY +z DESC} $ans
! 338: maketest 4.14 {SELECT a, rowid, z FROM t1 ORDER BY z DESC} $ans
! 339:
! 340: puts {finish_test}
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to boundary4.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