diff options
| author | Rickard Green <[email protected]> | 2017-06-30 19:10:31 +0200 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2017-08-28 14:42:49 +0200 |
| commit | ca4b42a159c5cc937967c2d04818afa6b8022e0b (patch) | |
| tree | e2e55d51e7dd3e929af4fa638385468fd9a00c37 /lib/kernel/examples | |
| parent | 87677f64629f1f738e132659c445c3431b02c0b2 (diff) | |
| download | otp-ca4b42a159c5cc937967c2d04818afa6b8022e0b.tar.gz otp-ca4b42a159c5cc937967c2d04818afa6b8022e0b.tar.bz2 otp-ca4b42a159c5cc937967c2d04818afa6b8022e0b.zip | |
Support for running test suites with gen_tcp_dist
Diffstat (limited to 'lib/kernel/examples')
| -rw-r--r-- | lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl b/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl index 002d09fc74..98554ed805 100644 --- a/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl +++ b/lib/kernel/examples/gen_tcp_dist/src/gen_tcp_dist.erl @@ -736,6 +736,15 @@ dist_cntrlr_output_loop(DHandle, Socket) -> end, dist_cntrlr_output_loop(DHandle, Socket); + {send, From, Ref, Data} -> + %% This is for testing only! + %% + %% Needed by some OTP distribution + %% test suites... + sock_send(Socket, Data), + From ! {Ref, ok}, + dist_cntrlr_output_loop(DHandle, Socket); + _ -> %% Drop garbage message... dist_cntrlr_output_loop(DHandle, Socket) |