Tcl Source Code

Artifact f6d8b8e148bf7a7f48526a63862f30dda05699c0:

Attachment "575860.diff" to ticket [575860ffff] added by andreas_kupries 2002-07-04 02:13:33.

---

Index: tests/iogt.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/iogt.test,v
retrieving revision 1.6
diff -u -r1.6 iogt.test
--- tests/iogt.test	1 Jul 2002 03:04:55 -0000	1.6
+++ tests/iogt.test	3 Jul 2002 19:10:24 -0000
@@ -26,14 +26,14 @@
 
     testConstraint testchannel [llength [info commands testchannel]]
 
-makeFile {abcdefghijklmnopqrstuvwxyz0123456789,./?><;'\|":[]\}\{`~!@#$%^&*()_+-=
-} dummy
+set path(dummy) [makeFile {abcdefghijklmnopqrstuvwxyz0123456789,./?><;'\|":[]\}\{`~!@#$%^&*()_+-=
+} dummy]
 
 # " capture coloring of quotes
 
-makeFile {} dummyout
+set path(dummyout) [makeFile {} dummyout]
 
-makeFile {
+set path(__echo_srv__.tcl) [makeFile {
 #!/usr/local/bin/tclsh
 # -*- tcl -*-
 # echo server
@@ -133,7 +133,7 @@
 # main
 socket -server newconn $port
 vwait forever
-} __echo_srv__.tcl
+} __echo_srv__.tcl]
 
 
 ########################################################################
@@ -411,22 +411,21 @@
 
 ########################################################################
 
-
 test iogt-1.1 {stack/unstack} testchannel {
-    set fh [open dummy r]
+    set fh [open $path(dummy) r]
     identity -attach $fh
     testchannel unstack $fh
     close   $fh
 } {}
 
 test iogt-1.2 {stack/close} testchannel {
-    set fh [open dummy r]
+    set fh [open $path(dummy) r]
     identity -attach $fh
     close   $fh
 } {}
 
 test iogt-1.3 {stack/unstack, configuration, options} testchannel {
-    set fh [open dummy r]
+    set fh [open $path(dummy) r]
     set ca [asort [fconfigure $fh]]
     identity -attach $fh
     set cb [asort [fconfigure $fh]]
@@ -444,7 +443,7 @@
 } {1 1 1}
 
 test iogt-1.4 {stack/unstack, configuration} testchannel {
-    set fh [open dummy r]
+    set fh [open $path(dummy) r]
     set ca [asort [fconfigure $fh]]
     identity -attach $fh
     fconfigure $fh \
@@ -466,8 +465,8 @@
 } {0 line cr shiftjis}
 
 test iogt-2.0 {basic I/O going through transform} testchannel {
-    set fin  [open dummy    r]
-    set fout [open dummyout w]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) w]
 
     identity -attach $fin
     identity -attach $fout
@@ -477,8 +476,8 @@
     close $fin
     close $fout
 
-    set fin  [open dummy    r]
-    set fout [open dummyout r]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) r]
 
     set res     [string equal [set in [read $fin]] [set out [read $fout]]]
     lappend res [string length $in] [string length $out]
@@ -491,8 +490,8 @@
 
 
 test iogt-2.1 {basic I/O, operation trail} {testchannel unixOnly} {
-    set fin  [open dummy    r]
-    set fout [open dummyout w]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) w]
 
     set ain [list] ; set aout [list]
     audit_ops ain  -attach $fin
@@ -541,8 +540,8 @@
 delete/write}
 
 test iogt-2.2 {basic I/O, data trail} {testchannel unixOnly} {
-    set fin  [open dummy    r]
-    set fout [open dummyout w]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) w]
 
     set ain [list] ; set aout [list]
     audit_flow ain  -attach $fin
@@ -596,8 +595,8 @@
 
 
 test iogt-2.3 {basic I/O, mixed trail} {testchannel unixOnly} {
-    set fin  [open dummy    r]
-    set fout [open dummyout w]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) w]
 
     set trail [list]
     audit_flow trail -attach $fin
@@ -656,7 +655,7 @@
 	variable copy ; set copy 1
     }
 
-    set fin  [open dummy    r]
+    set fin  [open $path(dummy) r]
 
     fevent 1000 500 {20 20 20 10 1 1} {
 	close $fin
@@ -684,8 +683,8 @@
 
     # Check result of copy.
 
-    set fin  [open dummy    r]
-    set fout [open dummyout r]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) r]
 
     set res [string equal [read $fin] [read $fout]]
 
@@ -697,7 +696,7 @@
 
 
 test iogt-4.0 {fileevent readable, after transform} {testchannel unknownFailure} {
-    set fin  [open dummy    r]
+    set fin  [open $path(dummy) r]
     set data [read $fin]
     close $fin
 
@@ -828,8 +827,8 @@
 
 
 test iogt-5.0 {EOF simulation} {testchannel unknownFailure} {
-    set fin  [open dummy    r]
-    set fout [open dummyout w]
+    set fin  [open $path(dummy)    r]
+    set fout [open $path(dummyout) w]
 
     set trail [list]
 
@@ -907,7 +906,7 @@
 }
 
 test iogt-6.0 {Push back} testchannel {
-    set f [open dummy r]
+    set f [open $path(dummy) r]
 
     # contents of dummy = "abcdefghi..."
     read $f 3 ; # skip behind "abc"
@@ -928,7 +927,7 @@
 } {xxx}
 
 test iogt-6.1 {Push back and up} {testchannel knownBug} {
-    set f [open dummy r]
+    set f [open $path(dummy) r]
 
     # contents of dummy = "abcdefghi..."
     read $f 3 ; # skip behind "abc"