diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-05 00:35:57 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2011-03-05 00:35:57 (GMT) |
| commit | 6f1fd26e91b778b8d1e972e425c2e2593a41f92d (patch) | |
| tree | dc5e2c9a6260b924b0812e00d961eb79fe9fe786 /tests | |
| parent | 17bf2e2c7ac19e4a2d576a88d3bec1413a02be74 (diff) | |
| parent | 80a9e493176e81c6becbb1715367300d20208449 (diff) | |
| download | tcl-6f1fd26e91b778b8d1e972e425c2e2593a41f92d.zip tcl-6f1fd26e91b778b8d1e972e425c2e2593a41f92d.tar.gz tcl-6f1fd26e91b778b8d1e972e425c2e2593a41f92d.tar.bz2 | |
[Bug 3185009]: Keep references to resolved object variables so that an unset doesn't leave any dangling pointers for code to trip over.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/oo.test | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index 395e345..60d0077 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -2578,6 +2578,22 @@ test oo-27.12 {variables declaration: leak per instance} -setup { } -cleanup { foo destroy } -result 0 +# This test will actually (normally) crash if it fails! +test oo-27.13 {variables declaration: Bug 3185009: require refcount management} -setup { + oo::object create foo +} -body { + oo::objdefine foo { + variable x + method set v {set x $v} + method unset {} {unset x} + method exists {} {info exists x} + method get {} {return $x} + } + list [foo exists] [foo set 7] [foo exists] [foo get] [foo unset] \ + [foo exists] [catch {foo get} msg] $msg +} -cleanup { + foo destroy +} -result {0 7 1 7 {} 0 1 {can't read "x": no such variable}} # A feature that's not supported because the mechanism may change without # warning, but is supposed to work... |