diff options
Diffstat (limited to 'tests/send.test')
| -rw-r--r-- | tests/send.test | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/send.test b/tests/send.test index 0d539da..945d4d0 100644 --- a/tests/send.test +++ b/tests/send.test @@ -14,7 +14,6 @@ package require tcltest 2.1 eval tcltest::configure $argv tcltest::loadTestedCommands -testConstraint secureserver 1 testConstraint xhost [llength [auto_execok xhost]] # Compute a script that will load Tk into a child interpreter. @@ -292,6 +291,8 @@ test send-8.15 {Tk_SendCmd procedure, local interp, error info} {secureserver te while executing "open bogus_file_name" invoked from within +"if 1 {open bogus_file_name}" + invoked from within "send t_s_1 {if 1 {open bogus_file_name}}"} {POSIX ENOENT {no such file or directory}}} test send-8.16 {Tk_SendCmd procedure, bogusCommWindow} {secureserver testsend} { testsend prop root InterpRegistry "10234 bogus\n" |