diff options
Diffstat (limited to 'tests/winConsole.test')
| -rw-r--r-- | tests/winConsole.test | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/tests/winConsole.test b/tests/winConsole.test index a8a664c..fdde41c 100644 --- a/tests/winConsole.test +++ b/tests/winConsole.test @@ -15,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 @@ -37,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 |