diff options
author | treectrl <treectrl> | 2005-03-29 20:34:28 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-03-29 20:34:28 (GMT) |
commit | 8c36a1c87f13f341075e4b799689124e4e19dcaf (patch) | |
tree | b7a6dc8796a80e62814ef0fe1a5bbd6e0504c8d2 /tests | |
parent | 885d0d394aad7f60c05bb53e9aa5ce663b7ea934 (diff) | |
download | tktreectrl-8c36a1c87f13f341075e4b799689124e4e19dcaf.zip tktreectrl-8c36a1c87f13f341075e4b799689124e4e19dcaf.tar.gz tktreectrl-8c36a1c87f13f341075e4b799689124e4e19dcaf.tar.bz2 |
Renamed notify.test to notify-old.test to test deprecated syntax.
Update notify.test to test new syntax.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/notify-old.test | 375 | ||||
-rw-r--r-- | tests/notify.test | 103 |
2 files changed, 413 insertions, 65 deletions
diff --git a/tests/notify-old.test b/tests/notify-old.test new file mode 100644 index 0000000..0102e42 --- /dev/null +++ b/tests/notify-old.test @@ -0,0 +1,375 @@ +# 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-old.test,v 1.1 2005/03/29 20:34:28 treectrl 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 *} -match glob + +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 pattern ?percentsCommand?"} + +test notify-2.4 {notify install: bad pattern} -body { + .t notify install foo +} -returnCodes error -result {missing "<" in event pattern "foo"} + +test notify-2.5 {notify install event: old-style 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: old-style 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: old-style 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: old-style 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 pattern"} + +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 ?charMap? ?percentsCommand?"} + +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 {char map must have even number of elements} + +test notify-6.12 {notify generate: huge number of field args} -body { + for {set x 1} {$x < 2048} {incr x} { + lappend map f $x + } + .t notify generate <Greetings-Sent> $map +} -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 pattern"} + +test notify-7.2 {notify uninstall: unknown command} -body { + .t notify uninstall foo +} -returnCodes error -result {missing "<" in event pattern "foo"} + +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 diff --git a/tests/notify.test b/tests/notify.test index 5c29748..1e75d2b 100644 --- a/tests/notify.test +++ b/tests/notify.test @@ -10,7 +10,7 @@ # 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.2 2002/12/31 12:20:53 krischan Exp $ +# CVS: @(#) $Id: notify.test,v 1.3 2005/03/29 20:34:28 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -18,7 +18,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { } package require Tk -package_require treectrl +package require treectrl test notify-0.1 {some needed preparations} -body { treectrl .t @@ -30,7 +30,7 @@ test notify-1.1 {notify: missing args} -body { 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} +} -returnCodes error -result {bad command "foo": must be *} -match glob test notify-2.1 {notify eventnames: too much args} -body { .t notify eventnames Open @@ -42,23 +42,19 @@ test notify-2.2 {notify eventnames: nothing own installed yet} -body { test notify-2.3 {notify install: missing args} -body { .t notify install -} -returnCodes error -result {wrong # args: should be ".t notify install option arg ..."} +} -returnCodes error -result {wrong # args: should be ".t notify install pattern ?percentsCommand?"} -test notify-2.4 {notify install: unknown command} -body { +test notify-2.4 {notify install: bad pattern} -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?"} +} -returnCodes error -result {missing "<" in event pattern "foo"} 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?"} + .t notify install <foo> bar baz +} -returnCodes error -result {wrong # args: should be ".t notify install pattern ?percentsCommand?"} test notify-2.7 {notify install event} -body { - .t notify install event Greetings - .t notify install event GoodBye + .t notify install <Greetings> + .t notify install <GoodBye> } -result {} test notify-2.8 {notify eventnames: list Greetings} -body { @@ -81,17 +77,9 @@ 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 + .t notify install <Greetings-Wrote> + .t notify install <Greetings-Sent> } -result {} test notify-2.16 {notify detailnames} -body { @@ -100,30 +88,30 @@ test notify-2.16 {notify detailnames} -body { test notify-3.1 {notify linkage: missing args} -body { .t notify linkage -} -returnCodes error -result {wrong # args: should be ".t notify linkage event ?detail?"} +} -returnCodes error -result {wrong # args: should be ".t notify linkage pattern"} test notify-3.2 {notify linkage: unknown event} -body { - .t notify linkage foo + .t notify linkage <foo> } -returnCodes error -result {unknown event "foo"} test notify-3.3 {notify linkage: standard event} -body { - .t notify linkage Scroll + .t notify linkage <Scroll> } -result {static} test notify-3.4 {notify linkage: self made event} -body { - .t notify linkage Greetings + .t notify linkage <Greetings> } -result {dynamic} test notify-3.5 {notify linkage: unknown detail} -body { - .t notify linkage Greetings foo + .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 + .t notify linkage <Scroll-x> } -result {static} test notify-3.7 {notify linkage: self made event} -body { - .t notify linkage Greetings Sent + .t notify linkage <Greetings-Sent> } -result {dynamic} test notify-4.1 {notify bind: too much args} -body { @@ -211,7 +199,7 @@ test notify-5.7 {notify configure: dynamic event} -body { test notify-6.1 {notify generate: missing args} -body { .t notify generate -} -returnCodes error -result {wrong # args: should be ".t notify generate pattern ?charMap?"} +} -returnCodes error -result {wrong # args: should be ".t notify generate pattern ?charMap? ?percentsCommand?"} test notify-6.2 {notify generate: invalid event} -body { .t notify generate Greetings @@ -270,20 +258,18 @@ test notify-6.13 {notify generate: not so much field args} -body { } 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 install <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] +proc doMyOwnSubst {char object eventName detail charMap} { + return [string map {2 TO b BE ~ NOT | OR} $char] } 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 install <Percent-Test> doMyOwnSubst .t notify bind .t <Percent-Test> \ {puts -nonewline "%%W: %2 %b %| %~ %2 %b%%"} .t notify generate <Percent-Test> @@ -294,9 +280,8 @@ test notify-6.16 {notify install/bind/generate: standard replacements} -body { } -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 uninstall <Percent-Test> + .t notify install <Percent> doMyOwnSubst .t notify bind .t <Percent> \ {puts -nonewline "%%W: %2 %b %| %~ %2 %b%%"} .t notify generate <Percent> @@ -308,30 +293,26 @@ test notify-6.18 {notify install/bind/generate: standard replacements} -body { test notify-7.1 {notify uninstall: missing args} -body { .t notify uninstall -} -returnCodes error -result {wrong # args: should be ".t notify uninstall option arg ..."} +} -returnCodes error -result {wrong # args: should be ".t notify uninstall pattern"} test notify-7.2 {notify uninstall: unknown command} -body { .t notify uninstall foo -} -returnCodes error -result {bad option "foo": must be detail or event} +} -returnCodes error -result {missing "<" in event pattern "foo"} -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.4 {notify uninstall: too much args} -body { + .t notify uninstall foo bar +} -returnCodes error -result {wrong # args: should be ".t notify uninstall pattern"} test notify-7.5 {notify uninstall detail: unknown event} -body { - .t notify uninstall detail foo bar + .t notify uninstall <foo-bar> } -returnCodes error -result {unknown event "foo"} test notify-7.6 {notify uninstall detail: unknown detail} -body { - .t notify uninstall detail Greetings GoodBye + .t notify uninstall <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 + .t notify uninstall <Greetings-Sent> } -result {} test notify-7.8 {notify uninstall detail: double check} -body { @@ -339,23 +320,15 @@ test notify-7.8 {notify uninstall detail: double check} -body { } -result {-1} test notify-7.9 {notify uninstall detail: delete a static detail} -body { - .t notify uninstall detail Scroll x + .t notify uninstall <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 + .t notify uninstall <foo> } -returnCodes error -result {unknown event "foo"} test notify-7.13 {notify uninstall event} -body { - .t notify uninstall event Greetings + .t notify uninstall <Greetings> } -result {} test notify-7.14 {notify uninstall event: double check} -body { @@ -363,7 +336,7 @@ test notify-7.14 {notify uninstall event: double check} -body { } -result {-1} test notify-7.15 {notify uninstall event: delete a static event} -body { - .t notify uninstall event Scroll + .t notify uninstall <Scroll> } -returnCodes error -result {can't uninstall static event "Scroll"} test notify-99.1 {some needed cleanup} -body { |