diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2017-03-29 19:05:17 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2017-03-29 19:05:17 (GMT) |
| commit | 41c4744202449c4e812732d5ff09104f866c1409 (patch) | |
| tree | d9caab421f0c54c79ac7ebe566618ad065d9b925 /tests | |
| parent | e18d7f592196530ea7602ea21a0a5341f08f960c (diff) | |
| download | tcl-bug_900cb0284bc.zip tcl-bug_900cb0284bc.tar.gz tcl-bug_900cb0284bc.tar.bz2 | |
Tweak to make tests a little clearer.bug_900cb0284bc
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/oo.test | 26 |
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} { |