diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2020-02-15 10:28:01 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2020-02-15 10:28:01 (GMT) |
| commit | 99145db40b9162cb8ac82c74d08da7f8f74eb911 (patch) | |
| tree | 4402eb6b8762fd76075fd91d619e27b24312a4d7 /tests/oo.test | |
| parent | 2569d6f81cf6a17e438f80cce3fcdfa444736430 (diff) | |
| download | tcl-99145db40b9162cb8ac82c74d08da7f8f74eb911.zip tcl-99145db40b9162cb8ac82c74d08da7f8f74eb911.tar.gz tcl-99145db40b9162cb8ac82c74d08da7f8f74eb911.tar.bz2 | |
There are subtle cases where an append-if-new operation is really useful for a slot.
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/oo.test b/tests/oo.test index c1907d5..0fa2559 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -4163,7 +4163,7 @@ test oo-33.4 {TIP 380: slots - errors} -setup [SampleSlotSetup { } -returnCodes error -cleanup [SampleSlotCleanup { rename $s {} }] -result \ - {unknown method "-grill": must be -append, -clear, -prepend, -remove, -set, contents or ops} + {unknown method "-grill": must be -append, -appendifnew, -clear, -prepend, -remove, -set, contents or ops} test oo-34.1 {TIP 380: slots - presence} -setup { set obj [oo::object new] @@ -4193,25 +4193,25 @@ proc getMethods obj { } test oo-34.3 {TIP 380: slots - presence} { getMethods oo::define::filter -} {{-append -clear -prepend -remove -set} {Get Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {Get Set}} test oo-34.4 {TIP 380: slots - presence} { getMethods oo::define::mixin -} {{-append -clear -prepend -remove -set} {--default-operation Get Resolve Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {--default-operation Get Resolve Set}} test oo-34.5 {TIP 380: slots - presence} { getMethods oo::define::superclass -} {{-append -clear -prepend -remove -set} {--default-operation Get Resolve Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {--default-operation Get Resolve Set}} test oo-34.6 {TIP 380: slots - presence} { getMethods oo::define::variable -} {{-append -clear -prepend -remove -set} {Get Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {Get Set}} test oo-34.7 {TIP 380: slots - presence} { getMethods oo::objdefine::filter -} {{-append -clear -prepend -remove -set} {Get Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {Get Set}} test oo-34.8 {TIP 380: slots - presence} { getMethods oo::objdefine::mixin -} {{-append -clear -prepend -remove -set} {--default-operation Get Resolve Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {--default-operation Get Resolve Set}} test oo-34.9 {TIP 380: slots - presence} { getMethods oo::objdefine::variable -} {{-append -clear -prepend -remove -set} {Get Set}} +} {{-append -appendifnew -clear -prepend -remove -set} {Get Set}} test oo-34.10 {TIP 516: slots - resolution} -setup { oo::class create parent set result {} |