Index: TODO =================================================================== diff -u -r02ec0d2caa6701949f29171520a462564299a611 -rdb0c88f1e6924f14fe33f52ddf935343c8a11d12 --- TODO (.../TODO) (revision 02ec0d2caa6701949f29171520a462564299a611) +++ TODO (.../TODO) (revision db0c88f1e6924f14fe33f52ddf935343c8a11d12) @@ -1165,6 +1165,8 @@ - unified slot parent-object creation handling - changed XOTcl info to new interface +- reanimated 5 tests in xotcl/tests/testx.xotcl + TODO: - check "my" vs. "nsf::dispatch" in xotcl2.tcl - overthink decision about not showing "child objects" per default in "info methods" @@ -1180,10 +1182,7 @@ * handle absence of -create flag in resolve_method_path (for introspection) * consider alternate method name/place for subcmds on classes * provide new tests for "TODO: changed xxxx" - * testx.xotcl - # TODO REANIMATE xxxx - #::errorCheck $::r "loggingFilter-open open x" {info guarded scope} - # (inst)mixinguard, (inst)filterguard + - aliases on procs are a problem, when upvar is used (see info default/instdefault in xotcl2.tcl) - add incompatiblity to migration guide Index: library/xotcl/tests/testx.xotcl =================================================================== diff -u -r02ec0d2caa6701949f29171520a462564299a611 -rdb0c88f1e6924f14fe33f52ddf935343c8a11d12 --- library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision 02ec0d2caa6701949f29171520a462564299a611) +++ library/xotcl/tests/testx.xotcl (.../testx.xotcl) (revision db0c88f1e6924f14fe33f52ddf935343c8a11d12) @@ -836,8 +836,7 @@ r open r x - # TODO REANIMATE xxxx - #::errorCheck $::r "loggingFilter-open open x" {info guarded scope} + ::errorCheck $::r "loggingFilter-open open x" {info guarded scope} } } @@ -959,8 +958,7 @@ lappend info [a info mixinguard Fly] lappend ::r [a info mixin -order -guards] - # TODO REANIMATE xxxx - #::errorCheck [set ::r] [list \ + ::errorCheck [set ::r] [list \ {::a ::Animal (20 years): yippee, fly like an eagle!} \ {{::Fly -guard {[my age] > 3}}} {{::Fly -guard {[my age] > 3}}} \ {::a ::Animal (2 years): how should i fly?} \ @@ -992,8 +990,7 @@ lappend ::r [A info instmixin -guards] lappend ::r [a info mixin -order -guards] - # TODO REANIMATE xxxx - #::errorCheck [set ::r] [list \ + ::errorCheck [set ::r] [list \ {::a ::A (20 years): yippee, fly like an eagle!} \ {{::Fly -guard {[my age] > 3}}} {{::Fly -guard {[my age] > 3}}} \ {::a ::A (2 years): how should i fly?} \ @@ -1003,8 +1000,7 @@ ::Fly ::Fly] \ {instmixinguard method} - # TODO REANIMATE xxxx - #::errorCheck [set info] [list {[my age] > 4} {} {[my age] > 3} \ + ::errorCheck [set info] [list {[my age] > 4} {} {[my age] > 3} \ {[my age] > 4} {} ] {info (inst)mixinguard} Class create C