diff options
| author | Björn Gustavsson <[email protected]> | 2010-01-24 09:28:05 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-01-29 17:43:38 +0100 |
| commit | fc1ddbbc8c979bf0dc67ec9bfcb95ac0e18e6161 (patch) | |
| tree | cbc7c80a0613c00d9b94af0e6e9e128827d6d6b8 /lib/kernel/test/rpc_SUITE.erl | |
| parent | 0cd162311b1ae680fda3374d507a63ffa0605fa9 (diff) | |
| download | otp-fc1ddbbc8c979bf0dc67ec9bfcb95ac0e18e6161.tar.gz otp-fc1ddbbc8c979bf0dc67ec9bfcb95ac0e18e6161.tar.bz2 otp-fc1ddbbc8c979bf0dc67ec9bfcb95ac0e18e6161.zip | |
kernel tests: modernize guard tests
Diffstat (limited to 'lib/kernel/test/rpc_SUITE.erl')
| -rw-r--r-- | lib/kernel/test/rpc_SUITE.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/kernel/test/rpc_SUITE.erl b/lib/kernel/test/rpc_SUITE.erl index 2b39e31a80..f6225b5971 100644 --- a/lib/kernel/test/rpc_SUITE.erl +++ b/lib/kernel/test/rpc_SUITE.erl @@ -333,7 +333,7 @@ suicide(exit, Reason) -> suicide(erlang, exit, [Name, Reason]) when is_atom(Name) -> case whereis(Name) of - Pid when pid(Pid) -> suicide(erlang, exit, [Pid, Reason]) + Pid when is_pid(Pid) -> suicide(erlang, exit, [Pid, Reason]) end; suicide(Mod, Func, Args) -> spawn_link( @@ -448,7 +448,7 @@ call_benchmark(Config) when is_list(Config) -> ?t:timetrap_cancel(Timetrap), ok. -do_call_benchmark(Node, M) when integer(M), M > 0 -> +do_call_benchmark(Node, M) when is_integer(M), M > 0 -> do_call_benchmark(Node, erlang:now(), 0, M). do_call_benchmark(Node, {A,B,C}, M, M) -> |