Fix [9ba9729ef1]: Limitation of [send] on macOS is not reflected in documentation and tests

Author: 1minus1is0

doc/send.n

@@ -90,6 +90,11 @@ they use some other form of authorization
 such as that provide by \fBxauth\fR.
 Under Windows, \fBsend\fR is currently disabled.  Most of the
 functionality is provided by the \fBdde\fR command instead.
+.SH LIMITATIONS
+.PP
+Under macOS/aqua, the send command works only with interpreters that exist in
+the same process (these are returned by "winfo interps"). Invocations that
+target an interpreter that exists in another process don't accomplish anything.
 .SH EXAMPLE
 .PP
 This script fragment can be used to make an application that only runs

tests/send.test

@@ -135,7 +135,7 @@ test send-5.4 {ValidateName procedure} {secureserver testsend} {
     winfo interps
 } {test}
 
-if {[testConstraint nonPortable] && [testConstraint xhost]} {
+if {[testConstraint nonPortable] && [testConstraint xhost] && [testConstraint notAqua]} {
     winfo interps
     tk appname tktest
     update
@@ -146,16 +146,16 @@ if {[testConstraint nonPortable] && [testConstraint xhost]} {
     }
 }
 
-test send-6.1 {ServerSecure procedure} {nonPortable secureserver} {
+test send-6.1 {ServerSecure procedure} {nonPortable secureserver notAqua} {
     set a 44
     list [childTkProcess eval [list send [tk appname] set a 55]] $a
 } {55 55}
-test send-6.2 {ServerSecure procedure} {nonPortable secureserver xhost} {
+test send-6.2 {ServerSecure procedure} {nonPortable secureserver xhost notAqua} {
     set a 22
     exec xhost [exec hostname]
     list [catch {childTkProcess eval [list send [tk appname] set a 33]} msg] $a $msg
 } {0 22 {X server insecure (must use xauth-style authorization); command ignored}}
-test send-6.3 {ServerSecure procedure} {nonPortable secureserver xhost} {
+test send-6.3 {ServerSecure procedure} {nonPortable secureserver xhost notAqua} {
     set a abc
     exec xhost - [exec hostname]
     list [childTkProcess eval [list send [tk appname] set a new]] $a
@@ -194,7 +194,7 @@ test send-8.1 {Tk_SendCmd procedure, options} {secureserver notAqua} {
     childTkProcess exit
     lappend result $a
 } {66 77}
-test send-8.2 {Tk_SendCmd procedure, options} {secureserver altDisplay} {
+test send-8.2 {Tk_SendCmd procedure, options} {secureserver altDisplay notAqua} {
     childTkProcess create -display $env(TK_ALT_DISPLAY)
     tk appname xyzgorp
     set a homeDisplay
@@ -291,7 +291,7 @@ test send-8.16 {Tk_SendCmd procedure, bogusCommWindow} {secureserver testsend fa
 
 catch {interp delete t_s_1}
 
-test send-8.17 {Tk_SendCmd procedure, deferring events} {secureserver nonPortable} {
+test send-8.17 {Tk_SendCmd procedure, deferring events} {secureserver nonPortable notAqua} {
     # Non-portable because some window managers ignore "raise"
     # requests so can't guarantee that new app's window won't
     # obscure .f, thereby masking the Expose event.
@@ -311,7 +311,7 @@ test send-8.17 {Tk_SendCmd procedure, deferring events} {secureserver nonPortabl
     childTkProcess exit
     lappend result $a
 } {{no event yet} {no event yet} exposed}
-test send-8.18 {Tk_SendCmd procedure, error in remote app} {secureserver} {
+test send-8.18 {Tk_SendCmd procedure, error in remote app} {secureserver notAqua} {
     childTkProcess create
     set app [childTkProcess eval {tk appname}]
     set result [string tolower [list [catch {send $app open bad_name} msg] \
@@ -323,7 +323,7 @@ test send-8.18 {Tk_SendCmd procedure, error in remote app} {secureserver} {
 "open bad_name"
     invoked from within
 "send $app open bad_name"} {posix enoent {no such file or directory}}}
-test send-8.19 {Tk_SendCmd, using modal timeouts} {secureserver} {
+test send-8.19 {Tk_SendCmd, using modal timeouts} {secureserver notAqua} {
     childTkProcess create
     set app [childTkProcess eval {tk appname}]
     set x no
@@ -483,14 +483,14 @@ test send-10.17 {SendEventProc procedure, errorCode and errorInfo} {secureserver
     set errorInfo oldErrorInfo
     list [catch {send dummy foo} msg] $msg $errorInfo $errorCode
 } {4 {} oldErrorInfo oldErrorCode}
-test send-10.18 {SendEventProc procedure, send kills application} {secureserver testsend} {
+test send-10.18 {SendEventProc procedure, send kills application} {secureserver testsend notAqua} {
     childTkProcess create
     childTkProcess eval {tk appname t_s_3}
     set x [list [catch {send t_s_3 destroy .} msg] $msg]
     childTkProcess exit
     set x
 } {0 {}}
-test send-10.19 {SendEventProc procedure, send exits} {secureserver testsend} {
+test send-10.19 {SendEventProc procedure, send exits} {secureserver testsend notAqua} {
     childTkProcess create
     childTkProcess eval {tk appname t_s_3}
     set x [list [catch {send t_s_3 exit} msg] $msg]
@@ -556,7 +556,7 @@ test send-13.2 {DeleteProc procedure} {secureserver notAqua} {
     lappend result [winfo interps] [info commands send]
 } {{} {} foo send}
 
-test send-14.1 {SendRestrictProc procedure, sends crossing from different displays} {secureserver altDisplay} {
+test send-14.1 {SendRestrictProc procedure, sends crossing from different displays} {secureserver altDisplay notAqua} {
     childTkProcess create -display $env(TK_ALT_DISPLAY)
     set result [childTkProcess eval "
     toplevel .t -screen [winfo screen .]