diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-11-14 17:41:51 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-11-14 17:41:51 (GMT) |
| commit | 05b4cb2080209949f44fdf00e08a044584bffe73 (patch) | |
| tree | 5c2e7dd4237e5730ac19e0913a0658094a3176f3 /tests/oo.test | |
| parent | b098fb32795b2f8e09c277d0d306986a6f5a9c7e (diff) | |
| download | tcl-05b4cb2080209949f44fdf00e08a044584bffe73.zip tcl-05b4cb2080209949f44fdf00e08a044584bffe73.tar.gz tcl-05b4cb2080209949f44fdf00e08a044584bffe73.tar.bz2 | |
make oo-7.10 test more readable
Diffstat (limited to 'tests/oo.test')
| -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 55018e9..77fca68 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -1368,11 +1368,11 @@ test oo-7.10 {OO: next after object deletion, bug [135804138e]} -setup { lappend ::result /c2::destructor } method m1 {} { - lappend ::result delete + lappend ::result c2::m1 rename [self] {} lappend ::result no-self next - lappend ::result unreachable + lappend ::result /c2::m1 } } } -body { @@ -1381,7 +1381,7 @@ test oo-7.10 {OO: next after object deletion, bug [135804138e]} -setup { } -cleanup { c1 destroy unset ::result -} -result {delete c2::destructor delete no-self c1::m1 unreachable /c2::destructor no-self 1 {no next method implementation}} +} -result {c2::m1 c2::destructor c2::m1 no-self c1::m1 /c2::m1 /c2::destructor no-self 1 {no next method implementation}} test oo-8.1 {OO: global must work in methods} { oo::object create foo |