diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 11:01:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 11:01:36 (GMT) |
| commit | 8a2ca9c901a91fd78c60c5fa98d511f731bf2661 (patch) | |
| tree | cb326eaa463393f79264937fa34b61291cda72aa /tests/get.test | |
| parent | 8157c0cc812e69bb1f6f5dd17755a73f39a3c6ef (diff) | |
| parent | 826ce3195483df827a7e42581a2e7d56baedc042 (diff) | |
| download | tcl-8a2ca9c901a91fd78c60c5fa98d511f731bf2661.zip tcl-8a2ca9c901a91fd78c60c5fa98d511f731bf2661.tar.gz tcl-8a2ca9c901a91fd78c60c5fa98d511f731bf2661.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/get.test')
| -rw-r--r-- | tests/get.test | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/tests/get.test b/tests/get.test index 936bdda..dbfa97c 100644 --- a/tests/get.test +++ b/tests/get.test @@ -20,8 +20,6 @@ catch [list package require -exact tcl::test [info patchlevel]] testConstraint testgetint [llength [info commands testgetint]] testConstraint testdoubleobj [llength [info commands testdoubleobj]] -testConstraint longIs32bit [expr {$tcl_platform(wordSize) == 4}] -testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] test get-1.1 {Tcl_GetInt procedure} testgetint { testgetint 44 { 22} @@ -41,28 +39,28 @@ test get-1.5 {Tcl_GetInt procedure} testgetint { test get-1.6 {Tcl_GetInt procedure} testgetint { list [catch {testgetint 44 {16 x}} msg] $msg } {1 {expected integer but got "16 x"}} -test get-1.7 {Tcl_GetInt procedure} {testgetint longIs64bit} { +test get-1.7 {Tcl_GetInt procedure} testgetint { 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} { +test get-1.8 {Tcl_GetInt procedure} testgetint { testgetint 18446744073709551614 } {-2} -test get-1.9 {Tcl_GetInt procedure} {testgetint longIs64bit} { +test get-1.9 {Tcl_GetInt procedure} testgetint { testgetint +18446744073709551614 } {-2} -test get-1.10 {Tcl_GetInt procedure} {testgetint longIs64bit} { +test get-1.10 {Tcl_GetInt procedure} testgetint { 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} { +test get-1.11 {Tcl_GetInt procedure} testgetint { list [catch {testgetint 44 4294967296} msg] $msg $errorCode } {1 {integer value too large to represent} {ARITH IOVERFLOW {integer value too large to represent}}} -test get-1.12 {Tcl_GetInt procedure} {testgetint longIs32bit} { +test get-1.12 {Tcl_GetInt procedure} testgetint { list [catch {testgetint 4294967294} msg] $msg } {0 -2} -test get-1.13 {Tcl_GetInt procedure} {testgetint longIs32bit} { +test get-1.13 {Tcl_GetInt procedure} testgetint { list [catch {testgetint +4294967294} msg] $msg } {0 -2} -test get-1.14 {Tcl_GetInt procedure} {testgetint longIs32bit} { +test get-1.14 {Tcl_GetInt procedure} testgetint { list [catch {testgetint -4294967294} msg] $msg } {1 {integer value too large to represent}} |