diff options
Diffstat (limited to 'tests/notify.test')
-rw-r--r-- | tests/notify.test | 376 |
1 files changed, 376 insertions, 0 deletions
diff --git a/tests/notify.test b/tests/notify.test new file mode 100644 index 0000000..7070f53 --- /dev/null +++ b/tests/notify.test @@ -0,0 +1,376 @@ +# Commands covered: treectrl's widget command notify +# +# This file contains a collection of tests for the notify widget command of +# the tktreectrl extension. Sourcing this file into Tcl runs the tests and +# generates output for errors. No output means no errors were found. +# +# Copyright (c) 2000 by Scriptics Corporation. +# Copyright (c) 2002 by Christian Krone. +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# +# CVS: @(#) $Id: notify.test,v 1.1 2002/12/30 21:42:22 krischan Exp $ + +if {[lsearch [namespace children] ::tcltest] == -1} { + package require tcltest 2 + namespace import ::tcltest::* +} + +package require Tk +package_require treectrl + +test notify-0.1 {some needed preparations} -body { + treectrl .t +} -result {.t} + +test notify-1.1 {notify: missing args} -body { + .t notify +} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg...?"} + +test notify-1.2 {notify: unknown command} -body { + .t notify foo +} -returnCodes error -result {bad command "foo": must be bind, configure, detailnames, eventnames, generate, install, linkage, or uninstall} + +test notify-2.1 {notify eventnames: too much args} -body { + .t notify eventnames Open +} -returnCodes error -result {wrong # args: should be ".t notify eventnames"} + +test notify-2.2 {notify eventnames: nothing own installed yet} -body { + lsort [.t notify eventnames] +} -result {ActiveItem Collapse Expand Scroll Selection} + +test notify-2.3 {notify install: missing args} -body { + .t notify install +} -returnCodes error -result {wrong # args: should be ".t notify install option arg ..."} + +test notify-2.4 {notify install: unknown command} -body { + .t notify install foo +} -returnCodes error -result {bad option "foo": must be detail or event} + +test notify-2.5 {notify install event: missing args} -body { + .t notify install event +} -returnCodes error -result {wrong # args: should be ".t notify install event name ?percentsCommand?"} + +test notify-2.6 {notify install event: too much args} -body { + .t notify install event foo bar baz +} -returnCodes error -result {wrong # args: should be ".t notify install event name ?percentsCommand?"} + +test notify-2.7 {notify install event} -body { + .t notify install event Greetings + .t notify install event GoodBye +} -result {} + +test notify-2.8 {notify eventnames: list Greetings} -body { + lsort [.t notify eventnames] +} -result {ActiveItem Collapse Expand GoodBye Greetings Scroll Selection} + +test notify-2.9 {notify detailnames: missing args} -body { + .t notify detailnames +} -returnCodes error -result {wrong # args: should be ".t notify detailnames eventName"} + +test notify-2.10 {notify detailnames: too many args} -body { + .t notify detailnames foo bar +} -returnCodes error -result {wrong # args: should be ".t notify detailnames eventName"} + +test notify-2.11 {notify detailnames: unknown event} -body { + .t notify detailnames Hello +} -returnCodes error -result {unknown event "Hello"} + +test notify-2.12 {notify detailnames: no details yet} -body { + .t notify detailnames Greetings +} -result {} + +test notify-2.13 {notify install detail: missing args} -body { + .t notify install detail +} -returnCodes error -result {wrong # args: should be ".t notify install detail event detail ?percentsCommand?"} + +test notify-2.14 {notify install detail: unknown event} -body { + .t notify install detail Hello GoodBye +} -returnCodes error -result {unknown event "Hello"} + +test notify-2.15 {notify install detail} -body { + .t notify install detail Greetings Wrote + .t notify install detail Greetings Sent +} -result {} + +test notify-2.16 {notify detailnames} -body { + lsort [.t notify detailnames Greetings] +} -result {Sent Wrote} + +test notify-3.1 {notify linkage: missing args} -body { + .t notify linkage +} -returnCodes error -result {wrong # args: should be ".t notify linkage event ?detail?"} + +test notify-3.2 {notify linkage: unknown event} -body { + .t notify linkage foo +} -returnCodes error -result {unknown event "foo"} + +test notify-3.3 {notify linkage: standard event} -body { + .t notify linkage Scroll +} -result {static} + +test notify-3.4 {notify linkage: self made event} -body { + .t notify linkage Greetings +} -result {dynamic} + +test notify-3.5 {notify linkage: unknown detail} -body { + .t notify linkage Greetings foo +} -returnCodes error -result {unknown detail "foo" for event "Greetings"} + +test notify-3.6 {notify linkage: standard event} -body { + .t notify linkage Scroll x +} -result {static} + +test notify-3.7 {notify linkage: self made event} -body { + .t notify linkage Greetings Sent +} -result {dynamic} + +test notify-4.1 {notify bind: too much args} -body { + .t notify bind z y z z y +} -returnCodes error -result {wrong # args: should be ".t notify bind ?object? ?pattern? ?script?"} + +test notify-4.2 {notify bind: nothing bound yet} -body { + .t notify bind .t +} -result {} + +test notify-4.3 {notify bind: invalid pattern} -body { + .t notify bind .t Greetings +} -returnCodes error -result {missing "<" in event pattern "Greetings"} + +test notify-4.4 {notify bind: unknown event} -body { + .t notify bind .t <Hello> +} -returnCodes error -result {unknown event "Hello"} + +test notify-4.5 {notify bind: unknown detail} -body { + .t notify bind .t <Greetings-Prepare> +} -returnCodes error -result {unknown detail "Prepare" for event "Greetings"} + +test notify-4.6 {notify bind: nothing yet for simple event} -body { + .t notify bind .t <Greetings> +} -result {} + +test notify-4.7 {notify bind: simple event} -body { + .t notify bind .t <GoodBye> {puts -nonewline "Bye bye"} +} -result {} + +test notify-4.8 {notify bind: simple event, script added} -body { + .t notify bind .t <GoodBye> {+puts ""} +} -result {} + +test notify-4.9 {notify bind: simple event defined} -body { + .t notify bind .t <GoodBye> +} -result {puts -nonewline "Bye bye" +puts ""} + +test notify-4.10 {notify bind: nothing yet for event with detail} -body { + .t notify bind .t <Greetings-Sent> +} -result {} + +test notify-4.11 {notify bind: event with detail} -body { + .t notify bind .t <Greetings-Wrote> {puts -nonewline "Hello World"} + .t notify bind .t <Greetings-Sent> {puts ""} +} -result {} + +test notify-4.12 {notify bind: event with detail defined} -body { + .t notify bind .t <Greetings-Sent> +} -result {puts ""} + +test notify-4.13 {notify bind without pattern} -body { + lsort [.t notify bind .t] +} -result {<GoodBye> <Greetings-Sent> <Greetings-Wrote>} + +test notify-5.1 {notify configure: missing args} -body { + .t notify configure +} -returnCodes error -result {wrong # args: should be ".t notify configure object pattern ?option? ?value? ?option value ...?"} + +test notify-5.2 {notify configure: unknown event} -body { + .t notify configure .t <Hello> +} -returnCodes error -result {unknown event "Hello"} + +test notify-5.3 {notify configure: unknown event with detail} -body { + .t notify configure .t <Hello-World> +} -returnCodes error -result {unknown event "Hello"} + +test notify-5.4 {notify configure: unbound event} -body { + .t notify configure .t <Scroll> +} -result {} + +test notify-5.5 {notify configure: unbound event with details} -body { + .t notify configure .t <Scroll-x> +} -result {} + +test notify-5.6 {notify configure: dynamic event} -body { + .t notify configure .t <Greetings-Sent> +} -result {-active 1} + +test notify-5.7 {notify configure: dynamic event} -body { + .t notify configure .t <Greetings-Sent> -active 0 + .t notify configure .t <Greetings-Sent> +} -result {-active 0} + +test notify-6.1 {notify generate: missing args} -body { + .t notify generate +} -returnCodes error -result {wrong # args: should be ".t notify generate pattern ?field value ...?"} + +test notify-6.2 {notify generate: invalid event} -body { + .t notify generate Greetings +} -returnCodes error -result {missing "<" in event pattern "Greetings"} + +test notify-6.3 {notify generate: virtual event} -body { + .t notify generate <<Greetings>> +} -returnCodes error -result {unknown event "<Greetings>"} + +test notify-6.4 {notify generate: unknown event} -body { + .t notify generate <Hello> +} -returnCodes error -result {unknown event "Hello"} + +test notify-6.5 {notify generate: unknown detail} -body { + .t notify generate <Greetings-Prepare> +} -returnCodes error -result {unknown detail "Prepare" for event "Greetings"} + +test notify-6.6 {notify generate: missing detail} -body { + .t notify generate <Greetings> +} -returnCodes error -result {cannot generate "<Greetings>": missing detail} + +test notify-6.7 {notify generate: NOW!} -body { + .t notify generate <Greetings-Wrote> +} -output {Hello World} + +test notify-6.8 {notify generate: not active} -body { + .t notify generate <Greetings-Sent> +} -result {} + +test notify-6.9 {notify generate: and AGAIN!} -body { + .t notify configure .t <Greetings-Sent> -active 1 + .t notify generate <Greetings-Sent> +} -output { +} + +test notify-6.10 {notify generate: invalid percent char} -body { + .t notify generate <Greetings-Sent> -foo bar +} -returnCodes error -result {invalid percent char "-foo"} + +test notify-6.11 {notify generate: odd number of field args} -body { + .t notify generate <Greetings-Sent> -f +} -returnCodes error -result {wrong # args: should be ".t notify pattern ?field value ...?"} + +test notify-6.12 {notify generate: huge number of field args} -body { + set command [list .t notify generate <Greetings-Sent>] + for {set x 1} {$x < 2048} {incr x} { + lappend command -f $x + } + eval $command +} -output { +} + +test notify-6.13 {notify generate: not so much field args} -body { + .t notify generate <Greetings-Sent> \ + -0 a -1 b -2 c -3 d -4 e -5 f -6 g -7 h -8 i -9 j -X x +} -output { +} + +test notify-6.14 {notify install/bind/generate: do some replacements} -body { + .t notify install event Percent + .t notify install detail Percent Test + .t notify bind .t <Percent-Test> \ + {puts -nonewline "%%W: %2 %b %| %~ %2 %b%%"} + .t notify generate <Percent-Test> -2 to -b be -~ not -| or +} -output {%W: to be or not to be%} + +proc doMyOwnSubst {field window eventName detail args} { + return [string map {2 TO b BE ~ NOT | OR} $field] +} + +test notify-6.15 {notify install/bind/generate: my own replacements} -body { + .t notify uninstall detail Percent Test + .t notify install detail Percent Test doMyOwnSubst + .t notify bind .t <Percent-Test> \ + {puts -nonewline "%%W: %2 %b %| %~ %2 %b%%"} + .t notify generate <Percent-Test> +} -output {%W: TO BE OR NOT TO BE%} + +test notify-6.16 {notify install/bind/generate: standard replacements} -body { + .t notify generate <Percent-Test> -2 to -b be -~ not -| or +} -output {%W: TO BE OR NOT TO BE%} + +test notify-6.17 {notify install/bind/generate: my own replacements} -body { + .t notify uninstall detail Percent Test + .t notify uninstall event Percent + .t notify install event Percent doMyOwnSubst + .t notify bind .t <Percent> \ + {puts -nonewline "%%W: %2 %b %| %~ %2 %b%%"} + .t notify generate <Percent> +} -output {%W: TO BE OR NOT TO BE%} + +test notify-6.18 {notify install/bind/generate: standard replacements} -body { + .t notify generate <Percent> -2 to -b be -~ not -| or +} -output {%W: TO BE OR NOT TO BE%} + +test notify-7.1 {notify uninstall: missing args} -body { + .t notify uninstall +} -returnCodes error -result {wrong # args: should be ".t notify uninstall option arg ..."} + +test notify-7.2 {notify uninstall: unknown command} -body { + .t notify uninstall foo +} -returnCodes error -result {bad option "foo": must be detail or event} + +test notify-7.3 {notify uninstall detail: missing args} -body { + .t notify uninstall detail +} -returnCodes error -result {wrong # args: should be ".t notify uninstall detail event detail"} + +test notify-7.4 {notify uninstall detail: too much args} -body { + .t notify uninstall detail foo bar baz +} -returnCodes error -result {wrong # args: should be ".t notify uninstall detail event detail"} + +test notify-7.5 {notify uninstall detail: unknown event} -body { + .t notify uninstall detail foo bar +} -returnCodes error -result {unknown event "foo"} + +test notify-7.6 {notify uninstall detail: unknown detail} -body { + .t notify uninstall detail Greetings GoodBye +} -returnCodes error -result {unknown detail "GoodBye" for event "Greetings"} + +test notify-7.7 {notify uninstall detail} -body { + .t notify uninstall detail Greetings Sent +} -result {} + +test notify-7.8 {notify uninstall detail: double check} -body { + lsearch -exact [.t notify detailnames Greetings] Sent +} -result {-1} + +test notify-7.9 {notify uninstall detail: delete a static detail} -body { + .t notify uninstall detail Scroll x +} -returnCodes error -result {can't uninstall static detail "x"} + +test notify-7.10 {notify uninstall event: missing args} -body { + .t notify uninstall event +} -returnCodes error -result {wrong # args: should be ".t notify uninstall event name"} + +test notify-7.11 {notify uninstall event: too much args} -body { + .t notify uninstall event foo bar +} -returnCodes error -result {wrong # args: should be ".t notify uninstall event name"} + +test notify-7.12 {notify uninstall event: unknown event} -body { + .t notify uninstall event foo +} -returnCodes error -result {unknown event "foo"} + +test notify-7.13 {notify uninstall event} -body { + .t notify uninstall event Greetings +} -result {} + +test notify-7.14 {notify uninstall event: double check} -body { + lsearch -exact [.t notify eventnames] Greetings +} -result {-1} + +test notify-7.15 {notify uninstall event: delete a static event} -body { + .t notify uninstall event Scroll +} -returnCodes error -result {can't uninstall static event "Scroll"} + +test notify-99.1 {some needed cleanup} -body { + destroy .t +} -result {} + +# cleanup +::tcltest::cleanupTests +return |