From e4ce42d7600ac88a240b3a899b556ad23a0d7de4 Mon Sep 17 00:00:00 2001 From: kennykb Date: Mon, 17 Feb 2003 17:23:52 +0000 Subject: Removed Windows line terminators. [Bug 687913]. FossilOrigin-Name: bdee5e1df5e0b2105a396b46c0ce08768a02ee2e --- ChangeLog | 4 + tests/notify.test | 652 +++++++++++++++++++++++++++--------------------------- 2 files changed, 330 insertions(+), 326 deletions(-) diff --git a/ChangeLog b/ChangeLog index 18b482c..7fab37a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-02-17 Kevin Kenny + + * tests/notify.test: Removed Windows line terminators. [Bug 687913]. + 2003-02-15 Miguel Sofer * generic/tclBasic.c (Tcl_EvalEx): diff --git a/tests/notify.test b/tests/notify.test index dcf4e09..db2a60d 100755 --- a/tests/notify.test +++ b/tests/notify.test @@ -1,326 +1,326 @@ -# -*- tcl -*- -# -# notify.test -- -# -# This file tests several functions in the file, 'generic/tclNotify.c'. -# -# 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) 2003 by Kevin B. Kenny. All rights reserved. -# -# See the file "license.terms" for information on usage and redistribution -# of this file, and for a DISCLAIMER OF ALL WARRANTIES. -# -# RCS: @(#) $Id: notify.test,v 1.1 2003/02/15 20:24:11 kennykb Exp $ - -if {[lsearch [namespace children] ::tcltest] == -1} { - package require tcltest - namespace import -force ::tcltest::* -} - -testConstraint testevent [llength [info commands testevent]] - -test notify-1.1 {Tcl_QueueEvent and delivery of a single event} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - vwait done - set delivered - } \ - -result {one} - -test notify-1.2 {Tcl_QueueEvent and delivery of events in order} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent queue three tail {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {one two three} - -test notify-1.3 {Tcl_QueueEvent at head} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one head {lappend delivered one; expr 1} - vwait done - set delivered - } \ - -result one - -test notify-1.4 {Tcl_QueueEvent multiple events at head} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one head {lappend delivered one; expr 1} - testevent queue two head {lappend delivered two; expr 1} - testevent queue three head {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {three two one} - -test notify-1.5 {Tcl_QueueEvent marker event into an empty queue} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - vwait done - set delivered - } \ - -result one - -test notify-1.6 {Tcl_QueueEvent first marker event in a nonempty queue} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent queue three head {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {three two one} - -test notify-1.7 {Tcl_QueueEvent second marker event} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - vwait done - set delivered - } \ - -result {one two} - -test notify-1.8 {Tcl_QueueEvent preexisting event following second marker} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent queue three mark {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {one three two} - -test notify-2.1 {remove sole element, don't replace } \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent delete one - vwait done - set delivered - } \ - -result {} - -test notify-2.2 {remove and replace sole element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent delete one - testevent queue two tail {lappend delivered two; expr 1} - vwait done - set delivered - } \ - -result two - -test notify-2.3 {remove first element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent delete one - vwait done - set delivered - } \ - -result {two} - -test notify-2.4 {remove and replace first element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent delete one - testevent queue three head {lappend delivered three; expr 1}; - vwait done - set delivered - } \ - -result {three two} - -test notify-2.5 {remove last element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent delete two - vwait done - set delivered - } \ - -result {one} - - -test notify-2.6 {remove and replace last element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent delete two - testevent queue three tail {lappend delivered three; expr 1}; - vwait done - set delivered - } \ - -result {one three} - -test notify-2.7 {remove a middle element} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one tail {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent queue three tail {lappend delivered three; expr 1} - testevent delete two - vwait done - set delivered - } \ - -result {one three} - -test notify-2.8 {remove a marker event that's the sole event in the queue} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent delete one - vwait done - set delivered - } \ - -result {} - -test notify-2.9 {remove and replace a marker event that's the sole event} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent delete one - testevent queue two mark {lappend delivered two; expr 1} - vwait done - set delivered - } \ - -result two - -test notify-2.10 {remove marker event from head} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent delete one - vwait done - set delivered - } \ - -result two - -test notify-2.11 {remove and replace marker event at head} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two tail {lappend delivered two; expr 1} - testevent delete one - testevent queue three mark {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {three two} - -test notify-2.12 {remove marker event at tail} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent delete two - vwait done - set delivered - } \ - -result {one} - -test notify-2.13 {remove and replace marker event at tail} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent delete two - testevent queue three mark {lappend delivered three; expr 1} - vwait done - set delivered - } \ - -result {one three} - -test notify-2.14 {remove marker event from middle} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent queue three mark {lappend delivered three; expr 1} - testevent delete two - vwait done - set delivered - } \ - -result {one three} - -test notify-2.15 {remove and replace marker event at middle} \ - -constraints {testevent} \ - -body { - set delivered {} - after 10 set done 1 - testevent queue one mark {lappend delivered one; expr 1} - testevent queue two mark {lappend delivered two; expr 1} - testevent queue three tail {lappend delivered three; expr 1} - testevent delete two - testevent queue four mark {lappend delivered four; expr 1}; - vwait done - set delivered - } \ - -result {one four three} - -# cleanup -::tcltest::cleanupTests -return +# -*- tcl -*- +# +# notify.test -- +# +# This file tests several functions in the file, 'generic/tclNotify.c'. +# +# 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) 2003 by Kevin B. Kenny. All rights reserved. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# RCS: @(#) $Id: notify.test,v 1.2 2003/02/17 17:23:57 kennykb Exp $ + +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest + namespace import -force ::tcltest::* +} + +testConstraint testevent [llength [info commands testevent]] + +test notify-1.1 {Tcl_QueueEvent and delivery of a single event} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + vwait done + set delivered + } \ + -result {one} + +test notify-1.2 {Tcl_QueueEvent and delivery of events in order} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent queue three tail {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {one two three} + +test notify-1.3 {Tcl_QueueEvent at head} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one head {lappend delivered one; expr 1} + vwait done + set delivered + } \ + -result one + +test notify-1.4 {Tcl_QueueEvent multiple events at head} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one head {lappend delivered one; expr 1} + testevent queue two head {lappend delivered two; expr 1} + testevent queue three head {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {three two one} + +test notify-1.5 {Tcl_QueueEvent marker event into an empty queue} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + vwait done + set delivered + } \ + -result one + +test notify-1.6 {Tcl_QueueEvent first marker event in a nonempty queue} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent queue three head {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {three two one} + +test notify-1.7 {Tcl_QueueEvent second marker event} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + vwait done + set delivered + } \ + -result {one two} + +test notify-1.8 {Tcl_QueueEvent preexisting event following second marker} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent queue three mark {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {one three two} + +test notify-2.1 {remove sole element, don't replace } \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent delete one + vwait done + set delivered + } \ + -result {} + +test notify-2.2 {remove and replace sole element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent delete one + testevent queue two tail {lappend delivered two; expr 1} + vwait done + set delivered + } \ + -result two + +test notify-2.3 {remove first element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent delete one + vwait done + set delivered + } \ + -result {two} + +test notify-2.4 {remove and replace first element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent delete one + testevent queue three head {lappend delivered three; expr 1}; + vwait done + set delivered + } \ + -result {three two} + +test notify-2.5 {remove last element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent delete two + vwait done + set delivered + } \ + -result {one} + + +test notify-2.6 {remove and replace last element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent delete two + testevent queue three tail {lappend delivered three; expr 1}; + vwait done + set delivered + } \ + -result {one three} + +test notify-2.7 {remove a middle element} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one tail {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent queue three tail {lappend delivered three; expr 1} + testevent delete two + vwait done + set delivered + } \ + -result {one three} + +test notify-2.8 {remove a marker event that's the sole event in the queue} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent delete one + vwait done + set delivered + } \ + -result {} + +test notify-2.9 {remove and replace a marker event that's the sole event} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent delete one + testevent queue two mark {lappend delivered two; expr 1} + vwait done + set delivered + } \ + -result two + +test notify-2.10 {remove marker event from head} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent delete one + vwait done + set delivered + } \ + -result two + +test notify-2.11 {remove and replace marker event at head} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two tail {lappend delivered two; expr 1} + testevent delete one + testevent queue three mark {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {three two} + +test notify-2.12 {remove marker event at tail} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent delete two + vwait done + set delivered + } \ + -result {one} + +test notify-2.13 {remove and replace marker event at tail} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent delete two + testevent queue three mark {lappend delivered three; expr 1} + vwait done + set delivered + } \ + -result {one three} + +test notify-2.14 {remove marker event from middle} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent queue three mark {lappend delivered three; expr 1} + testevent delete two + vwait done + set delivered + } \ + -result {one three} + +test notify-2.15 {remove and replace marker event at middle} \ + -constraints {testevent} \ + -body { + set delivered {} + after 10 set done 1 + testevent queue one mark {lappend delivered one; expr 1} + testevent queue two mark {lappend delivered two; expr 1} + testevent queue three tail {lappend delivered three; expr 1} + testevent delete two + testevent queue four mark {lappend delivered four; expr 1}; + vwait done + set delivered + } \ + -result {one four three} + +# cleanup +::tcltest::cleanupTests +return -- cgit v0.12