Lines Matching refs:add
39 test privacy-1.2 {"itk_component add" requires certain arguments} {
40 list [catch {$testobj do itk_component add foo} msg] $msg \
41 [catch {$testobj do itk_component add foo bar baz qux} msg] $msg
42 } {1 {wrong # args: should be "itk_component add ?-protected? ?-private? ?--? name createCmds ?optionCmds?"} 1 {wrong # args: should be "add ?-protected? ?-private? ?--? name createCmds ?optionCmds?}}
44 test privacy-1.3 {"itk_component add" rejects invalid options} {
46 $testobj do itk_component add -foo bar baz qux
49 $testobj do itk_component add -- -foo {label $itk_interior.l}
53 test privacy-1.4 {"itk_component add" recognizes privacy options} {
55 $testobj do itk_component add -protected x {label $itk_interior.x}
58 $testobj do itk_component add -private y {label $itk_interior.y}
67 test privacy-1.6 {define a derived class and add protected/private comps} {
78 $testobj2 TestPrivacy::do itk_component add -private x {
81 $testobj2 TestPrivacy::do itk_component add -protected y {
84 $testobj2 TestPrivacy::do itk_component add z {