We're able to run quite a few more tests now with some judicious skips of certain tests. We're still not running tcltest.tcl natively (though we're getting close!); So, this is with our Test::More like 'test' proc, which doesn't parse all the variants of tcl's test proc. (We've recently modified it to run tests with simple constraint specs: we run it regardless of whether the constraint would have said don't bother.)
446 subtests skipped.
Failed 41/65 test scripts, 33.85% okay. 4131/7608 subtests failed, 45.70% okay.
That's 3031 tests passing, out of 20683 in a recent cvs checkout of tcl's test suite. That's 14.65%