Initial commit, including basic HLR testing functionality.

1 files changed, 27 insertions, 0 deletions

diff --git a/src/ss7test_sup.erl b/src/ss7test_sup.erl
new file mode 100644
index 0000000..1b47715
--- /dev/null
+++ b/src/ss7test_sup.erl
@@ -0,0 +1,27 @@
+-module(ss7test_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+%% Helper macro for declaring children of supervisor
+-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
+
+%% ===================================================================
+%% API functions
+%% ===================================================================
+
+start_link() ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+%% ===================================================================
+%% Supervisor callbacks
+%% ===================================================================
+
+init([]) ->
+    {ok, { {one_for_one, 5, 10}, []} }.
+