diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 08:53:06 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-05-16 08:53:06 (GMT) |
commit | 9b8a77b23318d5a8a3cbcff05f4416c463c44c34 (patch) | |
tree | f2135f1c7944f4127c9ba1508b7ecc0e2678bf86 /tests/oo.test | |
parent | 56f0b415d6c6c1b0b4c3179f9712b84087991da7 (diff) | |
parent | c3accd3a0fa312e985d39de608ebd4af947fbe31 (diff) | |
download | tcl-9b8a77b23318d5a8a3cbcff05f4416c463c44c34.zip tcl-9b8a77b23318d5a8a3cbcff05f4416c463c44c34.tar.gz tcl-9b8a77b23318d5a8a3cbcff05f4416c463c44c34.tar.bz2 |
Fix [36e5517a6850]: old style method selection in [info class methods] and [info object methods] still supported
Diffstat (limited to 'tests/oo.test')
-rw-r--r-- | tests/oo.test | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index cf8b710..aaea4c2 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -2783,6 +2783,30 @@ test oo-17.14 {OO: instance method unexport (bug 900cb0284bc)} -setup { o destroy c destroy } -result $stdmethods +test oo-17.15 {OO: class method list without -all (bug 36e5517a6850)} -setup { + oo::class create c +} -body { + oo::define c { + method foo {} {} + method Bar {} {} + private method gorp {} {} + } + list [lsort [info class methods c]] [lsort [info class methods c -private]] +} -cleanup { + c destroy +} -result {foo {Bar foo}} +test oo-17.16 {OO: instance method list without -all (bug 36e5517a6850)} -setup { + oo::object create o +} -body { + oo::objdefine o { + method foo {} {} + method Bar {} {} + private method gorp {} {} + } + list [lsort [info object methods o]] [lsort [info object methods o -private]] +} -cleanup { + o destroy +} -result {foo {Bar foo}} test oo-18.1 {OO: define command support} { |