display an error if a test app fails to load

beerriot · Feb 25, 2011 · b42ad28 · b42ad28
1 parent 3acc34d
commit b42ad28
Showing 1 changed file with 22 additions and 2 deletions.
diff --git a/test/test_helper.erl b/test/test_helper.erl
@@ -42,6 +42,26 @@ stop_riak() ->
 
 load_and_start_apps([]) -> ok;
 load_and_start_apps([App|Tail]) ->
-  application:load(App),
-  application:start(App),
+  ensure_loaded(App),
+  ensure_started(App),
   load_and_start_apps(Tail).
+
+ensure_loaded(App) ->
+  case application:load(App) of
+      ok ->
+          ok;
+      {error,{already_loaded,App}} ->
+          ok;
+      Error ->
+          throw({"failed to load", App, Error})
+  end.
+
+ensure_started(App) ->
+  case application:start(App) of
+      ok ->
+          ok;
+      {error,{already_started,App}} ->
+          ok;
+      Error ->
+          throw({"failed to start", App, Error})
+  end.