#59 tclx tryeval.test test cases fail

[Larry W. Virden]

platform: sparc solaris 8, sun c compiler
tcl: 8.5.4 release

When I run the tclx test suite, I see these errors:
tryeval.test

==== try_eval-3.1 try_eval error result FAILED
==== Contents of test case:

init_error_vars "errorInfo-3.1" "errorCode-3.1"
set result [test_try_eval_results {
error "try_eval error 3.1" errorInfo-error-3.1 errorCode-error-3.1
} {
error "cont: $errorResult" "cont: $errorInfo" "cont: $errorCode"
} {
catch {error bow wow arf} ;# Hose errorInfo/Code
global final
set final "finally-3.1"
concat "finally result should not be returned"
}
]
global final
concat $result $final

---- Result was:
1 {cont: try_eval error 3.1} {cont: try_eval error 3.1
while executing
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} NONE finally-3.1
---- Result should have been (exact matching):
1 {cont: try_eval error 3.1} {cont: errorInfo-error-3.1
invoked from within
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} {cont: errorCode-error-3.1} finally-3.1
==== try_eval-3.1 FAILED

==== try_eval-3.3 try_eval error result FAILED
==== Contents of test case:
init_error_vars "errorInfo-3.3" "errorCode-3.3"
set result [test_try_eval_results {
error "try_eval error 3.3" errorInfo-error-3.3 errorCode-error-3.3
} {} {
catch {error bow wow arf} ;# Hose errorInfo/Code
global final
set final "finally-3.3"
concat "finally result should not be returned"
}
]
global final
concat $result $final

---- Result was:
1 {try_eval error 3.3} {try_eval error 3.3
while executing
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} NONE finally-3.3
---- Result should have been (exact matching):
1 {try_eval error 3.3} {errorInfo-error-3.3
invoked from within
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} errorCode-error-3.3 finally-3.3
==== try_eval-3.3 FAILED

==== try_eval-3.4 try_eval error result FAILED
==== Contents of test case:

init_error_vars "errorInfo-3.4" "errorCode-3.4"
set result [test_try_eval_results {
error "try_eval error 3.4" errorInfo-error-3.4 errorCode-error-3.4
} {} {
catch {error bow wow arf} ;# Hose errorInfo/Code
global final
set final "finally-3.4"
concat "finally result should not be returned"
}
]
global final
list $result $final

---- Result was:
{1 {try_eval error 3.4} {try_eval error 3.4
while executing
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} NONE} finally-3.4
---- Result should have been (exact matching):
{1 {try_eval error 3.4} {errorInfo-error-3.4
invoked from within
"try_eval $code $catch $finally"
(procedure "test_try_eval" line 2)
invoked from within
"test_try_eval $code $catch $finally"} errorCode-error-3.4} finally-3.4
==== try_eval-3.4 FAILED