diff options
Diffstat (limited to 'tests/winNotify.test')
-rw-r--r-- | tests/winNotify.test | 173 |
1 files changed, 0 insertions, 173 deletions
diff --git a/tests/winNotify.test b/tests/winNotify.test deleted file mode 100644 index c8c3d9e..0000000 --- a/tests/winNotify.test +++ /dev/null @@ -1,173 +0,0 @@ -# This file tests the tclWinNotify.c file. -# -# This file contains a collection of tests for one or more of the Tcl -# built-in commands. Sourcing this file into Tcl runs the tests and -# generates output for errors. No output means no errors were found. -# -# Copyright (c) 1997 by Sun Microsystems, Inc. -# Copyright (c) 1998-1999 by Scriptics Corporation. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: winNotify.test,v 1.3 1999/04/16 00:47:37 stanton Exp $ - -if {[lsearch [namespace children] ::tcltest] == -1} { - source [file join [pwd] [file dirname [info script]] defs.tcl] -} - -set ::tcltest::testConfig(testeventloop) \ - [expr {[info commands testeventloop] != {}}] - -# There is no explicit test for InitNotifier or NotifierExitHandler - -test winNotify-1.1 {Tcl_SetTimer: positive timeout} {pcOnly} { - set done 0 - after 1000 { set done 1 } - vwait done - set done -} 1 -test winNotify-1.2 {Tcl_SetTimer: positive timeout, message pending} {pcOnly} { - set x 0 - set y 1 - set a1 [after 0 { incr y }] - after cancel $a1 - after 500 { incr x } - vwait x - list $x $y -} {1 1} -test winNotify-1.3 {Tcl_SetTimer: cancelling positive timeout} {pcOnly} { - set x 0 - set y 1 - set id [after 10000 { incr y }] - after 0 { incr x } - vwait x - after cancel $id - list $x $y -} {1 1} -test winNotify-1.4 {Tcl_SetTimer: null timeout, message pending} {pcOnly} { - set x 0 - set y 1 - after 0 { incr x } - after 0 { incr y } - vwait x - list $x $y -} {1 2} - -test winNotify-2.1 {Tcl_ResetIdleTimer} {pcOnly} { - set x 0 - update - after idle { incr x } - vwait x - set x -} 1 -test winNotify-2.2 {Tcl_ResetIdleTimer: message pending} {pcOnly} { - set x 0 - set y 1 - update - after idle { incr x } - after idle { incr y } - update - list $x $y -} {1 2} - -test winNotify-3.1 {NotifierProc: non-modal normal timer} {pcOnly testeventloop} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after 500 { incr x; testeventloop done } - testeventloop wait - set x -} 1 -test winNotify-3.2 {NotifierProc: non-modal normal timer, rescheduled} {pcOnly testeventloop} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after 500 { incr x; after 100 {incr x; testeventloop done }} - testeventloop wait - set x -} 2 -test winNotify-3.3 {NotifierProc: modal normal timer} {pcOnly} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after 500 { incr x } - vwait x - set x -} 1 -test winNotify-3.4 {NotifierProc: modal normal timer, rescheduled} {pcOnly} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - set y 0 - after 500 { incr y; after 100 {incr x}} - vwait x - list $x $y -} {1 1} -test winNotify-3.5 {NotifierProc: non-modal idle timer} {pcOnly testeventloop} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after idle { incr x; testeventloop done } - testeventloop wait - set x -} 1 -test winNotify-3.6 {NotifierProc: non-modal idle timer, rescheduled} {pcOnly testeventloop} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after idle { incr x; after idle {incr x; testeventloop done }} - testeventloop wait - set x -} 2 -test winNotify-3.7 {NotifierProc: modal idle timer} {pcOnly} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - after idle { incr x } - vwait x - set x -} 1 -test winNotify-3.8 {NotifierProc: modal idle timer, rescheduled} {pcOnly} { - update - set x 0 - foreach i [after info] { - after cancel $i - } - set y 0 - after idle { incr y; after idle {incr x}} - vwait x - list $x $y -} {1 1} - -# Tcl_DoOneEvent is tested by the timer.test, io.test, and event.test files - -# cleanup -::tcltest::cleanupTests -return - - - - - - - - - - - - |