Renamed notify.test to notify-old.test to test deprecated syntax.

Update notify.test to test new syntax.

1 files changed, 375 insertions, 0 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