src/lwes_app.erl

   1 -module (lwes_app).
   2
   3 -behaviour (application).
   4
   5 %% API
   6 -export([start/0]).
   7
   8 %% application callbacks
   9 -export ([start/2, stop/1]).
  10
  11 %-=====================================================================-
  12 %-                                  API                                -
  13 %-=====================================================================-
  14 start () ->
  15   [ensure_started (App) || App <- [sasl, lwes]].
  16
  17 %-=====================================================================-
  18 %-                        application callbacks                        -
  19 %-=====================================================================-
  20 start (_Type, _Args) ->
  21   lwes_sup:start_link().
  22
  23 stop (_State) ->
  24   ok.
  25
  26 %-=====================================================================-
  27 %-                               Private                               -
  28 %-=====================================================================-
  29 ensure_started(App) ->
  30   case application:start(App) of
  31     ok ->
  32       ok;
  33     {error, {already_started, App}} ->
  34       ok
  35   end.
  36
  37 %-=====================================================================-
  38 %-                            Test Functions                           -
  39 %-=====================================================================-
  40 -ifdef (TEST).
  41 -include_lib ("eunit/include/eunit.hrl").
  42
  43 lwes_app_test_ () ->
  44   [
  45     ?_assertEqual ([ok, ok],lwes_app:start()),
  46     ?_assertEqual ([ok, ok],lwes_app:start()),
  47     ?_assertEqual (ok, application:stop (lwes))
  48   ].
  49
  50 -endif.