diff options
| author | Björn Gustavsson <[email protected]> | 2016-02-25 15:28:25 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-03-09 14:02:50 +0100 |
| commit | ca290148fbde80f1cda249c1c15562c5bc9aedaa (patch) | |
| tree | 904a73d7f61f001c5a3448a14d80a684c10ae61c /lib/kernel/test/gen_sctp_SUITE.erl | |
| parent | 362707ca44fcfb269f9d981dee13233f1aa7cf2d (diff) | |
| download | otp-ca290148fbde80f1cda249c1c15562c5bc9aedaa.tar.gz otp-ca290148fbde80f1cda249c1c15562c5bc9aedaa.tar.bz2 otp-ca290148fbde80f1cda249c1c15562c5bc9aedaa.zip | |
Eliminate use of test_server:fail/0,1
Diffstat (limited to 'lib/kernel/test/gen_sctp_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/gen_sctp_SUITE.erl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/kernel/test/gen_sctp_SUITE.erl b/lib/kernel/test/gen_sctp_SUITE.erl index 11ffdb003e..2bd1e63804 100644 --- a/lib/kernel/test/gen_sctp_SUITE.erl +++ b/lib/kernel/test/gen_sctp_SUITE.erl @@ -208,7 +208,7 @@ xfer_min(Config) when is_list(Config) -> ?line ok = gen_sctp:close(Sb), ?line receive - Msg -> test_server:fail({received,Msg}) + Msg -> ct:fail({received,Msg}) after 17 -> ok end, ok. @@ -283,7 +283,7 @@ xfer_active(Config) when is_list(Config) -> assoc_id=SbAssocId}], Data}} -> ok after Timeout -> - ?line test_server:fail({timeout,flush()}) + ct:fail({timeout,flush()}) end, ?line ok = gen_sctp:send(Sb, SbAssocId, 0, Data), ?line receive @@ -292,7 +292,7 @@ xfer_active(Config) when is_list(Config) -> assoc_id=SaAssocId}], Data}} -> ok after Timeout -> - ?line test_server:fail({timeout,flush()}) + ct:fail({timeout,flush()}) end, %% ?line ok = gen_sctp:abort(Sa, SaAssocChange), @@ -300,7 +300,7 @@ xfer_active(Config) when is_list(Config) -> #sctp_assoc_change{state=comm_lost, assoc_id=SbAssocId} -> ok; timeout -> - ?line test_server:fail({timeout,flush()}) + ct:fail({timeout,flush()}) end, ?line ok = gen_sctp:close(Sb), ?line case recv_assoc_change(Sa, Loopback, Pb, Timeout) of @@ -317,7 +317,7 @@ xfer_active(Config) when is_list(Config) -> ?line ok = gen_sctp:close(Sa), %% ?line receive - Msg -> test_server:fail({unexpected,[Msg]++flush()}) + Msg -> ct:fail({unexpected,[Msg]++flush()}) after 17 -> ok end, ok. @@ -502,7 +502,7 @@ def_sndrcvinfo(Config) when is_list(Config) -> gen_sctp:close(S2), ?line receive Msg -> - test_server:fail({received,Msg}) + ct:fail({received,Msg}) after 17 -> ok end, ok. @@ -1024,7 +1024,7 @@ xfer_stream_min(Config) when is_list(Config) -> ?line ok = gen_sctp:close(Sb), ?line receive - Msg -> test_server:fail({received,Msg}) + Msg -> ct:fail({received,Msg}) after 17 -> ok end, ok. @@ -1609,7 +1609,7 @@ socket_bailout([S|Ss]) -> socket_bailout(Ss); socket_bailout([]) -> io:format("flush: ~p.~n", [flush()]), - test_server:fail(socket_bailout). + ct:fail(socket_bailout). socket_history({State,Flush}) -> {lists:keysort( |