diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-23 08:11:42 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-06-23 08:11:42 (GMT) |
commit | 902b9607982940a968a0b7ee1b23e5de9a5b0fa3 (patch) | |
tree | 953fc45a5d3314b95abbbaa12ed0a5b6b65e852c /tests/util.test | |
parent | ab4e3e7729712e4c16038e99e657401788e364b5 (diff) | |
parent | d63de1ca506474e5d7f80d7351545d75d46f1d25 (diff) | |
download | tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.zip tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.tar.gz tcl-902b9607982940a968a0b7ee1b23e5de9a5b0fa3.tar.bz2 |
TIP #472 implementation: Add Support for 0d Radix Prefix to Integer Literals
Diffstat (limited to 'tests/util.test')
-rw-r--r-- | tests/util.test | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/util.test b/tests/util.test index 22d120b..35fc642 100644 --- a/tests/util.test +++ b/tests/util.test @@ -553,6 +553,12 @@ test util-9.0.6 {TclGetIntForIndex} { test util-9.0.7 {TclGetIntForIndex} { string index abcd { 01 } } b +test util-9.0.8 {TclGetIntForIndex} { + string index abcd { 0d0 } +} a +test util-9.0.9 {TclGetIntForIndex} { + string index abcd { -0d0 } +} a test util-9.1.0 {TclGetIntForIndex} { string index abcd 3 } d @@ -565,6 +571,12 @@ test util-9.1.2 {TclGetIntForIndex} { test util-9.1.3 {TclGetIntForIndex} { string index abcdefghijk { 0xa } } k +test util-9.1.4 {TclGetIntForIndex} { + string index abcdefghijk 0d10 +} k +test util-9.1.5 {TclGetIntForIndex} { + string index abcdefghijk { 0d10 } +} k test util-9.2.0 {TclGetIntForIndex} { string index abcd end } d @@ -672,12 +684,18 @@ test util-9.30 {TclGetIntForIndex} -body { test util-9.31 {TclGetIntForIndex} -body { string index a 0x } -returnCodes error -match glob -result * +test util-9.31.1 {TclGetIntForIndex} -body { + string index a 0d +} -returnCodes error -match glob -result * test util-9.32 {TclGetIntForIndex} -body { string index a 0x1FFFFFFFF+0 } -returnCodes error -match glob -result * test util-9.33 {TclGetIntForIndex} -body { string index a 100000000000+0 } -returnCodes error -match glob -result * +test util-9.33.1 {TclGetIntForIndex} -body { + string index a 0d100000000000+0 +} -returnCodes error -match glob -result * test util-9.34 {TclGetIntForIndex} -body { string index a 1.0 } -returnCodes error -match glob -result * |