* All the bugs below are instances of the same problem: The

	  testsuite assumes [pwd] = [temporaryDirectory] and writable.

	* tests/iogt.test: Fixed bug #575860.
	* tests/io.test:   Fixed bug #575862.
	* tests/exec.test:
	* tests/ioCmd.test: Fixed bug #575836.

1 files changed, 28 insertions, 29 deletions

diff --git a/tests/iogt.test b/tests/iogt.test
index fbefa12..2494b91 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.6 2002/07/01 03:04:55 dgp Exp $
+# RCS: @(#) $Id: iogt.test,v 1.7 2002/07/04 15:46:55 andreas_kupries Exp $
 
 if {[catch {package require tcltest 2.1}]} {
     puts stderr "Skipping tests in [info script].  tcltest 2.1 required."
@@ -26,14 +26,14 @@ namespace eval ::tcl::test::iogt {
 
     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 @@ proc echoPut {c sock} {
 # main
 socket -server newconn $port
 vwait forever
-} __echo_srv__.tcl
+} __echo_srv__.tcl]
 
 
 ########################################################################
@@ -411,22 +411,21 @@ proc asort {alist} {
 
 ########################################################################
 
-
 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 @@ test iogt-1.3 {stack/unstack, configuration, options} testchannel {
 } {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 @@ test iogt-1.4 {stack/unstack, configuration} testchannel {
 } {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 @@ test iogt-2.0 {basic I/O going through transform} testchannel {
     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.0 {basic I/O going through transform} testchannel {
 
 
 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 @@ flush/write
 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 @@ delete/write {} *ignored*}
 
 
 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 @@ test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} \
 	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 @@ test iogt-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} \
 
     # 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-3.0 {Tcl_Channel valid after stack/unstack, fevent handling} \
 
 
 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 @@ delete/read {} *ignored*}  ; # catch unescaped quote "
 
 
 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 @@ proc constx {-attach channel} {
 }
 
 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 @@ test iogt-6.0 {Push back} testchannel {
 } {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"