summaryrefslogtreecommitdiffstats
path: root/tests/incr.test
diff options
context:
space:
mode:
authoravl <avl>2017-03-05 15:05:48 (GMT)
committeravl <avl>2017-03-05 15:05:48 (GMT)
commit08192ab42f794f6a486fdc21a537cce794f04472 (patch)
tree28a3c3a3d6d64830f1df23611f7ead6521f8f9a0 /tests/incr.test
parent838c36a45d377ef799dd45158832040a6a528d91 (diff)
downloadtcl-08192ab42f794f6a486fdc21a537cce794f04472.zip
tcl-08192ab42f794f6a486fdc21a537cce794f04472.tar.gz
tcl-08192ab42f794f6a486fdc21a537cce794f04472.tar.bz2
Fix for Ticket [71c0878b71] + test cases
Diffstat (limited to 'tests/incr.test')
-rw-r--r--tests/incr.test12
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/incr.test b/tests/incr.test
index 9243be0..aa2872a 100644
--- a/tests/incr.test
+++ b/tests/incr.test
@@ -494,6 +494,18 @@ test incr-2.31 {incr command (compiled): bad increment} {
(reading increment)
invoked from within
"incr x 1a"}}
+test incr-2.32 {incr command (compiled): bad pure list increment} {
+ list [catch {incr x [list 1 2]} msg] $msg $::errorInfo
+} {1 {expected integer but got "1 2"} {expected integer but got "1 2"
+ (reading increment)
+ invoked from within
+"incr x [list 1 2]"}}
+test incr-2.33 {incr command (compiled): bad pure dict increment} {
+ list [catch {incr x [dict create 1 2]} msg] $msg $::errorInfo
+} {1 {expected integer but got "1 2"} {expected integer but got "1 2"
+ (reading increment)
+ invoked from within
+"incr x [dict create 1 2]"}}
test incr-3.1 {increment by wide amount: bytecode route} {
set x 0