diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-16 18:03:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-16 18:03:27 (GMT) |
| commit | 57102e40e92f6bcde3433f2971c5f9c891cbaec5 (patch) | |
| tree | 82077ab0edca5c3b59bda159360658698f92615f /tests/string.test | |
| parent | afc4e512cb5887c4ba160007e09e4a1ed9d8b438 (diff) | |
| download | tcl-57102e40e92f6bcde3433f2971c5f9c891cbaec5.zip tcl-57102e40e92f6bcde3433f2971c5f9c891cbaec5.tar.gz tcl-57102e40e92f6bcde3433f2971c5f9c891cbaec5.tar.bz2 | |
Experiment, resolving platform differences at script level. Don't look ...
Diffstat (limited to 'tests/string.test')
| -rw-r--r-- | tests/string.test | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/string.test b/tests/string.test index d169193..81588ff 100644 --- a/tests/string.test +++ b/tests/string.test @@ -807,20 +807,20 @@ test string-6.91.$noComp {string is double, bad doubles} { } return $result } {1 1 0 0 0 1 0 0} -test string-6.92.$noComp {string is integer, 32-bit overflow} { +test string-6.92.$noComp {string is integer, 64-bit overflow} { # Bug 718878 - set x 0x100000000 + set x 0x10000000000000000 list [run {string is integer -failindex var $x}] $var } {0 -1} -test string-6.93.$noComp {string is integer, 32-bit overflow} { +test string-6.93.$noComp {string is integer, 64-bit overflow} { # Bug 718878 - set x 0x100000000 + set x 0x10000000000000000 append x "" list [run {string is integer -failindex var $x}] $var } {0 -1} -test string-6.94.$noComp {string is integer, 32-bit overflow} { +test string-6.94.$noComp {string is integer, 64-bit overflow} { # Bug 718878 - set x 0x100000000 + set x 0x10000000000000000 list [run {string is integer -failindex var [expr {$x}]}] $var } {0 -1} test string-6.95.$noComp {string is wideinteger, true} { |