diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-06-24 15:29:39 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-06-24 15:29:39 (GMT) |
| commit | d013ac36802f1a94c8629dde40cfae06e492d4ce (patch) | |
| tree | 72e7f72813a06a37316fe04f27944b5702676b20 /tests/oo.test | |
| parent | 113714d1cf9bf670cbb99691146b8c105374678b (diff) | |
| download | tcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.zip tcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.tar.gz tcl-d013ac36802f1a94c8629dde40cfae06e492d4ce.tar.bz2 | |
Fix [Bug 2811598].
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 3 |
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] |