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