summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2006-03-08 16:07:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2006-03-08 16:07:42 (GMT)
commit9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce (patch)
treea3b89f3d8743fcc549b1179e0277156166206aff /tests
parent989e6a53bd54006ab5d9e15bb79f67fa2e7ece22 (diff)
downloadtcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.zip
tcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.tar.gz
tcl-9dcbe336bddd91bb7fab7be8e33ce7fed7f229ce.tar.bz2
* generic/tclExecute.c: Complete missing bit of TIP 215 implementation
* tests/incr.test:
Diffstat (limited to 'tests')
-rw-r--r--tests/incr.test9
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/incr.test b/tests/incr.test
index 3bd1541..9ac1443 100644
--- a/tests/incr.test
+++ b/tests/incr.test
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: incr.test,v 1.12 2006/02/09 17:34:42 dgp Exp $
+# RCS: @(#) $Id: incr.test,v 1.13 2006/03/08 16:07:43 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -514,6 +514,13 @@ test incr-3.2 {increment by wide amount: command route} {
$z x 123123123123
} 123123123123
+test incr-4.1 {increment non-existing array element [Bug 1445454]} -body {
+ proc x {} {incr a(1)}
+ x
+} -cleanup {
+ rename x {}
+} -result 1
+
# cleanup
::tcltest::cleanupTests
return