From 2db1bbcde1e0e643a85619a1be350225264d3c10 Mon Sep 17 00:00:00 2001 From: Nathan Lasseter Date: Fri, 23 Dec 2011 10:11:12 +0000 Subject: Started work on erlbal_n. Changed names to reflect. --- erlbal_tests.erl | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 erlbal_tests.erl (limited to 'erlbal_tests.erl') 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. -- cgit v1.2.1