From 62c692fad7ff448ccca3505e1dd40be245cbed53 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Sun, 2 Feb 2020 23:09:48 +0100 Subject: Initial release upgrade test suite --- examples/tcp_echo/relx.config | 2 +- examples/tcp_echo/src/echo_protocol.erl | 2 +- examples/tcp_reverse/relx.config | 2 +- examples/tcp_reverse/src/reverse_protocol.erl | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) (limited to 'examples') diff --git a/examples/tcp_echo/relx.config b/examples/tcp_echo/relx.config index a850b71..ee746d5 100644 --- a/examples/tcp_echo/relx.config +++ b/examples/tcp_echo/relx.config @@ -1,2 +1,2 @@ -{release, {tcp_echo_example, "1"}, [tcp_echo]}. +{release, {tcp_echo_example, "1"}, [tcp_echo, sasl]}. {extended_start_script, true}. diff --git a/examples/tcp_echo/src/echo_protocol.erl b/examples/tcp_echo/src/echo_protocol.erl index c07b424..7312e53 100644 --- a/examples/tcp_echo/src/echo_protocol.erl +++ b/examples/tcp_echo/src/echo_protocol.erl @@ -15,7 +15,7 @@ init(Ref, Transport, _Opts = []) -> loop(Socket, Transport). loop(Socket, Transport) -> - case Transport:recv(Socket, 0, 5000) of + case Transport:recv(Socket, 0, 30000) of {ok, Data} when Data =/= <<4>> -> Transport:send(Socket, Data), loop(Socket, Transport); diff --git a/examples/tcp_reverse/relx.config b/examples/tcp_reverse/relx.config index 2a83916..2b1651f 100644 --- a/examples/tcp_reverse/relx.config +++ b/examples/tcp_reverse/relx.config @@ -1,2 +1,2 @@ -{release, {tcp_reverse_example, "1"}, [tcp_reverse]}. +{release, {tcp_reverse_example, "1"}, [tcp_reverse, sasl]}. {extended_start_script, true}. diff --git a/examples/tcp_reverse/src/reverse_protocol.erl b/examples/tcp_reverse/src/reverse_protocol.erl index 2865a60..afd78b9 100644 --- a/examples/tcp_reverse/src/reverse_protocol.erl +++ b/examples/tcp_reverse/src/reverse_protocol.erl @@ -14,7 +14,7 @@ -export([terminate/3]). -export([code_change/4]). --define(TIMEOUT, 5000). +-define(TIMEOUT, 30000). -record(state, {socket, transport}). -- cgit v1.2.3