diff options
author | dgp <dgp@users.sourceforge.net> | 2005-08-22 12:55:09 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2005-08-22 12:55:09 (GMT) |
commit | a0294a71225920d0fbe961abdc5e5f0886214fe8 (patch) | |
tree | 3411423434d7775c1ba19feae35fc83b605b8a72 | |
parent | ec655a2c3a36f58f314f9bda48924e427d5f0f7b (diff) | |
download | tcl-a0294a71225920d0fbe961abdc5e5f0886214fe8.zip tcl-a0294a71225920d0fbe961abdc5e5f0886214fe8.tar.gz tcl-a0294a71225920d0fbe961abdc5e5f0886214fe8.tar.bz2 |
[kennykb_numerics_branch]
* tests/expr.test: Corrected the wideIs64bit constraint.
* tests/format.test:
* tests/scan.test:
-rw-r--r-- | ChangeLog | 8 | ||||
-rw-r--r-- | tests/expr.test | 5 | ||||
-rw-r--r-- | tests/format.test | 4 | ||||
-rw-r--r-- | tests/scan.test | 4 |
4 files changed, 15 insertions, 6 deletions
@@ -1,3 +1,11 @@ +2005-08-22 Don Porter <dgp@users.sourceforge.net> + + [kennykb_numerics_branch] + + * tests/expr.test: Corrected the wideIs64bit constraint. + * tests/format.test: + * tests/scan.test: + 2005-08-21 Don Porter <dgp@users.sourceforge.net> [kennykb_numerics_branch] diff --git a/tests/expr.test b/tests/expr.test index 488b32e..e4eebc0 100644 --- a/tests/expr.test +++ b/tests/expr.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: expr.test,v 1.30.2.16 2005/08/18 02:09:05 dgp Exp $ +# RCS: @(#) $Id: expr.test,v 1.30.2.17 2005/08/22 12:55:10 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2.1 @@ -26,7 +26,8 @@ testConstraint testmathfunctions [expr { testConstraint longIs32bit [expr {int(0x80000000) < 0}] testConstraint longIs64bit [expr {int(0x8000000000000000) < 0}] -testConstraint wideIs64bit [expr {(0x80000000 > 0) && (0x8000000000000000 < 0)}] +testConstraint wideIs64bit \ + [expr {(wide(0x80000000) > 0) && (wide(0x8000000000000000) < 0)}] # Big test for correct ordering of data in [expr] diff --git a/tests/format.test b/tests/format.test index c7963d1..c179c0c 100644 --- a/tests/format.test +++ b/tests/format.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: format.test,v 1.19.2.2 2005/08/02 18:16:40 dgp Exp $ +# RCS: @(#) $Id: format.test,v 1.19.2.3 2005/08/22 12:55:10 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -504,7 +504,7 @@ for {set i 290} {$i < 400} {incr i} { } ::tcltest::testConstraint wideIs64bit \ - [expr {(0x80000000 > 0) && (0x8000000000000000 < 0)}] + [expr {(wide(0x80000000) > 0) && (wide(0x8000000000000000) < 0)}] ::tcltest::testConstraint wideBiggerThanInt \ [expr {wide(0x80000000) != int(0x80000000)}] diff --git a/tests/scan.test b/tests/scan.test index 31fb3e4..6dec3ef 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: scan.test,v 1.15.2.3 2005/08/17 04:57:49 dgp Exp $ +# RCS: @(#) $Id: scan.test,v 1.15.2.4 2005/08/22 12:55:10 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -19,7 +19,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } ::tcltest::testConstraint wideIs64bit \ - [expr {(0x80000000 > 0) && (0x8000000000000000 < 0)}] + [expr {(wide(0x80000000) > 0) && (wide(0x8000000000000000) < 0)}] test scan-1.1 {BuildCharSet, CharInSet} { list [scan foo {%[^o]} x] $x |