From 70b6b32a9c7e3e3fca45fc3a0e11e2a5087a4660 Mon Sep 17 00:00:00 2001
From: Peter Andersson <peppe@erlang.org>
Date: Tue, 3 Oct 2017 14:53:42 +0200
Subject: Add app name tag in process dictionary

---
 lib/common_test/src/ct_repeat.erl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/common_test/src/ct_repeat.erl')

diff --git a/lib/common_test/src/ct_repeat.erl b/lib/common_test/src/ct_repeat.erl
index c043c9846c..d878df9c66 100644
--- a/lib/common_test/src/ct_repeat.erl
+++ b/lib/common_test/src/ct_repeat.erl
@@ -70,6 +70,7 @@ loop_test(If,Args) when is_list(Args) ->
 				    CtrlPid = self(),
 				    spawn(
 				      fun() ->
+                                              put(app, common_test),
 					      stop_after(CtrlPid,Secs,ForceStop)
 				      end)
 			    end,
@@ -134,6 +135,7 @@ spawn_tester(script,Ctrl,Args) ->
 
 spawn_tester(func,Ctrl,Opts) ->
     Tester = fun() ->
+                     put(app, common_test),
 		     case catch ct_run:run_test2(Opts) of
 			 {'EXIT',Reason} ->
 			     exit(Reason);
-- 
cgit v1.2.3