revert back to simple eunit test

edwardt · Mar 7, 2011 · 4669587 · 4669587
1 parent 984fb81
commit 4669587
Showing 1 changed file with 3 additions and 21 deletions.
diff --git a/test/glitter_sup_test.erl b/test/glitter_sup_test.erl
@@ -2,24 +2,6 @@
 -ifdef (TEST).
 -include_lib("eunit/include/eunit.hrl").
 
-start_stop_test_()->
-  {
-    inorder,
-    {
-      setup,
-      fun setup/0,
-      [
-         %fun start_server_test/0
-        {"Cleanly start server", fun start_server_test/0}
-      ],
-      fun teardown/0}
-  }.
-
-setup()->
-  ok.
-
-teardown()->
-  ok.
 
 ensure_not_started(App) when is_atom(App) ->
   case application:stop(App) of
@@ -29,7 +11,7 @@ ensure_not_started(App) when is_atom(App) ->
   end.
 
 ensure_not_loaded(App) when is_atom(App)->
-  case application:loaded(App) of
+  case application:load(App) of
       ok -> ok;
       {error,{not_loaded,sasl}} -> ok;
       Else -> Else    
@@ -39,8 +21,8 @@ start_server_test()->
   App = glitter,
   ok = ensure_not_started(App),
   ok = ensure_not_loaded(App),
- % {ok, PID}  = glitter_sup:start_link(),
- % true = erlang:exit(PID, kill),
+  {ok, PID}  = glitter_sup:start_link(),
+  true = erlang:exit(PID, kill),
   ok.