From 0cc32b6dffd4788b282213175da265ad8d8edd2b Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 20 Jun 2008 16:49:09 +0000 Subject: * tests/binary.test: Corrected flawed tests revealed by a -debug 1 * tests/io.test: -singleproc 1 test suite run. --- ChangeLog | 5 +++++ tests/binary.test | 8 +------- tests/io.test | 6 +++--- 3 files changed, 9 insertions(+), 10 deletions(-) diff --git a/ChangeLog b/ChangeLog index 41df0fe..e7c1544 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2008-06-20 Don Porter + + * tests/binary.test: Corrected flawed tests revealed by a -debug 1 + * tests/io.test: -singleproc 1 test suite run. + 2008-06-18 Don Porter * generic/tclParseExpr.c: Disabled attempts to support [expr] diff --git a/tests/binary.test b/tests/binary.test index d06907e..ed447f9 100644 --- a/tests/binary.test +++ b/tests/binary.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: binary.test,v 1.11.2.5 2008/03/24 03:05:07 patthoyts Exp $ +# RCS: @(#) $Id: binary.test,v 1.11.2.6 2008/06/20 16:49:10 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -555,12 +555,6 @@ test binary-15.5 {Tcl_BinaryObjCmd: format - bug #1923966} { test binary-15.6 {Tcl_BinaryObjCmd: format - bug #1923966} { binary format x0ss 1 1 } \x01\x00\x01\x00 -test binary-15.5 {Tcl_BinaryObjCmd: format - bug #1923966} { - binary format x0s 1 -} \x01\x00 -test binary-15.6 {Tcl_BinaryObjCmd: format - bug #1923966} { - binary format x0ss 1 1 -} \x01\x00\x01\x00 test binary-15.7 {Tcl_BinaryObjCmd: format - bug #1923966} { binary format x1s 1 } \x00\x01\x00 diff --git a/tests/io.test b/tests/io.test index 2627140..1a0f72e 100644 --- a/tests/io.test +++ b/tests/io.test @@ -13,7 +13,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: io.test,v 1.40.2.22 2008/05/26 18:26:15 hobbs Exp $ +# RCS: @(#) $Id: io.test,v 1.40.2.23 2008/06/20 16:49:11 dgp Exp $ if {[catch {package require tcltest 2}]} { puts stderr "Skipping tests in [info script]. tcltest 2 required." @@ -7461,8 +7461,8 @@ test io-61.1 {Reset eof state after changing the eof char} -setup { } -result {77 = 23431} # cleanup -foreach file [list fooBar longfile script output test1 pipe my_script foo \ - bar test2 test3 cat stdout kyrillic.txt utf8-fcopy.txt utf8-rp.txt] { +foreach file [list fooBar longfile script output test1 pipe my_script \ + test2 test3 cat stdout kyrillic.txt utf8-fcopy.txt utf8-rp.txt] { removeFile $file } cleanupTests -- cgit v0.12