diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-26 12:51:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-26 12:51:13 (GMT) |
| commit | 442652aed81de019f7091cbf5482eaced7cae488 (patch) | |
| tree | 176c4ba36b5d1b3d1359f1f7f17eb12d78ebf46f | |
| parent | e8f5c53d7632cc428eb6d8233c8a1c4e85bc05c1 (diff) | |
| parent | 3196ac92d9a088a83d147927a29a55377b5207f1 (diff) | |
| download | tcl-442652aed81de019f7091cbf5482eaced7cae488.zip tcl-442652aed81de019f7091cbf5482eaced7cae488.tar.gz tcl-442652aed81de019f7091cbf5482eaced7cae488.tar.bz2 | |
Merge 9.0
| -rw-r--r-- | .github/dependabot.yml | 6 | ||||
| -rw-r--r-- | tests/get.test | 5 |
2 files changed, 9 insertions, 2 deletions
diff --git a/.github/dependabot.yml b/.github/dependabot.yml new file mode 100644 index 0000000..203f3c8 --- /dev/null +++ b/.github/dependabot.yml @@ -0,0 +1,6 @@ +version: 2 +updates: +- package-ecosystem: "github-actions" + directory: "/" + schedule: + interval: "weekly" diff --git a/tests/get.test b/tests/get.test index dbfa97c..eb26484 100644 --- a/tests/get.test +++ b/tests/get.test @@ -20,6 +20,7 @@ catch [list package require -exact tcl::test [info patchlevel]] testConstraint testgetint [llength [info commands testgetint]] testConstraint testdoubleobj [llength [info commands testdoubleobj]] +testConstraint longIs64bit [expr {$tcl_platform(wordSize) == 8}] test get-1.1 {Tcl_GetInt procedure} testgetint { testgetint 44 { 22} @@ -42,10 +43,10 @@ test get-1.6 {Tcl_GetInt procedure} testgetint { 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 { +test get-1.8 {Tcl_GetInt procedure} {testgetint longIs64bit} { testgetint 18446744073709551614 } {-2} -test get-1.9 {Tcl_GetInt procedure} testgetint { +test get-1.9 {Tcl_GetInt procedure} {testgetint longIs64bit} { testgetint +18446744073709551614 } {-2} test get-1.10 {Tcl_GetInt procedure} testgetint { |