summaryrefslogtreecommitdiffstats
path: root/tests/iogt.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/iogt.test')
-rw-r--r--tests/iogt.test57
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"