diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-19 09:13:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-19 09:13:16 (GMT) |
commit | b3fc99501ec94bdc4c05736825c08a050cf8046d (patch) | |
tree | 3f77cb3d00ba25edae58eb0148fd13cf3f25b504 /tests/get.test | |
parent | c475df7cfbfab932ff2a21678fa244094c7c49ee (diff) | |
download | tcl-b3fc99501ec94bdc4c05736825c08a050cf8046d.zip tcl-b3fc99501ec94bdc4c05736825c08a050cf8046d.tar.gz tcl-b3fc99501ec94bdc4c05736825c08a050cf8046d.tar.bz2 |
Still WIP. All test-cases pass now in 32-bit
Diffstat (limited to 'tests/get.test')
-rw-r--r-- | tests/get.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/get.test b/tests/get.test index d6a7206..b02b686 100644 --- a/tests/get.test +++ b/tests/get.test @@ -45,14 +45,14 @@ test get-1.7 {Tcl_GetInt procedure} {testgetint longIs64bit} { list [catch {testgetint 44 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} {testgetint longIs64bit} { - list [catch {testgetint 18446744073709551614} msg] $msg -} {0 -2} + list [catch {testgetint 18446744073709551614} msg] $msg $errorCode +} {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} test get-1.9 {Tcl_GetInt procedure} {testgetint longIs64bit} { - list [catch {testgetint +18446744073709551614} msg] $msg -} {0 -2} + list [catch {testgetint +18446744073709551614} msg] $msg $errorCode +} {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} test get-1.10 {Tcl_GetInt procedure} {testgetint longIs64bit} { - list [catch {testgetint -18446744073709551614} msg] $msg -} {0 2} + list [catch {testgetint -18446744073709551614} msg] $msg $errorCode +} {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} test get-1.11 {Tcl_GetInt procedure} {testgetint longIs32bit} { list [catch {testgetint 44 4294967296} msg] $msg $errorCode } {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} |