diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-08-02 14:58:58 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-08-02 14:58:58 (GMT) |
| commit | 6af366a7dcf18d187e53d5e58264b34675b31d22 (patch) | |
| tree | 04b0c42f187d3fffea23c74b7b1fbc69617420d1 /tests/oo.test | |
| parent | 2145004977c06c1989ad5ad0ee2d800da3353001 (diff) | |
| download | tcl-6af366a7dcf18d187e53d5e58264b34675b31d22.zip tcl-6af366a7dcf18d187e53d5e58264b34675b31d22.tar.gz tcl-6af366a7dcf18d187e53d5e58264b34675b31d22.tar.bz2 | |
[9d61624b3d]: Stop crashes when emptying the superclass slot.
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index 49fe150..6f16a8d 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -3374,6 +3374,23 @@ test oo-34.8 {TIP 380: slots - presence} { test oo-34.9 {TIP 380: slots - presence} { getMethods oo::objdefine::variable } {{-append -clear -set} {Get Set}} + +test oo-35.1 {Bug 9d61624b3d: Empty superclass must not cause crash} -setup { + oo::class create fruit { + method eat {} {} + } + set result {} +} -body { + lappend result [fruit create ::apple] [info class superclasses fruit] + oo::define fruit superclass + lappend result [info class superclasses fruit] \ + [info object class apple oo::object] \ + [info class call fruit destroy] \ + [catch { apple }] +} -cleanup { + unset -nocomplain result + fruit destroy +} -result {::apple ::oo::object ::oo::object 1 {{method destroy ::oo::object {core method: "destroy"}}} 1} cleanupTests return |