#60 3 cmdtrace.test test cases fail when tested against tcl 8.6

[Larry W. Virden]

platform: sparc solaris 8, sun c compiler, tcl 8.6 cvs head (dec 16, 2008), tclx cvs head

cmdtrace.test

==== cmdtrace-1.2 command trace: not evaluated, truncated FAILED
==== Contents of test case:

set cmdtraceFH [open CMDTRACE.OUT w+]
cmdtrace on $cmdtraceFH noeval
DoStuff4
cmdtrace off
GetTrace $cmdtraceFH

---- Result was:
DoStuff4
DoStuff3
DoStuff2
DoStuff1
DoStuff
replicate "-TheString-" 10
set foo [replicate "-TheString-" 10]
set baz $foo
set wap 1
if {$wap} {\n set wap 0\n } else {\n set wap 1...
set wap 0
cmdtrace off

---- Result should have been (exact matching):
DoStuff4\n
DoStuff3
DoStuff2
DoStuff1
DoStuff
replicate "-TheString-" 10
set foo [replicate "-TheString-" 10]
set baz $foo
set wap 1
if {$wap} {\n set wap 0\n } else {\n set wap 1...
set wap 0
cmdtrace off\n

==== cmdtrace-1.2 FAILED

==== cmdtrace-1.4 command trace: not evaluated, not truncated FAILED
==== Contents of test case:

set cmdtraceFH [open CMDTRACE.OUT w+]
cmdtrace on $cmdtraceFH notruncate noeval
DoStuff4
cmdtrace off
GetTrace $cmdtraceFH

---- Result was:
DoStuff4
DoStuff3
DoStuff2
DoStuff1
DoStuff
replicate "-TheString-" 10
set foo [replicate "-TheString-" 10]
set baz $foo
set wap 1
if {$wap} {\n set wap 0\n } else {\n set wap 1\n }
set wap 0
cmdtrace off

---- Result should have been (exact matching):
DoStuff4\n
DoStuff3
DoStuff2
DoStuff1
DoStuff
replicate "-TheString-" 10
set foo [replicate "-TheString-" 10]
set baz $foo
set wap 1
if {$wap} {\n set wap 0\n } else {\n set wap 1\n }
set wap 0
cmdtrace off\n

==== cmdtrace-1.4 FAILED

==== cmdtrace-3.1 command trace argument error checking FAILED
==== Contents of test case:

set errorInfo ERRORINFO
set errorCode ERRORCODE
cmdtrace on command "ctcallback CD"
DoStuff4
cmdtrace off
lappend traceout $errorInfo $errorCode
set traceout

---- Result was:
{CD DoStuff4 DoStuff4 {}} {CD DoStuff3 DoStuff3 {}} {CD DoStuff2 DoStuff2 {}} {C
D DoStuff1 DoStuff1 {}} {CD DoStuff DoStuff {}} {CD {{replicate "-TheString-" 10
}} {{replicate -TheString- 10}} {}} {CD {{set foo [replicate "-TheString-" 10]}}
{{set foo -TheString--TheString--TheString--TheString--TheString--TheString--Th
eString--TheString--TheString--TheString-}} {}} {CD {{set baz $foo}} {{set baz -
TheString--TheString--TheString--TheString--TheString--TheString--TheString--The
String--TheString--TheString-}} {}} {CD {{set wap 1}} {{set wap 1}} {}} {CD {{if
{$wap} {
set wap 0
} else {
set wap 1
}}} {{if {$wap} {
set wap 0
} else {
set wap 1
}}} {}} {CD {{set wap 0}} {{set wap 0}} {}} {CD {{cmdtrace off}} {{cmdtrace
off}} {}} ERRORINFO ERRORCODE
---- Result should have been (exact matching):
{CD {{DoStuff4
}} DoStuff4 {}} {CD DoStuff3 DoStuff3 {}} {CD DoStuff2 DoStuff2 {}} {CD DoStuff1
DoStuff1 {}} {CD DoStuff DoStuff {}} {CD {{replicate "-TheString-" 10}} {{repli
cate -TheString- 10}} {}} {CD {{set foo [replicate "-TheString-" 10]}} {{set foo -TheString--TheString--TheString--TheString--TheString--TheString--TheString--T
heString--TheString--TheString-}} {}} {CD {{set baz $foo}} {{set baz -TheString-
-TheString--TheString--TheString--TheString--TheString--TheString--TheString--Th
eString--TheString-}} {}} {CD {{set wap 1}} {{set wap 1}} {}} {CD {{if {$wap} {
set wap 0
} else {
set wap 1
}}} {{if {$wap} {
set wap 0
} else {
set wap 1
}}} {}} {CD {{set wap 0}} {{set wap 0}} {}} {CD {{cmdtrace off
}} {{cmdtrace off}} {}} ERRORINFO ERRORCODE
==== cmdtrace-3.1 FAILED