diff options
author | Tim Watson <tim@rabbitmq.com> | 2012-09-03 17:34:39 +0100 |
---|---|---|
committer | Tim Watson <tim@rabbitmq.com> | 2012-09-03 17:34:39 +0100 |
commit | f13f0324d1d0370afaf9a550e905b3a982a0570d (patch) | |
tree | e32dc7573050cf6c452b3110048eadaecd3d1fe5 | |
parent | 81f3caeb1e154d3f10261c7c17776e0077692e88 (diff) | |
download | rabbitmq-server-f13f0324d1d0370afaf9a550e905b3a982a0570d.tar.gz |
oops
-rw-r--r-- | src/supervisor2_tests.erl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/src/supervisor2_tests.erl b/src/supervisor2_tests.erl index 3c1997c6..69d17b7f 100644 --- a/src/supervisor2_tests.erl +++ b/src/supervisor2_tests.erl @@ -26,39 +26,6 @@ -include_lib("eunit/include/eunit.hrl"). -test_me() -> - erlang:system_flag(multi_scheduling, block), - P = self(), - F = fun() -> [P ! {self(), hi} || _ <- lists:seq(1, 100)] end, - erlang:process_flag(priority, high), - Launcher = fun() -> - Pid = spawn(F), - erlang:suspend_process(Pid), - P ! {suspendee, Pid} - end, - Test = - fun() -> - Launcher(), - [P ! {self(), ho} || _ <- lists:seq(1, 100)] - end, - ReceiveAndResume = - fun() -> - receive {suspendee, X} -> - erlang:resume_process(X) - end - end, - Test(), - ReceiveAndResume(), - drain_q(). - -drain_q() -> - receive - X -> - ?debugFmt("Received ~p~n", [X]) - after 0 -> - ok - end. - test_all() -> eunit:test(supervisor2, [verbose]). |