File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed
Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -195,16 +195,16 @@ if {[testConstraint aqua]} {
195195 childTkProcess create
196196}
197197
198- test send-6.1 {ServerSecure procedure} {notMacCI secureserver} {
198+ test send-6.1 {ServerSecure procedure} {nonPortable secureserver notAqua } {
199199 set a 44
200200 list [childTkProcess eval [list send [tk appname] set a 55]] $a
201201} {55 55}
202- test send-6.2 {ServerSecure procedure} {notMacCI secureserver xhost} {
202+ test send-6.2 {ServerSecure procedure} {nonPortable secureserver xhost notAqua } {
203203 set a 22
204204 exec xhost [exec hostname]
205205 list [catch {childTkProcess eval [list send [tk appname] set a 33]} msg] $a $msg
206206} {0 22 {X server insecure (must use xauth-style authorization); command ignored}}
207- test send-6.3 {ServerSecure procedure} {notMacCI secureserver xhost} {
207+ test send-6.3 {ServerSecure procedure} {nonPortable secureserver xhost notAqua } {
208208 set a abc
209209 exec xhost - [exec hostname]
210210 list [childTkProcess eval [list send [tk appname] set a new]] $a
You can’t perform that action at this time.
0 commit comments