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