From aaab597eec3cf327b8ba1d8d8bd51118fe277d85 Mon Sep 17 00:00:00 2001 From: krischan Date: Mon, 30 Dec 2002 10:58:02 +0000 Subject: adepted to improved behaviour of tkTreeCtrl, but there seems to be still one (new?) error. --- tests/treectrl.test | 48 ++++++++++++++++-------------------------------- 1 file changed, 16 insertions(+), 32 deletions(-) diff --git a/tests/treectrl.test b/tests/treectrl.test index 20f56c0..b8ecdc1 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.12 2002/12/29 13:48:34 krischan Exp $ +# RCS: @(#) $Id: treectrl.test,v 1.13 2002/12/30 10:58:02 krischan Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest 2 @@ -1741,15 +1741,11 @@ test tree-14.9 {column configure: invalid column} -body { test tree-14.10 {column configure: list all options} -body { .t column configure column1 -} -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpadw {} {} 6 6} {-arrowpade {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} column1} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}} - -test tree-14.10 {column configure: list all options} -body { - .t column configure column1 -} -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpadw {} {} 6 6} {-arrowpade {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} column1} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}} +} -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpade {} {} 6 6} {-arrowpadw {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadn {} {} 0 0} {-imagepads {} {} 0 0} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} column1} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadn {} {} 0 0} {-textpads {} {} 0 0} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}} test tree-14.11 {column configure: tail column} -body { .t column configure tail -} -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpadw {} {} 6 6} {-arrowpade {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} {}} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}} +} -result {{-arrow {} {} none none} {-arrowside {} {} right right} {-arrowgravity {} {} left left} {-arrowpade {} {} 6 6} {-arrowpadw {} {} 6 6} {-bitmap {} {} {} {}} {-background {} {} #d9d9d9 #d9d9d9} {-borderwidth {} {} 2 2} {-button {} {} 1 1} {-expand {} {} 0 0} {-font {} {} {} {}} {-image {} {} {} {}} {-imagepade {} {} 6 6} {-imagepadn {} {} 0 0} {-imagepads {} {} 0 0} {-imagepadw {} {} 6 6} {-itembackground {} {} {} {}} {-justify {} {} left left} {-minwidth {} {} {} {}} {-relief {} {} raised raised} {-stepwidth {} {} {} {}} {-sunken {} {} 0 0} {-tag {} {} {} tail} {-text {} {} {} {}} {-textcolor {} {} Black Black} {-textpade {} {} 6 6} {-textpadn {} {} 0 0} {-textpads {} {} 0 0} {-textpadw {} {} 6 6} {-width {} {} {} {}} {-visible {} {} 1 1} {-widthhack {} {} 0 0}} test tree-14.12 {column configure: invalid -arrow} -body { .t column configure column1 -arrow straight @@ -1967,15 +1963,12 @@ test tree-14.58 {column configure: -tag} -body { } -result {column2} test tree-14.59 {column cget: -tag of tail} -body { - # I think this should return tail... .t column cget tail -tag -} -result {} +} -result {tail} test tree-14.60 {column configure/cget: -tag of tail} -body { - # I think this should be forbidden... .t column configure tail -tag head - .t column cget tail -tag -} -result {head} +} -returnCodes error -result {can't change tag of tail column} test tree-14.61 {column cget: specify tail by its tag} -body { .t column cget head -tag @@ -2220,11 +2213,11 @@ test tree-17.6 {notify install: unknown command} -body { test tree-17.7 {notify install event: missing args} -body { .t notify install event -} -returnCodes error -result {wrong # args: should be ".t notify install event name"} +} -returnCodes error -result {wrong # args: should be ".t notify install event name ?percentsCommand?"} test tree-17.8 {notify install event: too much args} -body { - .t notify install event foo bar -} -returnCodes error -result {wrong # args: should be ".t notify install event name"} + .t notify install event foo bar baz +} -returnCodes error -result {wrong # args: should be ".t notify install event name ?percentsCommand?"} test tree-17.9 {notify install event} -body { .t notify install event Greetings @@ -2352,7 +2345,7 @@ test tree-17.38 {notify bind without pattern} -body { test tree-17.39 {notify configure: missing args} -body { .t notify configure -} -returnCodes error -result {wrong # args: should be ".t notify configure window pattern ?option? ?value? ?option value ...?"} +} -returnCodes error -result {wrong # args: should be ".t notify configure object pattern ?option? ?value? ?option value ...?"} test tree-17.40 {notify configure: unknown event} -body { .t notify configure .t @@ -2362,13 +2355,11 @@ test tree-17.41 {notify configure: unknown event with detail} -body { .t notify configure .t } -returnCodes error -result {unknown event "Hello"} -# disabled since it generates a segfault. -test tree-17.42 {notify configure: unbound event} -constraints knownBug -body { +test tree-17.42 {notify configure: unbound event} -body { .t notify configure .t } -result {} -# disabled since it generates a segfault. -test tree-17.43 {notify configure: unbound event with details} -constraints knownBug -body { +test tree-17.43 {notify configure: unbound event with details} -body { .t notify configure .t } -result {} @@ -2390,9 +2381,8 @@ test tree-17.47 {notify generate: invalid event} -body { } -returnCodes error -result {missing "<" in event pattern "Greetings"} test tree-17.48 {notify generate: virtual event} -body { - # The error message could be better... .t notify generate <> -} -returnCodes error -result {unknown event ""} test tree-17.49 {notify generate: unknown event} -body { .t notify generate @@ -2428,24 +2418,18 @@ test tree-17.56 {notify generate: odd number of field args} -body { .t notify generate -f } -returnCodes error -result {wrong # args: should be ".t notify pattern ?field value ...?"} -# disabled since it segfaults. -test tree-17.57 {notify generate: huge number of field args} -constraints knownBug -body { - # This is mean... +test tree-17.57 {notify generate: huge number of field args} -body { set command [list .t notify generate ] for {set x 1} {$x < 2048} {incr x} { lappend command -f $x } eval $command -} -returnCodes error -result {cannot define more than 10 fields} +} -output { +} -test tree-17.58 {notify generate: too much field args} -constraints knownBug -body { +test tree-17.58 {notify generate: not so much field args} -body { .t notify generate \ -0 a -1 b -2 c -3 d -4 e -5 f -6 g -7 h -8 i -9 j -X x -} -returnCodes error -result {cannot define more than 10 fields} - -test tree-17.59 {notify generate: max number of field args} -body { - .t notify generate \ - -0 a -1 b -2 c -3 d -4 e -5 f -6 g -7 h -8 i -9 j } -output { } -- cgit v0.12