diff options
| author | Björn Gustavsson <[email protected]> | 2016-02-28 11:28:36 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-03-09 13:20:00 +0100 |
| commit | 83eaeddc56555016a1ba61ab3a825932a70da2ca (patch) | |
| tree | a1c379d510aa43890e3f3948d299a8abd6a3203c /lib/stdlib/test | |
| parent | 8d7d5627919305a0b9bd4712dfe5238ad670d6fe (diff) | |
| download | otp-83eaeddc56555016a1ba61ab3a825932a70da2ca.tar.gz otp-83eaeddc56555016a1ba61ab3a825932a70da2ca.tar.bz2 otp-83eaeddc56555016a1ba61ab3a825932a70da2ca.zip | |
sys_SUITE: Mend test cases that didn't test what they should
The return values for lists:prefix/2 and lists:member/2 were
ignored.
Diffstat (limited to 'lib/stdlib/test')
| -rw-r--r-- | lib/stdlib/test/sys_SUITE.erl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/stdlib/test/sys_SUITE.erl b/lib/stdlib/test/sys_SUITE.erl index ad4751f9de..9f3462a501 100644 --- a/lib/stdlib/test/sys_SUITE.erl +++ b/lib/stdlib/test/sys_SUITE.erl @@ -74,8 +74,8 @@ log_to_file(Config) when is_list(Config) -> Msg1 = io:get_line(Fd,''), Msg2 = io:get_line(Fd,''), file:close(Fd), - lists:prefix("*DBG* sys_SUITE_server got call {req,44} from ",Msg1), - lists:prefix("*DBG* sys_SUITE_server sent {ok,-44} to ",Msg2), + "*DBG* sys_SUITE_server got call {req,44} from " ++ _ = Msg1, + "*DBG* sys_SUITE_server sent {ok,-44} to " ++ _ = Msg2, stop(), ok. @@ -86,8 +86,8 @@ stats(Config) when is_list(Config) -> ok = sys:statistics(?server,true), {ok,-44} = public_call(44), {ok,Stats} = sys:statistics(?server,get), - lists:member({messages_in,1},Stats), - lists:member({messages_out,1},Stats), + true = lists:member({messages_in,1}, Stats), + true = lists:member({messages_out,0}, Stats), ok = sys:statistics(?server,false), {status,_Pid,{module,_Mod},[_PDict,running,Self,_,_]} = sys:get_status(?server), @@ -106,8 +106,8 @@ trace(Config) when is_list(Config) -> ct:sleep(1000), test_server:capture_stop(), [Msg1,Msg2] = test_server:capture_get(), - lists:prefix("*DBG* sys_SUITE_server got call {req,44} from ",Msg1), - lists:prefix("*DBG* sys_SUITE_server sent {ok,-44} to ",Msg2), + "*DBG* sys_SUITE_server got call {req,44} from " ++ _ = Msg1, + "*DBG* sys_SUITE_server sent {ok,-44} to " ++ _ = Msg2, stop(), ok. |