aboutsummaryrefslogtreecommitdiffstats
path: root/lib/stdlib/test
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-02-28 11:28:36 +0100
committerBjörn Gustavsson <[email protected]>2016-03-09 13:20:00 +0100
commit83eaeddc56555016a1ba61ab3a825932a70da2ca (patch)
treea1c379d510aa43890e3f3948d299a8abd6a3203c /lib/stdlib/test
parent8d7d5627919305a0b9bd4712dfe5238ad670d6fe (diff)
downloadotp-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.erl12
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.