diff options
| -rw-r--r-- | tests/iogt.test | 24 |
1 files changed, 20 insertions, 4 deletions
diff --git a/tests/iogt.test b/tests/iogt.test index fb3c326..fbefa12 100644 --- a/tests/iogt.test +++ b/tests/iogt.test @@ -10,7 +10,7 @@ # Copyright (c) 2000 Andreas Kupries. # All rights reserved. # -# RCS: @(#) $Id: iogt.test,v 1.5 2002/07/01 02:29:22 dgp Exp $ +# RCS: @(#) $Id: iogt.test,v 1.6 2002/07/01 03:04:55 dgp Exp $ if {[catch {package require tcltest 2.1}]} { puts stderr "Skipping tests in [info script]. tcltest 2.1 required." @@ -26,7 +26,8 @@ namespace eval ::tcl::test::iogt { testConstraint testchannel [llength [info commands testchannel]] -makeFile {abcdefghijklmnopqrstuvwxyz0123456789,./?><;'\|":[]\}\{`~!@#$%^&*()_+-=} dummy +makeFile {abcdefghijklmnopqrstuvwxyz0123456789,./?><;'\|":[]\}\{`~!@#$%^&*()_+-= +} dummy # " capture coloring of quotes @@ -486,7 +487,7 @@ test iogt-2.0 {basic I/O going through transform} testchannel { close $fout set res -} {1 70 70} +} {1 71 71} test iogt-2.1 {basic I/O, operation trail} {testchannel unixOnly} { @@ -522,6 +523,8 @@ read query/maxRead read query/maxRead +read +query/maxRead flush/read delete/read -------- @@ -533,6 +536,7 @@ write write write write +write flush/write delete/write} @@ -569,6 +573,10 @@ read {\}\{`~!@#$} {\}\{`~!@#$} query/maxRead {} -1 read %^&*()_+-= %^&*()_+-= query/maxRead {} -1 +read { +} { +} +query/maxRead {} -1 flush/read {} {} delete/read {} *ignored* -------- @@ -580,6 +588,9 @@ write 456789,./? 456789,./? write {><;'\|":[]} {><;'\|":[]} write {\}\{`~!@#$} {\}\{`~!@#$} write %^&*()_+-= %^&*()_+-= +write { +} { +} flush/write {} {} delete/write {} *ignored*} @@ -616,10 +627,15 @@ read {><;'\|":[]\}\{`~!@#$} {><;'\|":[]\}\{`~!@#$} write {><;'\|":[]} {><;'\|":[]} write {\}\{`~!@#$} {\}\{`~!@#$} query/maxRead {} -1 -read %^&*()_+-= %^&*()_+-= +read {%^&*()_+-= +} {%^&*()_+-= +} query/maxRead {} -1 flush/read {} {} write %^&*()_+-= %^&*()_+-= +write { +} { +} delete/read {} *ignored* flush/write {} {} delete/write {} *ignored*} |