aboutsummaryrefslogtreecommitdiff
path: root/erlbal_tests.erl
diff options
context:
space:
mode:
authorNathan Lasseter <nathan.je.lasseter@googlemail.com>2011-12-23 10:11:12 +0000
committerNathan Lasseter <nathan.je.lasseter@googlemail.com>2011-12-23 10:11:12 +0000
commit2db1bbcde1e0e643a85619a1be350225264d3c10 (patch)
treeb37a1a962156aaab7664c2823c791f156a8a63db /erlbal_tests.erl
parentfd028462bcc8b7a4c4d054bfb87d853ef26335f3 (diff)
Started work on erlbal_n. Changed names to reflect.
Diffstat (limited to 'erlbal_tests.erl')
-rw-r--r--erlbal_tests.erl44
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.