diff options
Diffstat (limited to 'tests/winConsole.test')
| -rw-r--r-- | tests/winConsole.test | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/tests/winConsole.test b/tests/winConsole.test index 81ddb54..fdde41c 100644 --- a/tests/winConsole.test +++ b/tests/winConsole.test @@ -8,8 +8,6 @@ # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winConsole.test,v 1.5 2000/04/10 17:19:06 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -17,9 +15,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } -test winConsole-1.1 {Console file channel: non-blocking gets} \ - {pcOnly interactive} { - +test winConsole-1.1 {Console file channel: non-blocking gets} {win interactive} { set oldmode [fconfigure stdin] puts stdout "Enter abcdef<return> now: " nonewline @@ -39,7 +35,7 @@ test winConsole-1.1 {Console file channel: non-blocking gets} \ #cleanup the fileevent fileevent stdin readable {} - eval fconfigure stdin $oldmode + fconfigure stdin {*}$oldmode set result |