aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/test/eprof_SUITE.erl
diff options
context:
space:
mode:
authorBjörn-Egil Dahlberg <[email protected]>2010-06-09 19:42:42 +0200
committerBjörn-Egil Dahlberg <[email protected]>2010-06-09 19:43:16 +0200
commit913c7f82cf3f2594d2f0731fd73b79cd82502ff6 (patch)
treea7d2f39b6deb9931b219cd7070cbf11051dda935 /lib/tools/test/eprof_SUITE.erl
parent7b2c17955337b6c171e43c4eddb44508a8667bb8 (diff)
downloadotp-913c7f82cf3f2594d2f0731fd73b79cd82502ff6.tar.gz
otp-913c7f82cf3f2594d2f0731fd73b79cd82502ff6.tar.bz2
otp-913c7f82cf3f2594d2f0731fd73b79cd82502ff6.zip
Fix eprof to handle error cases
Diffstat (limited to 'lib/tools/test/eprof_SUITE.erl')
-rw-r--r--lib/tools/test/eprof_SUITE.erl12
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/tools/test/eprof_SUITE.erl b/lib/tools/test/eprof_SUITE.erl
index cad67fd617..67607c6cf2 100644
--- a/lib/tools/test/eprof_SUITE.erl
+++ b/lib/tools/test/eprof_SUITE.erl
@@ -59,6 +59,7 @@ basic(Config) when is_list(Config) ->
?line profiling_stopped = eprof:stop_profiling(),
%% with fun
+
?line {ok, _} = eprof:profile(fun() -> eprof_test:go(10) end),
?line profiling = eprof:profile([self()]),
?line {error, already_profiling} = eprof:profile(fun() -> eprof_test:go(10) end),
@@ -72,6 +73,17 @@ basic(Config) when is_list(Config) ->
?line {ok, _} = eprof:profile([], fun() -> eprof_test:go(10) end, {eprof_test, go, 1}),
?line {ok, _} = eprof:profile([], fun() -> eprof_test:go(10) end, {eprof_test, dec, 1}),
+ %% error case
+
+ ?line error = eprof:profile([Pid], fun() -> eprof_test:go(10) end),
+ ?line Pid = whereis(eprof),
+ ?line error = eprof:profile([Pid], fun() -> eprof_test:go(10) end),
+ ?line A = spawn(fun() -> receive _ -> ok end end),
+ ?line profiling = eprof:profile([A]),
+ ?line true = exit(A, kill_it),
+ ?line profiling_stopped = eprof:stop_profiling(),
+ ?line {error,_} = eprof:profile(fun() -> a = b end),
+
%% with mfa
?line {ok, _} = eprof:profile([], eprof_test, go, [10]),