Index: tests/interp.test =================================================================== diff -u -re516122728ddcd7c6d92e43de9cfe497b305bee5 -r8da343e4eb0b6166a184a0ab8eb7189d97eaff6f --- tests/interp.test (.../interp.test) (revision e516122728ddcd7c6d92e43de9cfe497b305bee5) +++ tests/interp.test (.../interp.test) (revision 8da343e4eb0b6166a184a0ab8eb7189d97eaff6f) @@ -117,9 +117,7 @@ ? {interp eval $i {c bar}} OK # dispatch to mixed-in methods (which do basic introspection on the hidden object) ... - if {$::tcl_version < 8.6} { - ? {interp invokehidden $i C foo} ::C-::nx::Class-::M - } + ? {interp invokehidden $i C foo} ::C-::nx::Class-::M ? {interp eval $i {c foo}} ::c-::C-::M # @@ -188,11 +186,9 @@ ? {$i eval {nx::Object info instances ::o2}} ::o2 ? {$i eval {nsf::object::exists ::o2}} 0 - if {$::tcl_version < 8.6} { - ? {interp invokehidden $i o2 destroy} "ok" - ? {$i eval {interp hidden}} "" - ? {$i eval {nx::Object info instances ::o2}} "" - } + ? {interp invokehidden $i o2 destroy} "ok" + ? {$i eval {interp hidden}} "" + ? {$i eval {nx::Object info instances ::o2}} "" ? {$i eval {info commands ::o2}} "" ? {$i eval {nsf::object::exists ::o2}} 0 @@ -281,10 +277,8 @@ ? {interp eval $i {nx::Object info instances ::o}} ::o ? {interp eval $i {nsf::object::exists ::o}} 0 - if {$::tcl_version < 8.6} { - ? {interp invokehidden $i O foo} \ - {::o {} ::nx::Object {invalid command name "::o"}} - } + ? {interp invokehidden $i O foo} \ + {::o {} ::nx::Object {invalid command name "::o"}} interp expose $i O OO @@ -414,9 +408,7 @@ ? {interp eval $i {::rename ::o ""}} \ {can't delete "::o": command doesn't exist} - if {$::tcl_version < 8.6} { - ? {interp invokehidden $i o destroy} "BAFF!" - } + ? {interp invokehidden $i o destroy} "BAFF!" ? {interp eval $i {interp hidden}} "o" ? {interp eval $i {info commands ::o}} "" @@ -497,12 +489,10 @@ ? {interp eval $i {::o destroy}} {invalid command name "::o"} - if {$::tcl_version < 8.6} { - ? {interp invokehidden $i o destroy} \ - {can't delete "::o": command doesn't exist} - ? {interp eval $i {interp hidden}} "" - ? {interp eval $i {nx::Object info instances ::o}} "" - } + ? {interp invokehidden $i o destroy} \ + {can't delete "::o": command doesn't exist} + ? {interp eval $i {interp hidden}} "" + ? {interp eval $i {nx::Object info instances ::o}} "" ? {interp eval $i {info commands ::o}} "" ? {interp eval $i {nsf::object::exists ::o}} 0