Tweak to make tests a little clearer.bug_900cb0284bc

1 files changed, 13 insertions, 13 deletions

diff --git a/tests/oo.test b/tests/oo.test
index 290e41d..e03911b 100644
--- a/tests/oo.test
+++ b/tests/oo.test
@@ -2241,43 +2241,43 @@ test oo-17.10 {OO: class introspection} -setup {
     oo::define foo unexport {*}[info class methods foo -all]
     info class methods foo -all
 } -result {}
-
+set stdmethods {<cloned> destroy eval unknown variable varname}
 test oo-17.11 {OO: object method unexport (bug 900cb0284bc)} -setup {
     oo::object create o
     oo::objdefine o unexport m
+} -body {
+    lsort [info object methods o -all -private]
 } -cleanup {
     o destroy
-} -body {
-    expr {"m" in [info object methods o -all -private]}
-} -result 0
+} -result $stdmethods
 test oo-17.12 {OO: instance method unexport (bug 900cb0284bc)} -setup {
     oo::class create c
     c create o
     oo::objdefine o unexport m
+} -body {
+    lsort [info object methods o -all -private]
 } -cleanup {
     o destroy
     c destroy
-} -body {
-    expr {"m" in [info object methods o -all -private]}
-} -result 0
+} -result $stdmethods
 test oo-17.13 {OO: class method unexport (bug 900cb0284bc)} -setup {
     oo::class create c
     oo::define c unexport m
+} -body {
+    lsort [info class methods c -all -private]
 } -cleanup {
     c destroy
-} -body {
-    expr {"m" in [info class methods c -all -private]}
-} -result 0
+} -result $stdmethods
 test oo-17.14 {OO: instance method unexport (bug 900cb0284bc)} -setup {
     oo::class create c
     oo::define c unexport m
     c create o
+} -body {
+    lsort [info object methods o -all -private]
 } -cleanup {
     o destroy
     c destroy
-} -body {
-    expr {"m" in [info object methods o -all -private]}
-} -result 0
+} -result $stdmethods
 
 
 test oo-18.1 {OO: define command support} {