summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-06-20 16:49:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-06-20 16:49:09 (GMT)
commit0cc32b6dffd4788b282213175da265ad8d8edd2b (patch)
tree53a8e17f8bc4ddf150545db5ca7598965a6bb92e /tests
parente7043db7ef76cb0f0ff1cad93f68788000644560 (diff)
downloadtcl-0cc32b6dffd4788b282213175da265ad8d8edd2b.zip
tcl-0cc32b6dffd4788b282213175da265ad8d8edd2b.tar.gz
tcl-0cc32b6dffd4788b282213175da265ad8d8edd2b.tar.bz2
* tests/binary.test: Corrected flawed tests revealed by a -debug 1
* tests/io.test: -singleproc 1 test suite run.
Diffstat (limited to 'tests')
-rw-r--r--tests/binary.test8
-rw-r--r--tests/io.test6
2 files changed, 4 insertions, 10 deletions
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