summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2017-03-29 19:05:17 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2017-03-29 19:05:17 (GMT)
commit41c4744202449c4e812732d5ff09104f866c1409 (patch)
treed9caab421f0c54c79ac7ebe566618ad065d9b925 /tests
parente18d7f592196530ea7602ea21a0a5341f08f960c (diff)
downloadtcl-41c4744202449c4e812732d5ff09104f866c1409.zip
tcl-41c4744202449c4e812732d5ff09104f866c1409.tar.gz
tcl-41c4744202449c4e812732d5ff09104f866c1409.tar.bz2
Tweak to make tests a little clearer.bug_900cb0284bc
Diffstat (limited to 'tests')
-rw-r--r--tests/oo.test26
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} {