From b5c22a8a96203ad6b656524fe5ecf246a89efb58 Mon Sep 17 00:00:00 2001 From: Nathan Lasseter Date: Fri, 23 Dec 2011 10:11:48 +0000 Subject: Started work on erlbal_n. Changed names to reflect. --- erlbal_p_tests.erl | 44 ++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 44 insertions(+) create mode 100644 erlbal_p_tests.erl (limited to 'erlbal_p_tests.erl') diff --git a/erlbal_p_tests.erl b/erlbal_p_tests.erl new file mode 100644 index 0000000..c3df8f2 --- /dev/null +++ b/erlbal_p_tests.erl @@ -0,0 +1,44 @@ +-module(erlbal_p_tests). +-export([start/1]). + +start(simple) -> + Bal = erlbal_p:start_bal(), + erlbal_p:start_server(Bal, node(), fun(_, _) -> {7, []} end, []), + erlbal_p:start_server(Bal, node(), fun(_, _) -> {8, []} end, []), + 7 = erlbal_p:make_request(Bal, []), + 8 = erlbal_p:make_request(Bal, []), + lists:foreach(fun(X) -> erlbal_p:stop_server(Bal, X) end, erlbal_p:list_servers(Bal)), + erlbal_p:stop_bal(Bal), + ok; + +start(args) -> + Bal = erlbal_p:start_bal(), + erlbal_p:start_server(Bal, node(), fun([X], _) -> {X+1, []} end, []), + erlbal_p:start_server(Bal, node(), fun([X], _) -> {X+2, []} end, []), + 7 = erlbal_p:make_request(Bal, [6]), + 8 = erlbal_p:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_p:stop_server(Bal, X) end, erlbal_p:list_servers(Bal)), + erlbal_p:stop_bal(Bal), + ok; + +start(state) -> + Bal = erlbal_p:start_bal(), + erlbal_p:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, [1]), + erlbal_p:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S]} end, [10]), + 7 = erlbal_p:make_request(Bal, [6]), + 16 = erlbal_p:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_p:stop_server(Bal, X) end, erlbal_p:list_servers(Bal)), + erlbal_p:stop_bal(Bal), + ok; + +start(complex_state) -> + Bal = erlbal_p:start_bal(), + erlbal_p:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, [1]), + erlbal_p:start_server(Bal, node(), fun([X], [S]) -> Y = X + S, {Y, [S+1]} end, [10]), + 7 = erlbal_p:make_request(Bal, [6]), + 16 = erlbal_p:make_request(Bal, [6]), + 8 = erlbal_p:make_request(Bal, [6]), + 17 = erlbal_p:make_request(Bal, [6]), + lists:foreach(fun(X) -> erlbal_p:stop_server(Bal, X) end, erlbal_p:list_servers(Bal)), + erlbal_p:stop_bal(Bal), + ok. -- cgit v1.2.1