summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-06-24 15:29:39 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-06-24 15:29:39 (GMT)
commitd013ac36802f1a94c8629dde40cfae06e492d4ce (patch)
tree72e7f72813a06a37316fe04f27944b5702676b20 /tests
parent113714d1cf9bf670cbb99691146b8c105374678b (diff)
downloadtcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.zip
tcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.tar.gz
tcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.tar.bz2
Fix [Bug 2811598].
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/oo.test b/tests/oo.test
index 7b28f00..829c8ce 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution of
# this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: oo.test,v 1.28 2009/06/24 15:17:40 dgp Exp $
+# RCS: @(#) $Id: oo.test,v 1.29 2009/06/24 15:29:40 dkf Exp $
package require TclOO 0.6.1 ;# Must match value in generic/tclOO.h
if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -1608,6 +1608,7 @@ test oo-19.1 {OO: varname method} -setup {
oo::object create inst
oo::objdefine inst export eval
set result {}
+ inst eval { variable x }
} -body {
inst eval {trace add variable x write foo}
set ns [inst eval namespace current]