diff options
author | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-01-28 22:44:46 +0000 |
---|---|---|
committer | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-01-28 22:44:46 +0000 |
commit | 76d97f8eb464f345da43abb6403b582079d4fb23 (patch) | |
tree | 15e9503b125be970a6072ce84b6c782bea8996e8 /erlbal_tests.erl | |
parent | 613e8778e9f6a1107d7563a60574f557a71c6e4c (diff) |
stop_bal no longer kills servers
Diffstat (limited to 'erlbal_tests.erl')
-rw-r--r-- | erlbal_tests.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/erlbal_tests.erl b/erlbal_tests.erl index cee35fc..961ba08 100644 --- a/erlbal_tests.erl +++ b/erlbal_tests.erl @@ -7,6 +7,7 @@ start(simple) -> erlbal:start_server(Bal, node(), fun(_, _) -> {8, []} end, []), 7 = erlbal:make_request(Bal, []), 8 = erlbal:make_request(Bal, []), + lists:foreach(fun(X) -> erlbal:stop_server(Bal, X) end, erlbal:list_servers(Bal)), erlbal:stop_bal(Bal), ok; @@ -16,6 +17,7 @@ start(args) -> erlbal:start_server(Bal, node(), fun([X], _) -> {X+2, []} end, []), 7 = erlbal:make_request(Bal, [6]), 8 = erlbal:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal:stop_server(Bal, X) end, erlbal:list_servers(Bal)), erlbal:stop_bal(Bal), ok; @@ -25,6 +27,7 @@ start(state) -> erlbal:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, [10]), 7 = erlbal:make_request(Bal, [6]), 16 = erlbal:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal:stop_server(Bal, X) end, erlbal:list_servers(Bal)), erlbal:stop_bal(Bal), ok; @@ -36,5 +39,6 @@ start(complex_state) -> 16 = erlbal:make_request(Bal, [6]), 8 = erlbal:make_request(Bal, [6]), 17 = erlbal:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal:stop_server(Bal, X) end, erlbal:list_servers(Bal)), erlbal:stop_bal(Bal), ok. |