diff options
| author | Raimo Niskanen <[email protected]> | 2011-10-18 16:27:00 +0200 |
|---|---|---|
| committer | Raimo Niskanen <[email protected]> | 2011-11-17 15:52:08 +0100 |
| commit | 3d4c4eaf917e92c52c6533e17c98aeab81125f3b (patch) | |
| tree | c9cc22f9fc4d2b8b93372384266bff7bfdd84de0 | |
| parent | c391f64508d8995a256ecf4689e79c29b65cb065 (diff) | |
| download | otp-3d4c4eaf917e92c52c6533e17c98aeab81125f3b.tar.gz otp-3d4c4eaf917e92c52c6533e17c98aeab81125f3b.tar.bz2 otp-3d4c4eaf917e92c52c6533e17c98aeab81125f3b.zip | |
kernel: Adjust SCTP test to SuSE quirk
inet:port/1 on peeled off socket returns 0. Bug? Who's?
| -rw-r--r-- | lib/kernel/test/gen_sctp_SUITE.erl | 9 |
1 files 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, |