diff options
author | dgp <dgp@users.sourceforge.net> | 2018-10-23 23:42:08 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-10-23 23:42:08 (GMT) |
commit | f6111b5415da13ee66e0bd8fb0eb4c8599091eca (patch) | |
tree | d645c6f845b1bf5981e3c2b1e38783a33a6e249d /tests/util.test | |
parent | 6d8d5c87563abb4900234f0dd2990b6b81c147b6 (diff) | |
parent | 335774aef1d1e39ff22a1024aaa062106f99390b (diff) | |
download | tcl-f6111b5415da13ee66e0bd8fb0eb4c8599091eca.zip tcl-f6111b5415da13ee66e0bd8fb0eb4c8599091eca.tar.gz tcl-f6111b5415da13ee66e0bd8fb0eb4c8599091eca.tar.bz2 |
merge 8.7
Diffstat (limited to 'tests/util.test')
-rw-r--r-- | tests/util.test | 45 |
1 files changed, 41 insertions, 4 deletions
diff --git a/tests/util.test b/tests/util.test index 651ec0d..8f455fd 100644 --- a/tests/util.test +++ b/tests/util.test @@ -510,14 +510,14 @@ test util-9.2.1 {TclGetIntForIndex} -body { test util-9.2.2 {TclGetIntForIndex} -body { string index abcd {end } } -returnCodes error -match glob -result * -test util-9.3 {TclGetIntForIndex} { +test util-9.3 {TclGetIntForIndex} -body { # Deprecated string index abcd en -} d -test util-9.4 {TclGetIntForIndex} { +} -returnCodes error -match glob -result * +test util-9.4 {TclGetIntForIndex} -body { # Deprecated string index abcd e -} d +} -returnCodes error -match glob -result * test util-9.5.0 {TclGetIntForIndex} { string index abcd end-1 } c @@ -659,6 +659,43 @@ test util-9.45 {TclGetIntForIndex} { test util-9.46 {TclGetIntForIndex} { string index abcd end+4294967294 } {} +# TIP 502 +test util-9.47 {TclGetIntForIndex} { + string index abcd 0x10000000000000000 +} {} +test util-9.48 {TclGetIntForIndex} { + string index abcd -0x10000000000000000 +} {} +test util-9.49 {TclGetIntForIndex} -body { + string index abcd end*1 +} -returnCodes error -match glob -result * +test util-9.50 {TclGetIntForIndex} -body { + string index abcd {end- 1} +} -returnCodes error -match glob -result * +test util-9.51 {TclGetIntForIndex} -body { + string index abcd end-end +} -returnCodes error -match glob -result * +test util-9.52 {TclGetIntForIndex} -body { + string index abcd end-x +} -returnCodes error -match glob -result * +test util-9.53 {TclGetIntForIndex} -body { + string index abcd end-0.1 +} -returnCodes error -match glob -result * +test util-9.54 {TclGetIntForIndex} { + string index abcd end-0x10000000000000000 +} {} +test util-9.55 {TclGetIntForIndex} { + string index abcd end+0x10000000000000000 +} {} +test util-9.56 {TclGetIntForIndex} { + string index abcd end--0x10000000000000000 +} {} +test util-9.57 {TclGetIntForIndex} { + string index abcd end+-0x10000000000000000 +} {} +test util-9.58 {TclGetIntForIndex} { + string index abcd end--0x8000000000000000 +} {} test util-10.1 {Tcl_PrintDouble - rounding} {ieeeFloatingPoint} { convertDouble 0x0000000000000000 |