summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tests/iogt.test24
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*}