diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-14 13:00:28 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-14 13:00:28 (GMT) |
| commit | 7d25e385a2b2816630b16fdfe293c0fddd5e33fe (patch) | |
| tree | 4a2242cb0b3c3740d8e74518de5b35f2d5bd81c0 | |
| parent | c6eb0cc51d7c4feece753d3536454bf43d7785a3 (diff) | |
| download | tcl-7d25e385a2b2816630b16fdfe293c0fddd5e33fe.zip tcl-7d25e385a2b2816630b16fdfe293c0fddd5e33fe.tar.gz tcl-7d25e385a2b2816630b16fdfe293c0fddd5e33fe.tar.bz2 | |
Modify test oo-11.6 to not use [self], which is not avaiable until 8.7.
| -rw-r--r-- | tests/oo.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/oo.test b/tests/oo.test index 0ae46f8..3829763 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -1500,10 +1500,10 @@ test oo-11.6 { instances } { oo::class create obj1 - ::oo::define obj1 {self mixin [self]} + ::oo::define obj1 {self mixin [uplevel 1 {namespace which obj1}]} ::oo::copy obj1 obj2 - ::oo::objdefine obj2 {mixin [self]} + ::oo::objdefine obj2 {mixin [uplevel 1 {namespace which obj2}]} ::oo::copy obj2 obj3 trace add command obj3 delete [list obj3 dying] @@ -3868,5 +3868,5 @@ cleanupTests return # Local Variables: -# mode: tcl +# MODE: Tcl # End: |