diff options
Diffstat (limited to 'tests/get.test')
-rw-r--r-- | tests/get.test | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/tests/get.test b/tests/get.test index 5155b95..8ba8be0 100644 --- a/tests/get.test +++ b/tests/get.test @@ -9,7 +9,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# SCCS: @(#) get.test 1.7 97/10/31 17:23:00 +# SCCS: @(#) get.test 1.9 97/12/19 11:57:36 if {[string compare test [info procs test]] == 1} then {source defs} @@ -39,39 +39,39 @@ test get-1.6 {Tcl_GetInt procedure} { } {1 {expected integer but got "16 x"}} # The following tests are non-portable because they depend on -# word size. 18446744073709551614 +# word size. if {0x80000000 > 0} { - test get-1.7 {Tcl_GetInt procedure} {nonPortable unixOnly} { + test get-1.7 {Tcl_GetInt procedure} { set x 44 list [catch {incr x 18446744073709551616} msg] $msg $errorCode } {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} - test get-1.8 {Tcl_GetInt procedure} {nonPortable} { + test get-1.8 {Tcl_GetInt procedure} { set x 0 list [catch {incr x 18446744073709551614} msg] $msg } {0 -2} - test get-1.9 {Tcl_GetInt procedure} {nonPortable} { + test get-1.9 {Tcl_GetInt procedure} { set x 0 list [catch {incr x +18446744073709551614} msg] $msg } {0 -2} - test get-1.10 {Tcl_GetInt procedure} {nonPortable} { + test get-1.10 {Tcl_GetInt procedure} { set x 0 list [catch {incr x -18446744073709551614} msg] $msg } {0 2} } else { - test get-1.7 {Tcl_GetInt procedure} {nonPortable unixOnly} { + test get-1.7 {Tcl_GetInt procedure} { set x 44 list [catch {incr x 4294967296} msg] $msg $errorCode } {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} - test get-1.8 {Tcl_GetInt procedure} {nonPortable} { + test get-1.8 {Tcl_GetInt procedure} { set x 0 list [catch {incr x 4294967294} msg] $msg } {0 -2} - test get-1.9 {Tcl_GetInt procedure} {nonPortable} { + test get-1.9 {Tcl_GetInt procedure} { set x 0 list [catch {incr x +4294967294} msg] $msg } {0 -2} - test get-1.10 {Tcl_GetInt procedure} {nonPortable} { + test get-1.10 {Tcl_GetInt procedure} { set x 0 list [catch {incr x -4294967294} msg] $msg } {0 2} @@ -89,3 +89,5 @@ test get-2.3 {Tcl_GetInt procedure} { test get-2.4 {Tcl_GetInt procedure} {nonPortable} { list [catch {format %g .000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001} msg] $msg $errorCode } {1 {floating-point value too small to represent} {ARITH UNDERFLOW {floating-point value too small to represent}}} + +return |