diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-11-04 19:14:26 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-11-04 19:16:00 +1000 |
commit | 57eb43959e993e6166a09e4d883ab0e944f7b4af (patch) | |
tree | f5d102cf6a2e6b4a8020724918211c1395dccd3c /tests | |
parent | 105f8475cd9e1c4aeb328c341dc01228488a1524 (diff) | |
download | jimtcl-57eb43959e993e6166a09e4d883ab0e944f7b4af.zip jimtcl-57eb43959e993e6166a09e4d883ab0e944f7b4af.tar.gz jimtcl-57eb43959e993e6166a09e4d883ab0e944f7b4af.tar.bz2 |
tests: exec2-3.2 now passes on OpenBSD
Reported-by: Stuart Cassoff <stwo@bell.net>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
-rw-r--r-- | tests/exec2.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/exec2.test b/tests/exec2.test index 22eef47..bf5a187 100644 --- a/tests/exec2.test +++ b/tests/exec2.test @@ -52,13 +52,13 @@ test exec2-3.1 "close pipeline return value" { list $rc $msg $status $exitcode } {1 {child process exited abnormally} CHILDSTATUS 1} -# Note that on at least one Windows system, this fails to return SIGPIPE -# and cat simply fails instead. How to it simply returns test exec2-3.2 "close pipeline return value" -constraints pipe -body { # Create a pipe and immediately close the read end lassign [pipe] r w close $r - set bigstring [string repeat a 10000] + # Write more than 64KB which is maximum size of the pipe buffers + # on all systems we have seen + set bigstring [string repeat a 100000] set f [open [list |cat << $bigstring >$@w]] set rc [catch {close $f} msg opts] lassign [dict get $opts -errorcode] status pid exitcode |