Import SQLite 3.8.7.4.

third_party/sqlite/src/test/boundary3.tcl

 puts {# 2008 December 11
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
 # This file is automatically generated from a separate TCL script.
 # This file seeks to exercise integer boundary values.
 #
-# $Id: boundary3.tcl,v 1.3 2009/01/02 15:45:48 shane Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 # Many of the boundary tests depend on a working 64-bit implementation.
 if {![working_64bit_int]} { finish_test; return }
 }
 
 expr srand(0)
 
 # Generate interesting boundary numbers
 #
 foreach x {
   0
   1
   0x7f
   0x7fff
   0x7fffff
   0x7fffffff
   0x7fffffffff
   0x7fffffffffff
   0x7fffffffffffff
   0x7fffffffffffffff
 } {
   set x [expr {wide($x)}]
   set boundarynum($x) 1
-  set boundarynum([expr {$x+1}]) 1
-  set boundarynum([expr {-($x+1)}]) 1
-  set boundarynum([expr {-($x+2)}]) 1
-  set boundarynum([expr {$x+$x+1}]) 1
-  set boundarynum([expr {$x+$x+2}]) 1
+  set boundarynum([expr {wide($x+1)}]) 1
+  set boundarynum([expr {wide(-($x+1))}]) 1
+  set boundarynum([expr {wide(-($x+2))}]) 1
+  set boundarynum([expr {wide($x+$x+1)}]) 1
+  set boundarynum([expr {wide($x+$x+2)}]) 1
 }
 set x [expr {wide(127)}]
 for {set i 1} {$i<=9} {incr i} {
   set boundarynum($x) 1
-  set boundarynum([expr {$x+1}]) 1
+  set boundarynum([expr {wide($x+1)}]) 1
   set x [expr {wide($x*128 + 127)}]
 }
 
 # Scramble the $inlist into a random order.
 #
 proc scramble {inlist} {
   set y {}
   foreach x $inlist {
     lappend y [list [expr {rand()}] $x]
   }
@@ skipping 46 matching lines @@
 
 set tname boundary3
 puts "do_test $tname-1.1 \173"
 puts "  db eval \173"
 puts "    CREATE TABLE t1(a,x);"
 set a 0
 foreach r $nums1 {
   incr a
   set t1ra($r) $a
   set t1ar($a) $r
-  set x [format %08x%08x [expr {wide($r)>>32}] $r]
+  set x [format %016x [expr {wide($r)}]]
   set t1rx($r) $x
   set t1xr($x) $r
   puts "    INSERT INTO t1(oid,a,x) VALUES($r,$a,'$x');"
 }
 puts "    CREATE INDEX t1i1 ON t1(a);"
 puts "    CREATE INDEX t1i2 ON t1(x);"
 puts "  \175"
 puts "\175 {}"
 
 puts "do_test $tname-1.2 \173"
@@ skipping 21 matching lines @@
 set nums3 $nums2
 lappend nums3 9.22337303685477580800e+18
 lappend nums3 -9.22337303685477580800e+18
 
 set i 0
 foreach r $nums3 {
   incr i
 
   set r5 $r.5
   set r0 $r.0
-  if {abs($r)<9.22337203685477580800e+18} {
+   if {abs($r)<0x7FFFFFFFFFFFFFFF || $r==-9223372036854775808} {
     set x $t1rx($r)
     set a $t1ra($r)
     puts "do_test $tname-2.$i.1 \173"
     puts "  db eval \173"
     puts "    SELECT t1.* FROM t1, t2 WHERE t1.rowid=$r AND t2.a=t1.a"
     puts "  \175"
     puts "\175 {$a $x}"
     puts "do_test $tname-2.$i.2 \173"
     puts "  db eval \173"
     puts "    SELECT t2.* FROM t1 JOIN t2 USING(a) WHERE x='$x'"
@@ skipping 109 matching lines @@
     puts "     WHERE t2.a=$ax"
     puts "     ORDER BY t1.rowid DESC"
     puts "  \175"
     puts "\175 {$aset}"
   }
   
 }
 
 
 puts {finish_test}