summaryrefslogtreecommitdiffstats
path: root/library/tcltest
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-07-08 20:43:49 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-07-08 20:43:49 (GMT)
commit1aa8e03a631b9af272dfc0de22e773bf95d37e72 (patch)
tree25a256cda4eff0b517d65bcf376f3c5f7a86af40 /library/tcltest
parent284a565718399779d86f434a058a3d2880270e8f (diff)
downloadtcl-1aa8e03a631b9af272dfc0de22e773bf95d37e72.zip
tcl-1aa8e03a631b9af272dfc0de22e773bf95d37e72.tar.gz
tcl-1aa8e03a631b9af272dfc0de22e773bf95d37e72.tar.bz2
* doc/tcltest.n: Fixed incompatibility in [viewFile].
* library/tcltest/tcltest.tcl: Corrected docs. Bumped to 2.2.1. * library/tcltest/pkgIndex.tcl: [Bug 578163]
Diffstat (limited to 'library/tcltest')
-rw-r--r--library/tcltest/pkgIndex.tcl2
-rw-r--r--library/tcltest/tcltest.tcl5
2 files changed, 3 insertions, 4 deletions
diff --git a/library/tcltest/pkgIndex.tcl b/library/tcltest/pkgIndex.tcl
index 1ffbceb..b5a53ac 100644
--- a/library/tcltest/pkgIndex.tcl
+++ b/library/tcltest/pkgIndex.tcl
@@ -9,4 +9,4 @@
# full path name of this file's directory.
if {![package vsatisfies [package provide Tcl] 8.3]} {return}
-package ifneeded tcltest 2.1 [list source [file join $dir tcltest.tcl]]
+package ifneeded tcltest 2.1.1 [list source [file join $dir tcltest.tcl]]
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 4091cdf..f6e9351 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -16,11 +16,11 @@
# Contributions from Don Porter, NIST, 2002. (not subject to US copyright)
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.67 2002/07/03 00:41:38 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.68 2002/07/08 20:43:50 dgp Exp $
package require Tcl 8.3 ;# uses [glob -directory]
namespace eval tcltest {
- variable Version 2.1
+ variable Version 2.1.1
# Compatibility support for dumb variables defined in tcltest 1
# Do not use these. Call [package provide Tcl] and [info patchlevel]
@@ -3042,7 +3042,6 @@ proc tcltest::viewFile {name {directory ""}} {
}
set fullName [file join $directory $name]
set f [open $fullName]
- fconfigure $f -translation binary
set data [read -nonewline $f]
close $f
return $data