Correct this use of isWanted to ensure NO_IMPLEMENTATION methods are not listed (bug [900cb0284bc])

1 files changed, 38 insertions, 0 deletions

diff --git a/tests/oo.test b/tests/oo.test
index ccb05c1..290e41d 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -2242,6 +2242,44 @@ test oo-17.10 {OO: class introspection} -setup {
     info class methods foo -all
 } -result {}
 
+test oo-17.11 {OO: object method unexport (bug 900cb0284bc)} -setup {
+    oo::object create o
+    oo::objdefine o unexport m
+} -cleanup {
+    o destroy
+} -body {
+    expr {"m" in [info object methods o -all -private]}
+} -result 0
+test oo-17.12 {OO: instance method unexport (bug 900cb0284bc)} -setup {
+    oo::class create c
+    c create o
+    oo::objdefine o unexport m
+} -cleanup {
+    o destroy
+    c destroy
+} -body {
+    expr {"m" in [info object methods o -all -private]}
+} -result 0
+test oo-17.13 {OO: class method unexport (bug 900cb0284bc)} -setup {
+    oo::class create c
+    oo::define c unexport m
+} -cleanup {
+    c destroy
+} -body {
+    expr {"m" in [info class methods c -all -private]}
+} -result 0
+test oo-17.14 {OO: instance method unexport (bug 900cb0284bc)} -setup {
+    oo::class create c
+    oo::define c unexport m
+    c create o
+} -cleanup {
+    o destroy
+    c destroy
+} -body {
+    expr {"m" in [info object methods o -all -private]}
+} -result 0
+
+
 test oo-18.1 {OO: define command support} {
     list [catch {oo::define oo::object {error foo}} msg] $msg $errorInfo
 } {1 foo {foo