diff options
| author | griffin <brian_griffin@mentor.com> | 2017-05-27 22:17:21 (GMT) |
|---|---|---|
| committer | griffin <brian_griffin@mentor.com> | 2017-05-27 22:17:21 (GMT) |
| commit | 7aab6826d8c0c63f62a1d8a8c42d514d5559e420 (patch) | |
| tree | 5d2ff7f366eb483fd5c185c41bc9c45f070cbff1 /tests/util.test | |
| parent | 4f1a584c9cab2b4579a23077b1f9fda6834ab54c (diff) | |
| download | tcl-7aab6826d8c0c63f62a1d8a8c42d514d5559e420.zip tcl-7aab6826d8c0c63f62a1d8a8c42d514d5559e420.tar.gz tcl-7aab6826d8c0c63f62a1d8a8c42d514d5559e420.tar.bz2 | |
Implement proposed 0d decimal radix prefix to compliment 0x,0b,0o.
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 * |