From 1aa8e03a631b9af272dfc0de22e773bf95d37e72 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 8 Jul 2002 20:43:49 +0000
Subject:         * doc/tcltest.n:                Fixed incompatibility in
 [viewFile].         * library/tcltest/tcltest.tcl:  Corrected docs.  Bumped
 to 2.2.1.         * library/tcltest/pkgIndex.tcl: [Bug 578163]

---
 ChangeLog                    | 6 ++++++
 doc/tcltest.n                | 6 +++---
 library/tcltest/pkgIndex.tcl | 2 +-
 library/tcltest/tcltest.tcl  | 5 ++---
 4 files changed, 12 insertions(+), 7 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index a31a638..ff29f84 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-08  Don Porter  <dgp@users.sourceforge.net>
+
+	* doc/tcltest.n:		Fixed incompatibility in [viewFile].
+	* library/tcltest/tcltest.tcl:	Corrected docs.  Bumped to 2.2.1.
+	* library/tcltest/pkgIndex.tcl: [Bug 578163]
+
 2002-07-08  Vince Darley  <vincentdarley@users.sourceforge.net>
 
         * tests/cmdAH.test:
diff --git a/doc/tcltest.n b/doc/tcltest.n
index 9c911aa..6362d0e 100644
--- a/doc/tcltest.n
+++ b/doc/tcltest.n
@@ -8,7 +8,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: tcltest.n,v 1.31 2002/07/05 07:24:43 hobbs Exp $
+'\" RCS: @(#) $Id: tcltest.n,v 1.32 2002/07/08 20:43:49 dgp Exp $
 '\" 
 .so man.macros
 .TH "tcltest" n 2.1 tcltest "Tcl Bundled Packages"
@@ -173,8 +173,8 @@ The default value of \fIdirectory\fR is the directory
 as a convenient way to turn the contents of a file generated
 by a test into the result of that test for matching against
 an expected result.  The contents of the file are read using
-the binary encoding, so the exact byte for byte contents are
-returned, with the exception of the final newline, if any.
+the system encoding, so its usefulness is limited to text
+files.
 .TP
 \fBcleanupTests\fR
 Intended to clean up and summarize after several tests have been
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
-- 
cgit v0.12