From 4be97f37cb22d2f709c86632384e84827150c33d Mon Sep 17 00:00:00 2001 From: treectrl Date: Fri, 15 Jul 2005 01:43:39 +0000 Subject: Update tests for recent changes (mostly changes in error messages). --- tests/item.test | 22 +++++++++++----------- tests/notify-old.test | 8 ++++---- tests/notify.test | 8 ++++---- tests/style.test | 10 +++++----- tests/treectrl.test | 10 +++++----- 5 files changed, 29 insertions(+), 29 deletions(-) diff --git a/tests/item.test b/tests/item.test index ba2e5f8..19a4691 100644 --- a/tests/item.test +++ b/tests/item.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: item.test,v 1.11 2005/06/03 02:39:59 treectrl Exp $ +# CVS: @(#) $Id: item.test,v 1.12 2005/07/15 01:43:39 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -26,7 +26,7 @@ test item-0.1 {some needed preparations} -body { test item-1.1 {item: missing command} -body { .t item -} -returnCodes error -result {wrong # args: should be ".t item command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t item command ?arg arg ...?"} test item-2.2 {item: invalid command} -body { .t item foo @@ -180,7 +180,7 @@ test item-12.2 {item remove} -body { test item-13.1 {item complex: missing args} -body { .t item complex 8 -} -returnCodes error -result {wrong # args: should be ".t item complex item list..."} +} -returnCodes error -result {wrong # args: should be ".t item complex item list ..."} test item-13.2 {item complex: only allowed if column style is defined} -body { .t item complex 8 {{e1 -text Hallo}} @@ -190,7 +190,7 @@ test item-13.3 {item complex: invalid list} -body { .t column create .t item style set 8 0 testStyle .t item complex 8 {{e1 -text}} -} -returnCodes error -result {wrong # args: should be "element option value..."} +} -returnCodes error -result {wrong # args: should be "element option value ..."} test item-13.4 {item complex: element name not defined in style} -body { .t item complex 8 {{e1 -text Hallo}} @@ -212,11 +212,11 @@ test item-14.2 {item element: invalid command} -body { .t item element foo 8 0 eText } -returnCodes error -result {bad command "foo": must be *} -match glob -test item-14.3 {item element actual: missing arg} -body { - .t item element actual 8 0 eText -} -returnCodes error -result {wrong # args: should be ".t item element actual item column element option"} +test item-14.3 {item element perstate: missing arg} -body { + .t item element perstate 8 0 eText +} -returnCodes error -result {wrong # args: should be ".t item element perstate item column element option ?stateList?"} -test item-14.4 {item element actual} -body { +test item-14.4 {item element perstate} -body { .t item element actual 8 0 eText -fill } -result {red} @@ -263,7 +263,7 @@ test item-15.5 {item style elements: invalid item} -body { test item-15.6 {item style elements: item without style} -body { .t item style elements 1 0 -} -returnCodes error -result {item 1 doesn't have column 0} +} -returnCodes error -result {item 1 column 0 has no style} test item-15.7 {item style elements} -body { .t item style elements 8 0 @@ -312,11 +312,11 @@ test item-15.16 {item style set: invalid item} -body { test item-15.17 {item style set: without args returns all styles} -body { .t item style set 2 -} -result {} +} -result {{}} test item-15.18 {item style set: without args returns style} -body { .t item style set 2 0 -} -returnCodes error -result {item 2 doesn't have column 0} +} -result {} test item-15.19 {item style set: without args returns style} -body { .t item style set 8 0 diff --git a/tests/notify-old.test b/tests/notify-old.test index 80ac230..873ec51 100644 --- a/tests/notify-old.test +++ b/tests/notify-old.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-old.test,v 1.2 2005/05/11 03:31:59 treectrl Exp $ +# CVS: @(#) $Id: notify-old.test,v 1.3 2005/07/15 01:43:39 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -26,7 +26,7 @@ test notify-0.1 {some needed preparations} -body { test notify-1.1 {notify: missing args} -body { .t notify -} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg ...?"} test notify-1.2 {notify: unknown command} -body { .t notify foo @@ -38,7 +38,7 @@ test notify-2.1 {notify eventnames: too much args} -body { test notify-2.2 {notify eventnames: nothing own installed yet} -body { lsort [.t notify eventnames] -} -result {ActiveItem Collapse Expand ItemDelete Scroll Selection} +} -result {ActiveItem Collapse Expand ItemDelete ItemVisibility Scroll Selection} test notify-2.3 {notify install: missing args} -body { .t notify install @@ -63,7 +63,7 @@ test notify-2.7 {notify install event} -body { test notify-2.8 {notify eventnames: list Greetings} -body { lsort [.t notify eventnames] -} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete Scroll Selection} +} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete ItemVisibility Scroll Selection} test notify-2.9 {notify detailnames: missing args} -body { .t notify detailnames diff --git a/tests/notify.test b/tests/notify.test index 3a1caf3..0e9ffc4 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.4 2005/05/11 03:31:59 treectrl Exp $ +# CVS: @(#) $Id: notify.test,v 1.5 2005/07/15 01:43:39 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -26,7 +26,7 @@ test notify-0.1 {some needed preparations} -body { test notify-1.1 {notify: missing args} -body { .t notify -} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t notify command ?arg arg ...?"} test notify-1.2 {notify: unknown command} -body { .t notify foo @@ -38,7 +38,7 @@ test notify-2.1 {notify eventnames: too much args} -body { test notify-2.2 {notify eventnames: nothing own installed yet} -body { lsort [.t notify eventnames] -} -result {ActiveItem Collapse Expand ItemDelete Scroll Selection} +} -result {ActiveItem Collapse Expand ItemDelete ItemVisibility Scroll Selection} test notify-2.3 {notify install: missing args} -body { .t notify install @@ -59,7 +59,7 @@ test notify-2.7 {notify install event} -body { test notify-2.8 {notify eventnames: list Greetings} -body { lsort [.t notify eventnames] -} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete Scroll Selection} +} -result {ActiveItem Collapse Expand GoodBye Greetings ItemDelete ItemVisibility Scroll Selection} test notify-2.9 {notify detailnames: missing args} -body { .t notify detailnames diff --git a/tests/style.test b/tests/style.test index c2b6ab2..3c198c0 100644 --- a/tests/style.test +++ b/tests/style.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: style.test,v 1.5 2005/06/03 02:39:59 treectrl Exp $ +# CVS: @(#) $Id: style.test,v 1.6 2005/07/15 01:43:39 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -34,7 +34,7 @@ test style-0.1 {some other preparations} -body { test style-1.1 {style: missing args} -body { .t style -} -returnCodes error -result {wrong # args: should be ".t style command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t style command ?arg arg ...?"} test style-1.2 {style: invalid command} -body { .t style foo @@ -46,7 +46,7 @@ test style-1.3 {style names: no style exists yet} -body { test style-2.1 {style create: missing args} -body { .t style create -} -returnCodes error -result {wrong # args: should be ".t style create name ?option value...?"} +} -returnCodes error -result {wrong # args: should be ".t style create name ?option value ...?"} test style-2.2 {style create: invalid option} -body { .t style create testStyle -foo bar @@ -125,7 +125,7 @@ test style-6.1 {style layout: missing args} -body { test style-6.2 {style layout: no options specified} -body { .t style layout testStyle eText -} -result {-padx 0 -pady 0 -ipadx 0 -ipady 0 -expand {} -iexpand {} -detach no * -squeeze {} -union {}} -match glob +} -result {-detach no -expand {} -height {} -iexpand {} *} -match glob test style-6.3 {style layout: option -padx} -body { .t style layout testStyle eText -padx 3 @@ -195,7 +195,7 @@ test style-6.17 {style layout: option invalid -detach} -body { test style-6.18 {style layout: option -detach} -body { .t style layout testStyle eText -detach true .t style layout testStyle eText -detach -} -result {1} +} -result {yes} test style-99.1 {some needed cleanup} -body { destroy .t diff --git a/tests/treectrl.test b/tests/treectrl.test index b2f180b..27a3b5d 100644 --- a/tests/treectrl.test +++ b/tests/treectrl.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. # -# RCS: @(#) $Id: treectrl.test,v 1.26 2005/06/03 02:39:59 treectrl Exp $ +# RCS: @(#) $Id: treectrl.test,v 1.27 2005/07/15 01:43:39 treectrl Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -497,7 +497,7 @@ test treectrl-2.37 {modifier cocktail} -body { test treectrl-5.1 {state: missing args} -body { .t state -} -returnCodes error -result {wrong # args: should be ".t state command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t state command ?arg arg ...?"} test treectrl-5.2 {state: invalid command} -body { .t state foo @@ -593,7 +593,7 @@ test treectrl-7.0 {some prerequisites for the marquee test} -body { test treectrl-7.1 {marquee: missing args} -body { .t marquee -} -returnCodes error -result {wrong # args: should be ".t marquee command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t marquee command ?arg arg ...?"} test treectrl-7.2 {marquee: unknown command} -body { .t marquee foo @@ -646,7 +646,7 @@ test treectrl-7.12 {marquee visible} -body { test treectrl-8.1 {selection: missing args} -body { .t selection -} -returnCodes error -result {wrong # args: should be ".t selection command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t selection command ?arg arg ...?"} test treectrl-8.2 {selection: unknown command} -body { .t selection foo @@ -902,7 +902,7 @@ test treectrl-15.11 {identify: item (to the right)} -body { test treectrl-16.1 {dragimage: missing args} -body { .t dragimage -} -returnCodes error -result {wrong # args: should be ".t dragimage command ?arg arg...?"} +} -returnCodes error -result {wrong # args: should be ".t dragimage command ?arg arg ...?"} test treectrl-16.2 {dragimage: unknown command} -body { .t dragimage foo -- cgit v0.12