summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-09 16:33:58 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-09 16:33:58 (GMT)
commitc42ec3968ccbb9f010b930dad483f765eaa85791 (patch)
treeb866d8298b9b6a1028baa30482bdd43c54234b48
parentfbab4e790df526d0da43a1122d1cca31cfd24e66 (diff)
parentde5e889e3d84eb644ed791aea29fdb8e47972943 (diff)
downloadtcl-c42ec3968ccbb9f010b930dad483f765eaa85791.zip
tcl-c42ec3968ccbb9f010b930dad483f765eaa85791.tar.gz
tcl-c42ec3968ccbb9f010b930dad483f765eaa85791.tar.bz2
Tests (chan)io-34.21 are constrained for largefileSupport, and that's disabled by default, which means never tested, which means the ridiculous bugs in them are never found and fixed.
Fixed the bugs, changed the default. Large File Suppport (4GB) is commonplace now. Let those without it suffer a few failing tests reporting that fact to them.
-rw-r--r--tests/chanio.test6
-rw-r--r--tests/io.test6
2 files changed, 6 insertions, 6 deletions
diff --git a/tests/chanio.test b/tests/chanio.test
index 999d0bb..5b77f54 100644
--- a/tests/chanio.test
+++ b/tests/chanio.test
@@ -44,7 +44,7 @@ namespace eval ::tcl::test::io {
# 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.
@@ -4520,10 +4520,10 @@ test chan-io-34.21 {Tcl_Seek and Tcl_Tell on large files} -setup {
chan puts -nonewline $f abcdef
lappend l [chan tell $f]
chan close $f
- lappend l [file size $f]
+ lappend l [file size $path(test3)]
# truncate...
chan close [open $path(test3) w]
- lappend l [file size $f]
+ lappend l [file size $path(test3)]
} -result {0 6 6 4294967296 4294967302 4294967302 0}
# Test Tcl_Eof
diff --git a/tests/io.test b/tests/io.test
index 376bae8..a072bd4 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -45,7 +45,7 @@ testConstraint thread [expr {0 == [catch {package require Thread 2.7-}]}]
# 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.
@@ -4457,10 +4457,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}