From 3d4c4eaf917e92c52c6533e17c98aeab81125f3b Mon Sep 17 00:00:00 2001 From: Raimo Niskanen Date: Tue, 18 Oct 2011 16:27:00 +0200 Subject: kernel: Adjust SCTP test to SuSE quirk inet:port/1 on peeled off socket returns 0. Bug? Who's? --- lib/kernel/test/gen_sctp_SUITE.erl | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lib/kernel/test/gen_sctp_SUITE.erl b/lib/kernel/test/gen_sctp_SUITE.erl index d0b0bdf4d4..300152ddce 100644 --- a/lib/kernel/test/gen_sctp_SUITE.erl +++ b/lib/kernel/test/gen_sctp_SUITE.erl @@ -43,7 +43,7 @@ all() -> groups() -> []. -init_per_suite(Config) -> +init_per_suite(_Config) -> case gen_sctp:open() of {ok,Socket} -> gen_sctp:close(Socket), @@ -52,7 +52,7 @@ init_per_suite(Config) -> {skip,"SCTP not supported on this machine"} end. -end_per_suite(_Conifig) -> +end_per_suite(_Config) -> ok. init_per_group(_GroupName, Config) -> @@ -975,8 +975,9 @@ peeloff(Config) when is_list(Config) -> %% ?line S3 = socket_peeloff(Socket1, S1Ai, Timeout), ?line ?LOGVAR(S3), - ?line P3 = socket_call(S3, get_port), - ?line ?LOGVAR(P3), + ?line P3_X = socket_call(S3, get_port), + ?line ?LOGVAR(P3_X), + ?line P3 = case P3_X of 0 -> P1; _ -> P3_X end, ?line [{_,#sctp_paddrinfo{assoc_id=S3Ai,state=active}}] = socket_call(S3, {getopts,[{sctp_get_peer_addr_info, -- cgit v1.2.3