mirror of
https://github.com/sqlite/sqlite.git
synced 2026-01-06 08:01:16 +03:00
Many of the boundary tests depend on a working 64-bit implementation of TCL, so skip them if this is not available. (CVS 6099)
FossilOrigin-Name: b1a4a17f8752d27f3b360019490ab3f15a1f629f
This commit is contained in:
@@ -13,10 +13,13 @@ puts {# 2008 December 11
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary1.tcl,v 1.2 2008/12/14 02:55:16 drh Exp $
|
||||
# $Id: boundary1.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)
|
||||
|
||||
@@ -13,11 +13,14 @@
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary1.test,v 1.1 2008/12/12 17:56:16 drh Exp $
|
||||
# $Id: boundary1.test,v 1.2 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 }
|
||||
|
||||
do_test boundary1-1.1 {
|
||||
db eval {
|
||||
CREATE TABLE t1(a,x);
|
||||
|
||||
@@ -13,10 +13,13 @@ puts {# 2008 December 11
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary2.tcl,v 1.2 2008/12/14 02:55:16 drh Exp $
|
||||
# $Id: boundary2.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)
|
||||
|
||||
@@ -13,11 +13,14 @@
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary2.test,v 1.1 2008/12/12 19:19:22 drh Exp $
|
||||
# $Id: boundary2.test,v 1.2 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 }
|
||||
|
||||
do_test boundary2-1.1 {
|
||||
db eval {
|
||||
CREATE TABLE t1(r INTEGER, a INTEGER, x TEXT);
|
||||
|
||||
@@ -13,10 +13,13 @@ 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.2 2008/12/14 02:55:16 drh Exp $
|
||||
# $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)
|
||||
|
||||
@@ -13,11 +13,14 @@
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary3.test,v 1.1 2008/12/12 19:19:22 drh Exp $
|
||||
# $Id: boundary3.test,v 1.2 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 }
|
||||
|
||||
do_test boundary3-1.1 {
|
||||
db eval {
|
||||
CREATE TABLE t1(a,x);
|
||||
|
||||
@@ -13,10 +13,13 @@ puts {# 2008 December 11
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary4.tcl,v 1.2 2008/12/14 02:55:16 drh Exp $
|
||||
# $Id: boundary4.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)
|
||||
|
||||
@@ -13,11 +13,14 @@
|
||||
# This file is automatically generated from a separate TCL script.
|
||||
# This file seeks to exercise integer boundary values.
|
||||
#
|
||||
# $Id: boundary4.test,v 1.1 2008/12/12 19:19:22 drh Exp $
|
||||
# $Id: boundary4.test,v 1.2 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 }
|
||||
|
||||
do_test boundary4-1.1 {
|
||||
db eval {
|
||||
CREATE TABLE t1(a,x);
|
||||
|
||||
Reference in New Issue
Block a user