aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRaimo Niskanen <[email protected]>2011-10-18 16:27:00 +0200
committerRaimo Niskanen <[email protected]>2011-11-17 15:52:08 +0100
commit3d4c4eaf917e92c52c6533e17c98aeab81125f3b (patch)
treec9cc22f9fc4d2b8b93372384266bff7bfdd84de0
parentc391f64508d8995a256ecf4689e79c29b65cb065 (diff)
downloadotp-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.erl9
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,