|
|
|
|
@ -21,7 +21,7 @@ namespace eval tcltest {
|
|
|
|
|
# When the version number changes, be sure to update the pkgIndex.tcl file, |
|
|
|
|
# and the install directory in the Makefiles. When the minor version |
|
|
|
|
# changes (new feature) be sure to update the man page as well. |
|
|
|
|
variable Version 2.5.8 |
|
|
|
|
variable Version 2.5.9 |
|
|
|
|
|
|
|
|
|
# Compatibility support for dumb variables defined in tcltest 1 |
|
|
|
|
# Do not use these. Call [package require] and [info patchlevel] |
|
|
|
|
@ -43,7 +43,7 @@ namespace eval tcltest {
|
|
|
|
|
outputChannel testConstraint |
|
|
|
|
|
|
|
|
|
# Export commands that are duplication (candidates for deprecation) |
|
|
|
|
if {!$fullutf} { |
|
|
|
|
if {![package vsatisfies [package provide Tcl] 9.0-]} { |
|
|
|
|
namespace export bytestring ;# dups [encoding convertfrom identity] |
|
|
|
|
} |
|
|
|
|
namespace export debug ;# [configure -debug] |
|
|
|
|
@ -1639,7 +1639,7 @@ proc tcltest::Replace::puts {args} {
|
|
|
|
|
# return [Puts [lindex $args 0]] |
|
|
|
|
} |
|
|
|
|
2 { |
|
|
|
|
# Either -nonewline or channelId has been specified |
|
|
|
|
# Either -nonewline or channel has been specified |
|
|
|
|
if {[lindex $args 0] eq "-nonewline"} { |
|
|
|
|
append outData [lindex $args end] |
|
|
|
|
return |
|
|
|
|
@ -1651,7 +1651,7 @@ proc tcltest::Replace::puts {args} {
|
|
|
|
|
} |
|
|
|
|
3 { |
|
|
|
|
if {[lindex $args 0] eq "-nonewline"} { |
|
|
|
|
# Both -nonewline and channelId are specified, unless |
|
|
|
|
# Both -nonewline and channel are specified, unless |
|
|
|
|
# it's an error. -nonewline is supposed to be argv[0]. |
|
|
|
|
set channel [lindex $args 1] |
|
|
|
|
set newline "" |
|
|
|
|
@ -3342,7 +3342,7 @@ proc tcltest::viewFile {name {directory ""}} {
|
|
|
|
|
# Side effects: |
|
|
|
|
# None |
|
|
|
|
|
|
|
|
|
if {!$::tcltest::fullutf} { |
|
|
|
|
if {![package vsatisfies [package provide Tcl] 9.0-]} { |
|
|
|
|
proc tcltest::bytestring {string} { |
|
|
|
|
return [encoding convertfrom identity $string] |
|
|
|
|
} |
