finish the application

src/interval.app.src

@@ -8,5 +8,5 @@
                   stdlib
                  ]},
   {mod, { interval_app, []}},
-  {env, []}
+  {env, [{filename, "priv/orig_intervals"}]}
  ]}.

src/interval.erl

@@ -0,0 +1,37 @@
+%% Copyright
+-module(interval).
+-author("eshubin").
+
+%% API
+-export([find/1]).
+
+
+find(N) when is_integer(N) ->
+  interval_srv:find(N).
+
+
+-include_lib("eunit/include/eunit.hrl").
+
+interval_test_() ->
+  {
+    setup,
+    fun() ->
+      ok = application:load(interval),
+      ok = application:set_env(interval, filename, "../priv/two_intervals"),
+      ok = application:start(interval)
+    end,
+    fun(_) ->
+      application:stop(interval)
+    end,
+    fun(_) ->
+      [
+        ?_assertEqual(not_found, find(4)),
+        ?_assertEqual(not_found, find(365916480007)),
+        ?_assertEqual(not_found, find(506822291477)),
+        ?_assertEqual({{401297465489,406822291477}, 0.5527523660317453}, find(401298465489)),
+        ?_assertEqual({{13935775370,365916480006}, 0.8678967605514785}, find(13935775371)),
+        ?_assertEqual({{13935775370,365916480006}, 0.8678967605514785}, find(365916480006)),
+        ?_assertEqual({{13935775370,365916480006}, 0.8678967605514785}, find(13935775370))
+      ]
+    end
+  }.

src/interval_app.erl

@@ -10,7 +10,8 @@
 %% ===================================================================
 
 start(_StartType, _StartArgs) ->
-    interval_sup:start_link().
+  {ok, FileName} = application:get_env(filename),
+  interval_sup:start_link(FileName).
 
 stop(_State) ->
     ok.

src/interval_srv.erl

@@ -46,7 +46,7 @@ interval_srv_test_() ->
   {
     setup,
     fun() ->
-      start_link("../priv/two_intervals")
+      {ok, _} = start_link("../priv/two_intervals")
     end,
     fun(_) ->
       [

src/interval_sup.erl

@@ -4,25 +4,25 @@
 -behaviour(supervisor).
 
 %% API
--export([start_link/0]).
+-export([start_link/1]).
 
 %% Supervisor callbacks
 -export([init/1]).
 
 %% Helper macro for declaring children of supervisor
--define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
+-define(CHILD(I, Type, Args), {I, {I, start_link, Args}, permanent, 5000, Type, [I]}).
 
 %% ===================================================================
 %% API functions
 %% ===================================================================
 
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+start_link(FileName) ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, FileName).
 
 %% ===================================================================
 %% Supervisor callbacks
 %% ===================================================================
 
-init([]) ->
-    {ok, { {one_for_one, 5, 10}, []} }.
+init(FileName) ->
+    {ok, { {one_for_one, 5, 10}, [?CHILD(interval_srv, worker, [FileName])]} }.