diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-07-01 02:29:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-07-01 02:29:21 (GMT) |
| commit | f211b4e55ee58981446b46e61f4702f72debe32a (patch) | |
| tree | 4013ba176f77d97263c96b559735522ac72cf6c3 /tests/iogt.test | |
| parent | 3778d78fa0369f91e4b2b4f0e502745be8eecb65 (diff) | |
| download | tcl-f211b4e55ee58981446b46e61f4702f72debe32a.zip tcl-f211b4e55ee58981446b46e61f4702f72debe32a.tar.gz tcl-f211b4e55ee58981446b46e61f4702f72debe32a.tar.bz2 | |
* Fixed [makeFile] and [viewFile] to accurately reflect a file's
contents. Updated tests that depended on buggy behavior. Also
added warning messages to "-debug 1" operations to debug test
calls to (make|remove)(File|Directory).
Diffstat (limited to 'tests/iogt.test')
| -rw-r--r-- | tests/iogt.test | 25 |
1 files changed, 5 insertions, 20 deletions
diff --git a/tests/iogt.test b/tests/iogt.test index b083efb..fb3c326 100644 --- a/tests/iogt.test +++ b/tests/iogt.test @@ -10,10 +10,10 @@ # Copyright (c) 2000 Andreas Kupries. # All rights reserved. # -# RCS: @(#) $Id: iogt.test,v 1.4 2002/04/17 23:03:14 dgp Exp $ +# RCS: @(#) $Id: iogt.test,v 1.5 2002/07/01 02:29:22 dgp Exp $ -if {[catch {package require tcltest 2}]} { - puts stderr "Skipping tests in [info script]. tcltest 2 required." +if {[catch {package require tcltest 2.1}]} { + puts stderr "Skipping tests in [info script]. tcltest 2.1 required." return } namespace eval ::tcl::test::iogt { @@ -486,7 +486,7 @@ test iogt-2.0 {basic I/O going through transform} testchannel { close $fout set res -} {1 71 71} +} {1 70 70} test iogt-2.1 {basic I/O, operation trail} {testchannel unixOnly} { @@ -522,8 +522,6 @@ read query/maxRead read query/maxRead -read -query/maxRead flush/read delete/read -------- @@ -535,7 +533,6 @@ write write write write -write flush/write delete/write} @@ -572,10 +569,6 @@ read {\}\{`~!@#$} {\}\{`~!@#$} query/maxRead {} -1 read %^&*()_+-= %^&*()_+-= query/maxRead {} -1 -read { -} { -} -query/maxRead {} -1 flush/read {} {} delete/read {} *ignored* -------- @@ -587,9 +580,6 @@ write 456789,./? 456789,./? write {><;'\|":[]} {><;'\|":[]} write {\}\{`~!@#$} {\}\{`~!@#$} write %^&*()_+-= %^&*()_+-= -write { -} { -} flush/write {} {} delete/write {} *ignored*} @@ -626,15 +616,10 @@ read {><;'\|":[]\}\{`~!@#$} {><;'\|":[]\}\{`~!@#$} write {><;'\|":[]} {><;'\|":[]} write {\}\{`~!@#$} {\}\{`~!@#$} query/maxRead {} -1 -read {%^&*()_+-= -} {%^&*()_+-= -} +read %^&*()_+-= %^&*()_+-= query/maxRead {} -1 flush/read {} {} write %^&*()_+-= %^&*()_+-= -write { -} { -} delete/read {} *ignored* flush/write {} {} delete/write {} *ignored*} |