From 9aa8e5b0df06c585ca9336eaea31fd6cde87d2f5 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 1 Jul 2002 03:04:55 +0000
Subject: alternative fix.

---
 tests/iogt.test | 24 ++++++++++++++++++++----
 1 file 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*}
-- 
cgit v0.12