From a3a4dbb5f8b11a04f4ac1530cfd96478f881763b Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erix.ericsson.se>
Date: Wed, 2 Mar 2011 10:24:54 +0100
Subject: Fix bug where failing to make a testcase caused an errornous failure
 reason

---
 lib/test_server/src/ts_install_cth.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/test_server/src/ts_install_cth.erl b/lib/test_server/src/ts_install_cth.erl
index f8b4e5a4f8..d1a24525ab 100644
--- a/lib/test_server/src/ts_install_cth.erl
+++ b/lib/test_server/src/ts_install_cth.erl
@@ -112,7 +112,7 @@ pre_init_per_suite(_Suite,Config,State) ->
     catch Error:Reason ->
 	    Stack = erlang:get_stacktrace(),
 	    ct:pal("~p failed! ~p:{~p,~p}",[?MODULE,Error,Reason,Stack]),
-	    {fail,{?MODULE,{Error,Reason, Stack}}}
+	    {{fail,{?MODULE,{Error,Reason, Stack}}},State}
     end.
 
 %% @doc Called after init_per_suite.
-- 
cgit v1.2.3