sl@0: # This file tests the tclWinConsole.c file.
sl@0: #
sl@0: # This file contains a collection of tests for one or more of the Tcl
sl@0: # built-in commands.  Sourcing this file into Tcl runs the tests and
sl@0: # generates output for errors.  No output means no errors were found.
sl@0: #
sl@0: # Copyright (c) 1999 by Scriptics Corporation.
sl@0: #
sl@0: # See the file "license.terms" for information on usage and redistribution
sl@0: # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
sl@0: #
sl@0: # RCS: @(#) $Id: winConsole.test,v 1.5 2000/04/10 17:19:06 ericm Exp $
sl@0: 
sl@0: if {[lsearch [namespace children] ::tcltest] == -1} {
sl@0:     package require tcltest
sl@0:     namespace import -force ::tcltest::*
sl@0: }
sl@0: 
sl@0: 
sl@0: test winConsole-1.1 {Console file channel: non-blocking gets} \
sl@0: 	{pcOnly interactive} {
sl@0:     
sl@0:     set oldmode [fconfigure stdin]
sl@0: 
sl@0:     puts stdout "Enter abcdef<return> now: " nonewline
sl@0:     flush stdout
sl@0:     fileevent stdin readable {
sl@0: 	if {[gets stdin line] >= 0} {
sl@0: 	    set result $line
sl@0: 	} else {
sl@0: 	    set result "gets failed"
sl@0: 	}
sl@0:     }
sl@0: 
sl@0:     fconfigure stdin -blocking 0 -buffering line
sl@0: 
sl@0:     set result {}
sl@0:     vwait result
sl@0: 
sl@0:     #cleanup the fileevent
sl@0:     fileevent stdin readable {}
sl@0:     eval fconfigure stdin $oldmode
sl@0: 
sl@0:     set result
sl@0: 
sl@0: }  "abcdef"
sl@0: 
sl@0: #cleanup
sl@0: 
sl@0: ::tcltest::cleanupTests
sl@0: return
sl@0: