diff options
| author | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-12-23 10:11:48 +0000 |
|---|---|---|
| committer | Nathan Lasseter <nathan.je.lasseter@googlemail.com> | 2011-12-23 10:11:48 +0000 |
| commit | b5c22a8a96203ad6b656524fe5ecf246a89efb58 (patch) | |
| tree | bf098b067149c41fa3a8f46063909927b904fe46 /erlbal_n_tests.erl | |
| parent | 2db1bbcde1e0e643a85619a1be350225264d3c10 (diff) | |
Started work on erlbal_n. Changed names to reflect.erlbal-n
Diffstat (limited to 'erlbal_n_tests.erl')
| -rw-r--r-- | erlbal_n_tests.erl | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/erlbal_n_tests.erl b/erlbal_n_tests.erl new file mode 100644 index 0000000..91ea5ee --- /dev/null +++ b/erlbal_n_tests.erl @@ -0,0 +1,44 @@ +-module(erlbal_n_tests). +-export([start/1]). + +start(simple) -> + Bal = erlbal_n:start_bal(), + erlbal_n:start_server(Bal, node(), fun(_, _) -> {7, []} end, fun() -> 1000 - length(processes()) end, []), + erlbal_n:start_server(Bal, node(), fun(_, _) -> {7, []} end, fun() -> 1000 - length(processes()) end, []), + 7 = erlbal_n:make_request(Bal, []), + 7 = erlbal_n:make_request(Bal, []), + lists:foreach(fun(X) -> erlbal_n:stop_server(Bal, X) end, erlbal_n:list_servers(Bal)), + erlbal_n:stop_bal(Bal), + ok; + +start(args) -> + Bal = erlbal_n:start_bal(), + erlbal_n:start_server(Bal, node(), fun([X], _) -> {X+1, []} end, fun() -> 1000 - length(processes()) end, []), + erlbal_n:start_server(Bal, node(), fun([X], _) -> {X+1, []} end, fun() -> 1000 - length(processes()) end, []), + 7 = erlbal_n:make_request(Bal, [6]), + 7 = erlbal_n:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_n:stop_server(Bal, X) end, erlbal_n:list_servers(Bal)), + erlbal_n:stop_bal(Bal), + ok; + +start(state) -> + Bal = erlbal_n:start_bal(), + erlbal_n:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, fun() -> 1000 - length(processes()) end, [1]), + erlbal_n:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, fun() -> 1000 - length(processes()) end, [1]), + 7 = erlbal_n:make_request(Bal, [6]), + 7 = erlbal_n:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_n:stop_server(Bal, X) end, erlbal_n:list_servers(Bal)), + erlbal_n:stop_bal(Bal), + ok; + +start(complex_state) -> + Bal = erlbal_n:start_bal(), + erlbal_n:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, fun() -> 1000 - length(processes()) end, [1]), + erlbal_n:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, fun() -> 1000 - length(processes()) end, [1]), + 7 = erlbal_n:make_request(Bal, [6]), + 8 = erlbal_n:make_request(Bal, [6]), + 9 = erlbal_n:make_request(Bal, [6]), + 10 = erlbal_n:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_n:stop_server(Bal, X) end, erlbal_n:list_servers(Bal)), + erlbal_n:stop_bal(Bal), + ok. |