1 files changed, 32 insertions, 0 deletions
diff --git a/learn-you-some-erlang/m8ball/test/dist_m8ball_SUITE.erl b/learn-you-some-erlang/m8ball/test/dist_m8ball_SUITE.erl
new file mode 100644
index 0000000..3afba6e
--- /dev/null
+++ b/learn-you-some-erlang/m8ball/test/dist_m8ball_SUITE.erl
@@ -0,0 +1,32 @@
+-module(dist_m8ball_SUITE).
+-include_lib("common_test/include/ct.hrl").
+-export([all/0, groups/0, init_per_group/2, end_per_group/2]).
+-export([can_contact/1]).
+
+all() -> [{group, main}, {group, backup}].
+
+groups() -> [{main,
+             [],
+             [can_contact]},
+            {backup,
+             [],
+             [can_contact]}].
+
+init_per_group(main, Config) ->
+    application:start(crypto),
+    application:start(m8ball),
+    Config;
+init_per_group(backup, Config) ->
+    application:start(crypto),
+    application:start(m8ball),
+    Config.
+
+end_per_group(main, _Config) ->
+    %application:stop(m8ball),
+    ok;
+end_per_group(backup, _Config) ->
+    %application:stop(m8ball),
+    ok.
+
+can_contact(_Config) ->
+    <<_/binary>> = m8ball:ask(<<"Some Question">>).