I have itcl-3.4b1 installed, and tcl-8.5.8, I'm running the regression test on OpenBSD 4.7 i386 and on sparc64, both with the same result:
===> Regression check for itcl-3.4b1
Tests running in interp: /usr/local/bin/tclsh8.5
Tests located in: /home/ports/pobj/itcl-3.4b1/itcl3.4/tests
Tests running in: /home/ports/pobj/itcl-3.4b1/itcl3.4
Temporary files stored in /home/ports/pobj/itcl-3.4b1/itcl3.4
Test files run in separate interpreters
Running tests that match: *
Skipping test files that match: l.*.test
Only running test files that match: *.test
Tests began at Sun Jun 06 13:25:17 CEST 2010
basic.test
body.test
chain.test
delete.test
ensemble.test
==== ensemble-1.11 part argument errors are handled gracefully FAILED
==== Contents of test case:
list [catch "itcl::ensemble test_numbers {part foo {{}} {}}" msg] $msg $errorInfo
---- Result was:
1 {argument with no name} {argument with no name
while executing
"part foo {{}} {}"
("ensemble" body line 1)
invoked from within
"itcl::ensemble test_numbers {part foo {{}} {}}"}
---- Result should have been (exact matching):
1 {procedure "foo" has argument with no name} {procedure "foo" has argument with no name
while executing
"part foo {{}} {}"
("ensemble" body line 1)
invoked from within
"itcl::ensemble test_numbers {part foo {{}} {}}"}
==== ensemble-1.11 FAILED
import.test
info.test
inherit.test
interp.test
local.test
methods.test
mkindex.test
namespace.test
protection.test
scope.test
Tests ended at Sun Jun 06 13:25:24 CEST 2010
all.tcl: Total 400 Passed 399 Skipped 0 Failed 1
Sourced 15 Test Files.
Files with failing tests: ensemble.test
The regression test works when running against tcl-8.4.19.
As much as I'd like to work on Tcl, I don't have the time these days anymore.