diff options
author | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-12-23 10:11:12 +0000 |
---|---|---|
committer | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-12-23 10:11:12 +0000 |
commit | 2db1bbcde1e0e643a85619a1be350225264d3c10 (patch) | |
tree | b37a1a962156aaab7664c2823c791f156a8a63db /erlbal_tests.erl | |
parent | fd028462bcc8b7a4c4d054bfb87d853ef26335f3 (diff) |
Started work on erlbal_n. Changed names to reflect.
Diffstat (limited to 'erlbal_tests.erl')
-rw-r--r-- | erlbal_tests.erl | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/erlbal_tests.erl b/erlbal_tests.erl deleted file mode 100644 index 961ba08..0000000 --- a/erlbal_tests.erl +++ /dev/null @@ -1,44 +0,0 @@ --module(erlbal_tests). --export([start/1]). - -start(simple) -> - Bal = erlbal:start_bal(), - erlbal:start_server(Bal, node(), fun(_, _) -> {7, []} end, []), - 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; - -start(args) -> - Bal = erlbal:start_bal(), - erlbal:start_server(Bal, node(), fun([X], _) -> {X+1, []} end, []), - 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; - -start(state) -> - Bal = erlbal:start_bal(), - erlbal:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, [1]), - 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; - -start(complex_state) -> - Bal = erlbal:start_bal(), - erlbal:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, [1]), - erlbal:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, [10]), - 7 = erlbal:make_request(Bal, [6]), - 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. |