summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-03-21 12:56:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-03-21 12:56:46 (GMT)
commite21cda73652e2cf4a060a0411e779935b427a154 (patch)
tree071368e62abdd05e4fd12b9f9c5d63241f5c1da0
parentf27a277c1e1c06a9ddd1c93606a9d884c8d844d7 (diff)
downloadtcl-e21cda73652e2cf4a060a0411e779935b427a154.zip
tcl-e21cda73652e2cf4a060a0411e779935b427a154.tar.gz
tcl-e21cda73652e2cf4a060a0411e779935b427a154.tar.bz2
io-34.21 - fix bugs in normally skipped test.
io-35.18b - knownBug is not buggy on this branch.
-rw-r--r--tests/io.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/io.test b/tests/io.test
index cedb337..7f1a357 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -41,7 +41,7 @@ testConstraint testthread [llength [info commands testthread]]
# You need a *very* special environment to do some tests. In
# particular, many file systems do not support large-files...
-testConstraint largefileSupport 0
+testConstraint largefileSupport 1
# some tests can only be run is umask is 2
# if "umask" cannot be run, the tests will be skipped.
@@ -4433,10 +4433,10 @@ test io-34.21 {Tcl_Seek and Tcl_Tell on large files} {largefileSupport} {
puts -nonewline $f abcdef
lappend l [tell $f]
close $f
- lappend l [file size $f]
+ lappend l [file size $path(test3)]
# truncate...
close [open $path(test3) w]
- lappend l [file size $f]
+ lappend l [file size $path(test3)]
set l
} {0 6 6 4294967296 4294967302 4294967302 0}
@@ -4729,7 +4729,7 @@ test io-35.18a {Tcl_Eof, eof char, cr write, crlf read} -body {
close $f
list $s $l $e [scan [string index $in end] %c]
} -result {9 8 1 13}
-test io-35.18b {Tcl_Eof, eof char, cr write, crlf read} -constraints knownBug -body {
+test io-35.18b {Tcl_Eof, eof char, cr write, crlf read} -body {
file delete $path(test1)
set f [open $path(test1) w]
fconfigure $f -translation cr -eofchar \x1a