database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Update the boundary3.tcl script so that it can be run with tcl 8.5 or 8.6 to regenerate boundary3.test.

Browse Source 
FossilOrigin-Name: ebac5afa471526dffc8026e66753263476137a3b
This commit is contained in:
dan
2013-06-26 16:30:26 +00:00
parent 989a6dbef1
commit 6559172e1a
3 changed files with 16 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
test/boundary3.tcl
View File

@ -13,7 +13,6 @@ puts {# 2008 December 11
# 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
@ -40,16 +39,16 @@ foreach x {
} {
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)}]
}
@ -116,7 +115,7 @@ 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');"
@ -158,7 +157,7 @@ foreach r $nums3 {
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"