diff options
author | Raimo Niskanen <[email protected]> | 2016-08-01 10:36:02 +0200 |
---|---|---|
committer | Raimo Niskanen <[email protected]> | 2016-08-01 10:45:53 +0200 |
commit | 0c910241fdf66b5b0165e9a45c21ce38e83f8b28 (patch) | |
tree | 254e13a92a70b3ba8179a79af4b0e4812a871cbd /lib/inets/test/inets_SUITE.erl | |
parent | a9e53ba50d31debfbc6a85d713ce9c76b029ed68 (diff) | |
download | otp-0c910241fdf66b5b0165e9a45c21ce38e83f8b28.tar.gz otp-0c910241fdf66b5b0165e9a45c21ce38e83f8b28.tar.bz2 otp-0c910241fdf66b5b0165e9a45c21ce38e83f8b28.zip |
Test inet6fb4 in basic suite
Diffstat (limited to 'lib/inets/test/inets_SUITE.erl')
-rw-r--r-- | lib/inets/test/inets_SUITE.erl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lib/inets/test/inets_SUITE.erl b/lib/inets/test/inets_SUITE.erl index 5eaf3a28a0..38b8229389 100644 --- a/lib/inets/test/inets_SUITE.erl +++ b/lib/inets/test/inets_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1997-2015. All Rights Reserved. +%% Copyright Ericsson AB 1997-2016. All Rights Reserved. %% %% Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. @@ -212,11 +212,19 @@ start_httpd(Config) when is_list(Config) -> Pids0 = [ServicePid || {_, ServicePid} <- inets:services()], true = lists:member(Pid0, Pids0), [_|_] = inets:services_info(), - inets:stop(httpd, Pid0), ct:sleep(500), + Pids1 = [ServicePid || {_, ServicePid} <- inets:services()], + false = lists:member(Pid0, Pids1), + {ok, Pid0b} = + inets:start(httpd, [{port, 0}, {ipfamily, inet6fb4} | HttpdConf]), + Pids0b = [ServicePid || {_, ServicePid} <- inets:services()], + true = lists:member(Pid0b, Pids0b), + [_|_] = inets:services_info(), + inets:stop(httpd, Pid0b), + ct:sleep(500), Pids1 = [ServicePid || {_, ServicePid} <- inets:services()], - false = lists:member(Pid0, Pids1), + false = lists:member(Pid0b, Pids1), {ok, Pid1} = inets:start(httpd, [{port, 0}, {ipfamily, inet} | HttpdConf], stand_alone), |