File 3257-Rework-remaining-diameter-testsuites.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 3257-Rework-remaining-diameter-testsuites.patch of Package erlang (Revision 07e058f5d363f224f73743c399e7ed95)

Currently displaying revision 07e058f5d363f224f73743c399e7ed95 , Show latest

From d42d0fe0a89d115caa596c229c1c758c4859ee44 Mon Sep 17 00:00:00 2001
From: Anders Svensson <anders@erlang.org>
Date: Fri, 25 Feb 2022 11:15:51 +0100
Subject: [PATCH 7/7] Rework remaining diameter testsuites

As in the previous two commit: remove common_test as a requirement and
make all testcases independent. Add a make target for running any suite
without common test; for example, to run all testcases in
diameter_dpr_SUITE:

make _dpr

Similar to the target that runs suites with common_test, just add an
underscore prefix.
---
 lib/diameter/test/Makefile                    |  12 +-
 lib/diameter/test/diameter_3xxx_SUITE.erl     | 152 +++++--------
 lib/diameter/test/diameter_app_SUITE.erl      | 104 +++++----
 lib/diameter/test/diameter_capx_SUITE.erl     | 206 +++++++-----------
 lib/diameter/test/diameter_codec_SUITE.erl    | 140 +++++++-----
 lib/diameter/test/diameter_compiler_SUITE.erl | 104 +++++----
 lib/diameter/test/diameter_config_SUITE.erl   |  74 ++++---
 lib/diameter/test/diameter_ct.hrl             |  22 --
 lib/diameter/test/diameter_dpr_SUITE.erl      | 125 ++++++-----
 lib/diameter/test/diameter_event_SUITE.erl    |  78 ++++---
 lib/diameter/test/diameter_failover_SUITE.erl | 102 +++++----
 lib/diameter/test/diameter_gen_sctp_SUITE.erl |  37 ++--
 lib/diameter/test/diameter_gen_tcp_SUITE.erl  |  37 +++-
 lib/diameter/test/diameter_length_SUITE.erl   |  84 +++----
 lib/diameter/test/diameter_pool_SUITE.erl     |  97 +++++----
 lib/diameter/test/diameter_reg_SUITE.erl      |  82 +++----
 lib/diameter/test/diameter_relay_SUITE.erl    | 161 +++++++-------
 lib/diameter/test/diameter_stats_SUITE.erl    |  71 +++---
 lib/diameter/test/diameter_sync_SUITE.erl     |  81 +++----
 lib/diameter/test/diameter_util.erl           |  47 ----
 lib/diameter/test/diameter_watchdog_SUITE.erl | 129 ++++++-----
 lib/diameter/test/modules.mk                  |   3 -
 22 files changed, 943 insertions(+), 1005 deletions(-)
 delete mode 100644 lib/diameter/test/diameter_ct.hrl

diff --git a/lib/diameter/test/Makefile b/lib/diameter/test/Makefile
index b537292834..3ae0f8eaf8 100644
--- a/lib/diameter/test/Makefile
+++ b/lib/diameter/test/Makefile
@@ -91,8 +91,6 @@ info:
 	@echo ========================================
 	@$(call list,MODULES)
 	@echo
-	@$(call list,HRL_FILES)
-	@echo
 	@$(call list,SUITES)
 	@echo
 	@echo erl = $(shell which erl)
@@ -116,6 +114,7 @@ help:
 	@echo
 	@echo "    $(SUITES):"
 	@echo "        Compile and run a specific test suite."
+	@echo "        Prefix with _ to run without common_test."
 	@echo
 	@echo "    clean | realclean:"
 	@echo "        Remove generated files."
@@ -142,6 +141,14 @@ $(SUITES): log opt
 	| awk '{print} / FAILED /{rc=1} END{exit rc}' rc=0
 # Shorter in sed but requires a GNU extension (ie. Q).
 
+# Run suites without common_test.
+$(SUITES:%=_%): opt
+	$(ERL) -noinput \
+	       -pa ../ebin \
+	       -sname diameter_test_$@ \
+	       -s diameter$@_SUITE run \
+	       -s init stop
+
 cover: log opt coverspec
 	$(ERL) -noinput \
 	       -pa $(realpath ../ebin) \
@@ -173,7 +180,6 @@ release_tests_spec:
 	$(INSTALL_DIR)  "$(RELSYSDIR)"
 	$(INSTALL_DATA) $(TEST_SPEC_FILE) \
 	                $(COVER_SPEC_FILE) \
-	                $(HRL_FILES) \
 	                "$(RELSYSDIR)"
 	$(MAKE) $(DATA_DIRS:%/=release_data_%)
 	$(MAKE) $(ERL_FILES:%=/%)
diff --git a/lib/diameter/test/diameter_3xxx_SUITE.erl b/lib/diameter/test/diameter_3xxx_SUITE.erl
index 0f060c4ba7..63de2467a3 100644
--- a/lib/diameter/test/diameter_3xxx_SUITE.erl
+++ b/lib/diameter/test/diameter_3xxx_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2013-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2013-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -26,19 +26,17 @@
 
 -module(diameter_3xxx_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_group/2,
-         end_per_group/2,
-         init_per_testcase/2,
-         end_per_testcase/2]).
-
-%% testcases
--export([start/1,
-         send_unknown_application/1,
+         traffic/1]).
+
+%% internal
+-export([send_unknown_application/1,
          send_unknown_command/1,
          send_ok/1,
          send_invalid_hdr_bits/1,
@@ -47,9 +45,7 @@
          send_5xxx_missing_avp/1,
          send_double_error/1,
          send_3xxx/1,
-         send_5xxx/1,
-         counters/1,
-         stop/1]).
+         send_5xxx/1]).
 
 %% diameter callbacks
 -export([peer_up/3,
@@ -67,11 +63,7 @@
 %% ===========================================================================
 
 -define(util, diameter_util).
--define(testcase(), proplists:get_value(testcase, get(?MODULE))).
--define(group(Config), begin
-                           put(?MODULE, Config),
-                           ?util:name(proplists:get_value(group, Config))
-                       end).
+-define(testcase(), get(?MODULE)).
 
 -define(L, atom_to_list).
 -define(A, list_to_atom).
@@ -106,34 +98,15 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 90}}].
 
 all() ->
-    [{group, ?util:name([E,D])} || E <- ?ERRORS, D <- ?RFCS].
-
-groups() ->
-    Tc = tc(),
-    [{?util:name([E,D]), [], [start] ++ Tc ++ [counters, stop]}
-     || E <- ?ERRORS, D <- ?RFCS].
-
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
+    [traffic].
 
-end_per_suite(_Config) ->
-    ok = diameter:stop().
+traffic(_Config) ->
+    run().
 
-init_per_group(Group, Config) ->
-    [{group, Group} | Config].
-
-end_per_group(_, _) ->
-    ok.
-
-init_per_testcase(Name, Config) ->
-    [{testcase, Name} | Config].
-
-end_per_testcase(_, _) ->
-    ok.
+%% ===========================================================================
 
 tc() ->
     [send_unknown_application,
@@ -147,25 +120,36 @@ tc() ->
      send_3xxx,
      send_5xxx].
 
-%% ===========================================================================
+%% run/0
+
+run() ->
+    ?util:run([[{{?MODULE, run, [{E,D}]}, 60000} || E <- ?ERRORS,
+                                                    D <- ?RFCS]]).
+
+%% run/1
 
-%% start/1
+run({F, [_,_] = G}) ->
+    put(?MODULE, F),
+    apply(?MODULE, F, [G]);
 
-start(Config) ->
-    Group = proplists:get_value(group, Config),
-    [Errors, RFC] = ?util:name(Group),
-    ok = diameter:start_service(?SERVER, ?SERVICE(?L(Group),
-                                                  Errors,
-                                                  RFC)),
+run({E,D}) ->
+    try
+        run([E,D])
+    after
+        ok = diameter:stop()
+    end;
+
+run([Errors, RFC] = G) ->
+    Name = ?L(Errors) ++ "," ++ ?L(RFC),
+    ok = diameter:start(),
+    ok = diameter:start_service(?SERVER, ?SERVICE(Name, Errors, RFC)),
     ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT,
                                                   callback,
                                                   rfc6733)),
     LRef = ?util:listen(?SERVER, tcp),
-    ?util:connect(?CLIENT, tcp, LRef).
-
-%% stop/1
-
-stop(_Config) ->
+    ?util:connect(?CLIENT, tcp, LRef),
+    ?util:run([{?MODULE, run, [{F,G}]} || F <- tc()]),
+    _ = counters(G),
     ok = diameter:remove_transport(?CLIENT, true),
     ok = diameter:remove_transport(?SERVER, true),
     ok = diameter:stop_service(?SERVER),
@@ -175,9 +159,7 @@ stop(_Config) ->
 %%
 %% Check that counters are as expected.
 
-counters(Config) ->
-    Group = proplists:get_value(group, Config),
-    [_Errors, _Rfc] = G = ?util:name(Group),
+counters([_Errors, _RFC] = G) ->
     [] = ?util:run([[fun counters/3, K, S, G]
                     || K <- [statistics, transport, connections],
                        S <- [?CLIENT, ?SERVER]]).
@@ -379,10 +361,7 @@ send_unknown_application([_,_]) ->
                                                  %% UNSUPPORTED_APPLICATION
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_unknown_application(Config) ->
-    send_unknown_application(?group(Config)).
+        = call().
 
 %% send_unknown_command/1
 %%
@@ -398,10 +377,7 @@ send_unknown_command([_,_]) ->
                                                  %% UNSUPPORTED_COMMAND
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_unknown_command(Config) ->
-    send_unknown_command(?group(Config)).
+        = call().
 
 %% send_ok/1
 %%
@@ -412,10 +388,7 @@ send_ok([_,_]) ->
     #diameter_base_STA{'Result-Code' = 5002,  %% UNKNOWN_SESSION_ID
                        'Failed-AVP' = [],
                        'AVP' = []}
-        = call();
-
-send_ok(Config) ->
-    send_ok(?group(Config)).
+        = call().
 
 %% send_invalid_hdr_bits/1
 %%
@@ -433,10 +406,7 @@ send_invalid_hdr_bits([_,_]) ->
     #'diameter_base_answer-message'{'Result-Code' = 3008, %% INVALID_HDR_BITS
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_invalid_hdr_bits(Config) ->
-    send_invalid_hdr_bits(?group(Config)).
+        = call().
 
 %% send_missing_avp/1
 %%
@@ -454,10 +424,7 @@ send_missing_avp([_,_]) ->
     #diameter_base_STA{'Result-Code' = 5005,  %% MISSING_AVP
                        'Failed-AVP' = [_],
                        'AVP' = []}
-        = call();
-
-send_missing_avp(Config) ->
-    send_missing_avp(?group(Config)).
+        = call().
 
 %% send_ignore_missing_avp/1
 %%
@@ -475,10 +442,7 @@ send_ignore_missing_avp([_,_]) ->
     #diameter_base_STA{'Result-Code' = 2001,  %% SUCCESS
                        'Failed-AVP' = [],
                        'AVP' = []}
-        = call();
-
-send_ignore_missing_avp(Config) ->
-    send_ignore_missing_avp(?group(Config)).
+        = call().
 
 %% send_5xxx_missing_avp/1
 %%
@@ -501,10 +465,7 @@ send_5xxx_missing_avp([_,_]) ->
     #diameter_base_STA{'Result-Code' = 2001,  %% SUCCESS
                        'Failed-AVP' = [],
                        'AVP' = []}
-        = call();
-
-send_5xxx_missing_avp(Config) ->
-    send_5xxx_missing_avp(?group(Config)).
+        = call().
 
 %% send_double_error/1
 %%
@@ -522,10 +483,7 @@ send_double_error([_,_]) ->
     #'diameter_base_answer-message'{'Result-Code' = 3008, %% INVALID_HDR_BITS
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_double_error(Config) ->
-    send_double_error(?group(Config)).
+        = call().
 
 %% send_3xxx/1
 %%
@@ -536,10 +494,7 @@ send_3xxx([_,_]) ->
     #'diameter_base_answer-message'{'Result-Code' = 3999,
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_3xxx(Config) ->
-    send_3xxx(?group(Config)).
+        = call().
 
 %% send_5xxx/1
 %%
@@ -555,10 +510,7 @@ send_5xxx([_,_]) ->
     #'diameter_base_answer-message'{'Result-Code' = 5999,
                                     'Failed-AVP' = [],
                                     'AVP' = []}
-        = call();
-
-send_5xxx(Config) ->
-    send_5xxx(?group(Config)).
+        = call().
 
 %% ===========================================================================
 
diff --git a/lib/diameter/test/diameter_app_SUITE.erl b/lib/diameter/test/diameter_app_SUITE.erl
index ef4a28d3f4..0211ab1982 100644
--- a/lib/diameter/test/diameter_app_SUITE.erl
+++ b/lib/diameter/test/diameter_app_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2018. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,22 +24,24 @@
 
 -module(diameter_app_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
-         all/0,
-	 init_per_suite/1,
-         end_per_suite/1]).
+         all/0]).
 
 %% testcases
 -export([keys/1,
          vsn/1,
-	 modules/1,
-	 exports/1,
+         modules/1,
+         exports/1,
          release/1,
-	 xref/1,
+         xref/1,
          relup/1]).
 
--include("diameter_ct.hrl").
-
+-define(util, diameter_util).
 -define(A, list_to_atom).
 
 %% Modules not in the app and that should not have dependencies on it
@@ -57,7 +59,7 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 20}}].
 
 all() ->
     [keys,
@@ -68,12 +70,22 @@ all() ->
      xref,
      relup].
 
-init_per_suite(Config) ->
-    [{application, ?APP, App}] = diameter_util:consult(?APP, app),
-    [{app, App} | Config].
+%% ===========================================================================
+
+run() ->
+    run(all()).
+
+run(List) ->
+    Tmp = ?util:mktemp(filename:join(?util:tmpdir(), "diameter_app")),
+    try
+        run([{priv_dir, Tmp}], List)
+    after
+        file:del_dir_r(Tmp)
+    end.
 
-end_per_suite(_Config) ->
-    ok.
+run(Config, List) ->
+    [{application, diameter, App}] = ?util:consult(diameter, app),
+    ?util:run([{{?MODULE, F, [{App, Config}]}, 10000} || F <- List]).
 
 %% ===========================================================================
 %% # keys/1
@@ -82,10 +94,12 @@ end_per_suite(_Config) ->
 %% also be caught by other testcases.
 %% ===========================================================================
 
-keys(Config) ->
-    App = fetch(app, Config),
+keys({App, _Config}) ->
     [] = lists:filter(fun(K) -> not lists:keymember(K, 1, App) end,
-                      [vsn, description, modules, registered, applications]).
+                      [vsn, description, modules, registered, applications]);
+
+keys(Config) ->
+    run(Config, [keys]).
 
 %% ===========================================================================
 %% # vsn/1
@@ -93,8 +107,11 @@ keys(Config) ->
 %% Ensure that our app version sticks to convention.
 %% ===========================================================================
 
+vsn({App, _Config}) ->
+    true = is_vsn(fetch(vsn, App));
+
 vsn(Config) ->
-    true = is_vsn(fetch(vsn, fetch(app, Config))).
+    run(Config, [vsn]).
 
 %% ===========================================================================
 %% # modules/1
@@ -103,15 +120,17 @@ vsn(Config) ->
 %% compiler/info modules.
 %% ===========================================================================
 
-modules(Config) ->
-    Mods = fetch(modules, fetch(app, Config)),
+modules({App, _Config}) ->
+    Mods = fetch(modules, App),
     Installed = code_mods(),
     Help = lists:sort(?INFO_MODULES ++ ?COMPILER_MODULES),
+    {[], Help} = {Mods -- Installed, lists:sort(Installed -- Mods)};
 
-    {[], Help} = {Mods -- Installed, lists:sort(Installed -- Mods)}.
+modules(Config) ->
+    run(Config, [modules]).
 
 code_mods() ->
-    Dir  = code:lib_dir(?APP, ebin),
+    Dir  = code:lib_dir(diameter, ebin),
     {ok, Files} = file:list_dir(Dir),
     [?A(lists:reverse(R)) || N <- Files, "maeb." ++ R <- [lists:reverse(N)]].
 
@@ -121,9 +140,12 @@ code_mods() ->
 %% Ensure that no module does export_all.
 %% ===========================================================================
 
+exports({App, _Config}) ->
+    Mods = fetch(modules, App),
+    [] = [M || M <- Mods, exports_all(M)];
+
 exports(Config) ->
-    Mods = fetch(modules, fetch(app, Config)),
-    [] = [M || M <- Mods, exports_all(M)].
+    run(Config, [exports]).
 
 exports_all(Mod) ->
     Opts = fetch(options, Mod:module_info(compile)),
@@ -136,8 +158,7 @@ exports_all(Mod) ->
 %% Ensure that it's possible to build a minimal release with our app file.
 %% ===========================================================================
 
-release(Config) ->
-    App = fetch(app, Config),
+release({App, Config}) ->
     Rel = {release,
            {"diameter test release", fetch(vsn, App)},
            {erts, erlang:system_info(version)},
@@ -146,13 +167,16 @@ release(Config) ->
     ok = write_file(filename:join([Dir, "diameter_test.rel"]), Rel),
     {ok, _, []} = systools:make_script("diameter_test", [{path, [Dir]},
                                                          {outdir, Dir},
-                                                         silent]).
+                                                         silent]);
+
+release(Config) ->
+    run(Config, [release]).
 
 %% sasl need to be included to avoid a missing_sasl warning, error
 %% in the case of relup/1.
 
 appvsn(Name) ->
-    [{application, Name, App}] = diameter_util:consult(Name, app),
+    [{application, Name, App}] = ?util:consult(Name, app),
     fetch(vsn, App).
 
 %% ===========================================================================
@@ -162,8 +186,7 @@ appvsn(Name) ->
 %% or one in an application we haven't declared as a dependency. (Almost.)
 %% ===========================================================================
 
-xref(Config) ->
-    App = fetch(app, Config),
+xref({App, _Config}) ->
     Mods = fetch(modules, App),  %% modules listed in the app file
 
     %% List of application names extracted from runtime_dependencies.
@@ -179,7 +202,7 @@ xref(Config) ->
     %% the sense that there's no .app file, and isn't listed in
     %% applications.
     ok = lists:foreach(fun(A) -> add_application(XRef, A) end,
-                       [?APP, erts | fetch(applications, App)]),
+                       [diameter, erts | fetch(applications, App)]),
 
     {ok, Undefs} = xref:analyze(XRef, undefined_function_calls),
     {ok, RTmods} = xref:analyze(XRef, {module_use, Mods}),
@@ -212,7 +235,10 @@ xref(Config) ->
     %% The declared application versions are ignored since we only
     %% know what we see now.
     [] = lists:filter(fun(M) -> not lists:member(app(M), Deps) end,
-                      RTdeps -- Mods).
+                      RTdeps -- Mods);
+
+xref(Config) ->
+    run(Config, [xref]).
 
 ignored({FromMod,_,_}, {ToMod,_,_} = To, Rel)->
     %% diameter_tcp does call ssl despite the latter not being listed
@@ -281,7 +307,7 @@ add_application(XRef, App, Dir)
     {ok, App} = xref:add_application(XRef, Dir, []).
 
 make_name(Suf) ->
-    list_to_atom(atom_to_list(?APP) ++ "_" ++ atom_to_list(Suf)).
+    list_to_atom("diameter_" ++ atom_to_list(Suf)).
 
 %% ===========================================================================
 %% # relup/1
@@ -289,11 +315,10 @@ make_name(Suf) ->
 %% Ensure that we can generate release upgrade files using our appup file.
 %% ===========================================================================
 
-relup(Config) ->
-    [{Vsn, Up, Down}] = diameter_util:consult(?APP, appup),
+relup({App, Config}) ->
+    [{Vsn, Up, Down}] = ?util:consult(diameter, appup),
     true = is_vsn(Vsn),
 
-    App = fetch(app, Config),
     Rel = [{erts, erlang:system_info(version)}
            | [{A, appvsn(A)} || A <- [sasl | fetch(applications, App)]]],
 
@@ -314,7 +339,10 @@ relup(Config) ->
 
     {ok, _, _, []} = systools:make_relup(Name, UpFrom, DownTo, [{path, [Dir]},
                                                                 {outdir, Dir},
-                                                                silent]).
+                                                                silent]);
+
+relup(Config) ->
+    run(Config, [relup]).
 
 acc_rel(Dir, Rel, List) ->
     lists:foldl(fun(T,A) -> acc_rel(Dir, Rel, T, A) end,
diff --git a/lib/diameter/test/diameter_capx_SUITE.erl b/lib/diameter/test/diameter_capx_SUITE.erl
index 51b6c1d7f2..852450bc9f 100644
--- a/lib/diameter/test/diameter_capx_SUITE.erl
+++ b/lib/diameter/test/diameter_capx_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -25,39 +25,30 @@
 
 -module(diameter_capx_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_group/2,
-         end_per_group/2,
-         init_per_testcase/2,
-         end_per_testcase/2]).
-
-%% testcases
--export([start/1,
-         vendor_id/1,
-         start_services/1,
-         add_listeners/1,
-         s_no_common_application/1,
-         c_no_common_application/1,
-         s_no_common_security/1,
-         c_no_common_security/1,
-         s_unknown_peer/1,
-         c_unknown_peer/1,
-         s_unable/1,
-         c_unable/1,
-         s_client_reject/1,
-         c_client_reject/1,
-         remove_listeners/1,
-         stop_services/1,
-         stop/1]).
+         traffic/1]).
 
 %% diameter callbacks
 -export([peer_up/4,
          peer_down/4]).
 
+%% internal
+-export([s_no_common_application/1,
+         s_no_common_security/1,
+         s_unknown_peer/1,
+         s_unable/1,
+         s_client_reject/1,
+         c_no_common_application/1,
+         c_no_common_security/1,
+         c_unknown_peer/1,
+         c_unable/1,
+         c_client_reject/1]).
+
 -include("diameter.hrl").
 -include("diameter_gen_base_rfc3588.hrl").
 %% Use only the Vendor-Specific-Application-Id record from the base
@@ -108,7 +99,7 @@
 -define(caps,   #diameter_caps).
 -define(packet, #diameter_packet).
 
--define(fail(T), erlang:error({T, process_info(self(), messages)})).
+-define(fail(T), error({T, process_info(self(), messages)})).
 
 -define(TIMEOUT, 10000).
 
@@ -117,56 +108,15 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
-
-all() -> [start,
-          vendor_id,
-          start_services,
-          add_listeners]
-      ++ [{group, D, P} || D <- ?DICTS, P <- [[], [parallel]]]
-      ++ [remove_listeners,
-          stop_services,
-          stop].
-
-groups() ->
-    Tc = lists:flatmap(fun tc/1, tc()),
-    [{D, [], Tc} || D <- ?DICTS].
-
-init_per_suite(Config) ->
-    lists:foreach(fun load_dict/1, ?NOAPPS),
-    Config.
+    [{timetrap, {seconds, 20}}].
 
-end_per_suite(_Config) ->
-    [] = [Mod || N <- ?NOAPPS,
-                 Mod <- [dict(N)],
-                 false <- [code:delete(Mod)]],
-    ok.
-
-%% Generate a unique hostname for each testcase so that watchdogs
-%% don't prevent a connection from being brought up immediately.
-init_per_testcase(Name, Config) ->
-    [{host, ?L(Name) ++ "." ++ diameter_util:unique_string()}
-     | Config].
-
-init_per_group(Name, Config) ->
-    [{rfc, Name} | Config].
+all() ->
+    [traffic].
 
-end_per_group(_, _) ->
-    ok.
+traffic(_Config) ->
+    run().
 
-end_per_testcase(N, _)
-  when N == start;
-       N == vendor_id;
-       N == start_services;
-       N == add_listeners;
-       N == remove_listeners;
-       N == stop_services;
-       N == stop ->
-    ok;
-
-end_per_testcase(Name, Config) ->
-    CRef = ?util:read_priv(Config, Name),
-    ok = diameter:remove_transport(?CLIENT, CRef).
+%% ===========================================================================
 
 %% Testcases all come in two flavours, client and server.
 tc(Name) ->
@@ -179,17 +129,46 @@ tc() ->
      unable,
      client_reject].
 
-%% ===========================================================================
-%% start/stop testcases
+run() ->
+    try
+        ?util:run([{fun traffic/0, 15000}])
+    after
+        ok = diameter:stop(),
+        [] = [M || N <- ?NOAPPS,
+                   M <- [dict(N)],
+                   B <- [code:delete(M)],
+                   _ <- [code:purge(M)],
+                   not B]
+    end.
+
+traffic() ->
+    lists:foreach(fun load_dict/1, ?NOAPPS),
+    ok = diameter:start(),
+    _ = vendor_id(),
+    ok = diameter:start_service(?SERVER, ?SERVICE),
+    ok = diameter:start_service(?CLIENT, ?SERVICE),
+    LRefs = add_listeners(),
+    ?util:run([[fun traffic/3, F, D, LRefs] || D <- ?DICTS,
+                                               N <- tc(),
+                                               F <- tc(N)]),
+    ok = diameter:remove_transport(?SERVER, true),
+    ok = diameter:stop_service(?CLIENT),
+    ok = diameter:stop_service(?SERVER).
 
-start(_Config) ->
-    ok = diameter:start().
+%% Generate a unique hostname for each testcase so that watchdogs
+%% don't prevent a connection from being brought up immediately.
+traffic(F, Dict, {_Base, _Acct} = LRefs) ->
+    apply(?MODULE,
+          F,
+          [[{lref, LRefs},
+            {rfc, Dict},
+            {host, ?L(F) ++ "." ++ ?util:unique_string()}]]).
 
 %% Ensure that both integer and list-valued vendor id's can be
 %% configured in a Vendor-Specific-Application-Id, the arity having
 %% changed between RFC 3588 and RFC 6733.
-vendor_id(_Config) ->
-    [] = ?util:run([[fun vid/1, V] || V <- [1, [1], [1,2], x]]).
+vendor_id() ->
+    ?util:run([[fun vid/1, V] || V <- [1, [1], [1,2], x]]).
 
 vid(V) ->
     RC = diameter:start_service(make_ref(),
@@ -203,14 +182,10 @@ vid(x, {error, _}) ->
 vid(_, ok) ->
     ok.
 
-start_services(_Config) ->
-    ok = diameter:start_service(?SERVER, ?SERVICE),
-    ok = diameter:start_service(?CLIENT, ?SERVICE).
-
 %% One server that responds only to base accounting, one that responds
 %% to both this and the common application. Share a common service just
 %% to simplify config, and because we can.
-add_listeners(Config) ->
+add_listeners() ->
     Acct = [listen(?SERVER,
                    [{capabilities, [{'Origin-Host', ?HOST(H)},
                                     {'Auth-Application-Id', []}]},
@@ -224,17 +199,7 @@ add_listeners(Config) ->
                     {capabilities_cb, [fun server_capx/3, base]}])
             || {A,H} <- [{[base3588, acct3588], "base3588-srv"},
                          {[base6733, acct6733], "base6733-srv"}]],
-    ?util:write_priv(Config, ?MODULE, {Base, Acct}). %% lref/2 reads
-
-remove_listeners(_Config) ->
-    ok = diameter:remove_transport(?SERVER, true).
-
-stop_services(_Config) ->
-    ok = diameter:stop_service(?CLIENT),
-    ok = diameter:stop_service(?SERVER).
-
-stop(_Config) ->
-    ok = diameter:stop().
+    {Base, Acct}.
 
 %% ===========================================================================
 %% All the testcases come in pairs, one for receiving an event on the
@@ -338,13 +303,10 @@ s_client_reject(Config) ->
     receive
         ?event{service = ?SERVER,
                info = {up, LRef,
-                           {_, ?caps{origin_host = {_, OH}}},
-                           {listen, _},
-                           ?packet{}}}
-                    = Info ->
-            Info
-    after ?TIMEOUT ->
-            ?fail({LRef, OH})
+                       {_, ?caps{origin_host = {_, OH}}},
+                       {listen, _},
+                       ?packet{}}}  ->
+            ok
     end.
 
 c_client_reject(Config) ->
@@ -404,12 +366,9 @@ server_closed(Config, F, RC) ->
                info = {closed, LRef,
                                {'CER', RC,
                                        ?caps{origin_host = {_, OH}},
-                                       ?packet{}}
-                               = Reason,
+                                       ?packet{}},
                                {listen, _}}} ->
-            Reason
-    after ?TIMEOUT ->
-            ?fail({LRef, OH})
+            ok
     end.
 
 %% server_reject/3
@@ -425,12 +384,9 @@ server_reject(Config, F, RC) ->
                info = {closed, LRef,
                                {'CER', {capabilities_cb, _, RC},
                                        ?caps{origin_host = {_, OH}},
-                                       ?packet{}}
-                               = Reason,
+                                       ?packet{}},
                                {listen, _}}} ->
-            Reason
-    after ?TIMEOUT ->
-            ?fail({LRef, OH})
+            ok
     end.
 
 %% client_closed/4
@@ -459,8 +415,6 @@ client_recv(CRef) ->
         ?event{service = ?CLIENT,
                info = {closed, CRef, Reason, {connect, _}}} ->
             Reason
-    after ?TIMEOUT ->
-            ?fail(CRef)
     end.
 
 %% server_capx/3
@@ -504,20 +458,14 @@ listen(Name, Opts) ->
 connect(Config, T, Opts) ->
     {_, H} = lists:keyfind(host, 1, Config),
     LRef = lref(Config, T),
-    CRef = connect(LRef, [{capabilities, [{'Origin-Host', ?HOST(H)}]}
-                          | Opts]),
-    Name = lists:takewhile(fun(C) -> C /= $. end, H),
-    ?util:write_priv(Config, Name, CRef),  %% end_per_testcase reads
-    {CRef, LRef}.
-
-connect(LRef, Opts) ->
     [PortNr] = ?util:lport(tcp, LRef),
-    {ok, CRef} = diameter:add_transport(?CLIENT,
-                                        {connect, opts(PortNr, Opts)}),
-    CRef.
+    {ok, CRef}
+        = diameter:add_transport(?CLIENT, {connect, opts(H, PortNr, Opts)}),
+    {CRef, LRef}.
 
-opts(PortNr, Opts) ->
-    [{transport_module, diameter_tcp},
+opts(Host, PortNr, Opts) ->
+    [{capabilities, [{'Origin-Host', ?HOST(Host)}]},
+     {transport_module, diameter_tcp},
      {transport_config, [{raddr, ?ADDR},
                          {rport, PortNr},
                          {ip, ?ADDR},
@@ -531,7 +479,7 @@ lref(rfc6733, [_, LRef]) ->
 
 lref(Config, T) ->
     lref(proplists:get_value(rfc, Config),
-         case ?util:read_priv(Config, ?MODULE) of
+         case proplists:get_value(lref, Config) of
              {R, _} when T == base ->
                  R;
              {_, R} when T == acct ->
diff --git a/lib/diameter/test/diameter_codec_SUITE.erl b/lib/diameter/test/diameter_codec_SUITE.erl
index 17112794e4..ff8a031460 100644
--- a/lib/diameter/test/diameter_codec_SUITE.erl
+++ b/lib/diameter/test/diameter_codec_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -28,86 +28,110 @@
 
 -module(diameter_codec_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_group/2,
-         end_per_group/2,
-         init_per_testcase/2,
-         end_per_testcase/2]).
-
-%% testcases
--export([base/1,
+         base/1,
          gen/1,
          lib/1,
          unknown/1,
-         success/1,
-         grouped_error/1,
-         failed_error/1]).
+         recode/1]).
 
--include("diameter_ct.hrl").
 -include("diameter.hrl").
 
+-define(util, diameter_util).
 -define(L, atom_to_list).
 
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 10}}].
+    [{timetrap, {seconds, 15}}].
 
 all() ->
-    [base, gen, lib, unknown, {group, recode}].
+    [base, gen, lib, unknown, recode].
 
-groups() ->
-    [{recode, [], [success,
-                   grouped_error,
-                   failed_error]}].
+base(_Config) ->
+    run(base).
 
-init_per_suite(Config) ->
-    Config.
+gen(_Config) ->
+    run(gen).
 
-end_per_suite(_Config) ->
-    ok.
+lib(_Config) ->
+    run(lib).
 
-init_per_group(recode, Config) ->
-    ok = diameter:start(),
-    Config.
+unknown(Config) ->
+    Priv = proplists:get_value(priv_dir, Config),
+    Data = proplists:get_value(data_dir, Config),
+    unknown(Priv, Data).
+
+recode(_Config) ->
+    run(recode).
+
+%% ===========================================================================
+
+%% run/0
+
+run() ->
+    run(all()).
+
+%% run/1
 
-end_per_group(_, _) ->
-    ok =  diameter:stop().
+run(base) ->
+    diameter_codec_test:base();
 
-init_per_testcase(gen, Config) ->
-    [{application, ?APP, App}] = diameter_util:consult(?APP, app),
+run(gen) ->
+    [{application, diameter, App}] = diameter_util:consult(diameter, app),
     {modules, Ms} = lists:keyfind(modules, 1, App),
     [_|_] = Gs = lists:filter(fun(M) ->
                                       lists:prefix("diameter_gen_", ?L(M))
                               end,
                               Ms),
-    [{dicts, Gs} | Config];
+    lists:foreach(fun diameter_codec_test:gen/1, Gs);
 
-init_per_testcase(_Name, Config) ->
-    Config.
+run(lib) ->
+    diameter_codec_test:lib();
 
-end_per_testcase(_, _) ->
-    ok.
-
-%% ===========================================================================
-
-base(_Config) ->
-    diameter_codec_test:base().
+%% Have a separate AVP dictionary just to exercise more code.
+run(unknown) ->
+    PD = ?util:mktemp(filename:join(?util:tmpdir(), "diameter_codec")),
+    DD = filename:join([code:lib_dir(diameter),
+                        "test",
+                        "diameter_codec_SUITE_data"]),
+    try
+        unknown(PD, DD)
+    after
+        file:del_dir_r(PD)
+    end;
+
+run(success) ->
+    success();
+
+run(grouped_error) ->
+    grouped_error();
+
+run(failed_error) ->
+    failed_error();
+
+run(recode) ->
+    ok = diameter:start(),
+    try
+        ?util:run([{?MODULE, run, [F]} || F  <- [success,
+                                                 grouped_error,
+                                                 failed_error]])
+    after
+        ok = diameter:stop()
+    end;
 
-gen([{dicts, Ms} | _]) ->
-    lists:foreach(fun diameter_codec_test:gen/1, Ms).
+run(List) ->
+    ?util:run([{{?MODULE, run, [F]}, 10000} || F <- List]).
 
-lib(_Config) ->
-    diameter_codec_test:lib().
+%% ===========================================================================
 
-%% Have a separate AVP dictionary just to exercise more code.
-unknown(Config) ->
-    Priv = proplists:get_value(priv_dir, Config),
-    Data = proplists:get_value(data_dir, Config),
+unknown(Priv, Data) ->
     ok = make(Data, "recv.dia"),
     ok = make(Data, "avps.dia"),
     {ok, _, _} = compile("diameter_test_avps.erl"),
@@ -130,7 +154,7 @@ compile(File, Opts) ->
 %% ===========================================================================
 
 %% Ensure a Grouped AVP is represented by a list in the avps field.
-success(_) ->
+success() ->
     Avps = [{295, <<1:32>>},  %% Termination-Cause
             {284, [{280, "Proxy-Host"}, %% Proxy-Info
                    {33, "Proxy-State"}, %%
@@ -145,13 +169,13 @@ success(_) ->
                                             value = 2,
                                             data = <<2:32>>}]],
                      errors = []}
-        = str(recode(str(Avps))).
+        = str(repkg(str(Avps))).
 
 %% ===========================================================================
 
 %% Ensure a Grouped AVP is represented by a list in the avps field
 %% even in the case of a decode error on a component AVP.
-grouped_error(_) ->
+grouped_error() ->
     Avps = [{295, <<1:32>>},  %% Termination-Cause
             {284, [{295, <<0:32>>},      %% Proxy-Info, Termination-Cause
                    {280, "Proxy-Host"},
@@ -166,13 +190,13 @@ grouped_error(_) ->
                               #diameter_avp{code = 280},
                               #diameter_avp{code = 33}]],
                      errors = [{5004, #diameter_avp{code = 284}}]}
-        = str(recode(str(Avps))).
+        = str(repkg(str(Avps))).
 
 %% ===========================================================================
 
 %% Ensure that a failed decode in Failed-AVP is acceptable, and that
 %% the component AVPs are decoded if possible.
-failed_error(_) ->
+failed_error() ->
     Avps = [{279, [{295, <<0:32>>},    %% Failed-AVP, Termination-Cause
                    {258, <<1:32>>},             %% Auth-Application-Id
                    {284, [{280, "Proxy-Host"},  %% Proxy-Info
@@ -195,7 +219,7 @@ failed_error(_) ->
                                              value = 2,
                                              data = <<2:32>>}]]],
                      errors = []}
-        = sta(recode(sta(Avps))).
+        = sta(repkg(sta(Avps))).
 
 %% ===========================================================================
 
@@ -279,9 +303,9 @@ avp([{_,_} | _] = Avps) ->
 avp(V) ->
     V.
 
-%% recode/1
+%% repkg/1
 
-recode(Msg) ->
+repkg(Msg) ->
     recode(Msg, diameter_gen_base_rfc6733).
 
 recode(#diameter_packet{} = Pkt, Dict) ->
diff --git a/lib/diameter/test/diameter_compiler_SUITE.erl b/lib/diameter/test/diameter_compiler_SUITE.erl
index 73fe1ef6e0..a33da0f64e 100644
--- a/lib/diameter/test/diameter_compiler_SUITE.erl
+++ b/lib/diameter/test/diameter_compiler_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,16 +24,17 @@
 
 -module(diameter_compiler_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         init_per_suite/1,
-         end_per_suite/1]).
-
-%% testcases
--export([format/1,    format/2,
-         replace/1,   replace/2,
-         generate/1,  generate/4,
-         flatten1/1,  flatten1/3,
+         format/1,
+         replace/1,
+         generate/1,
+         flatten1/1,
          flatten2/1]).
 
 -export([dict/0]).  %% fake dictionary module
@@ -364,7 +365,7 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {minutes, 10}}].
+    [{timetrap, {seconds, 45}}].
 
 all() ->
     [format,
@@ -373,33 +374,37 @@ all() ->
      flatten1,
      flatten2].
 
-%% Error handling testcases will make an erroneous dictionary out of
-%% the base dictionary and check that the expected error results.
-%% ?REPLACE encodes the modifications and expected error.
-init_per_suite(Config) ->
+%% ===========================================================================
+
+%% run/0
+
+run() ->
+    run(all()).
+
+%% run/1
+
+run(List) ->
     Path = filename:join([code:lib_dir(diameter, src), "dict", ?base]),
     {ok, Bin} = file:read_file(Path),
-    [{base, Bin} | Config].
-
-end_per_suite(_Config) ->
-    ok.
+    ?util:run([{{?MODULE, F, [Bin]}, 30000} || F <- List]).
 
 %% ===========================================================================
 %% format/1
 %%
 %% Ensure that parse o format is the identity map.
 
-format(Config) ->
-    Bin = proplists:get_value(base, Config),
-    [] = ?util:run([{?MODULE, [format, M, Bin]}
-                    || E <- ?REPLACE,
-                       {ok, M} <- [norm(E)]]).
+format(<<_/binary>> = Bin) ->
+    ?util:run([{?MODULE, format, [{M, Bin}]} || E <- ?REPLACE,
+                                                {ok, M} <- [norm(E)]]);
 
-format(Mods, Bin) ->
+format({Mods, Bin}) ->
     B = modify(Bin, Mods),
     {ok, Dict} = parse(B, []),
     {ok, D} = parse(diameter_make:format(Dict), []),
-    {Dict, Dict} = {Dict, D}.
+    {Dict, Dict} = {Dict, D};
+
+format(_Config) ->
+    run([format]).
 
 parse(File, Opts) ->
     case diameter_make:codec(File, [parse, hrl, return | Opts]) of
@@ -415,20 +420,21 @@ parse(File, Opts) ->
 %% Ensure the expected success/error when parsing a morphed common
 %% dictionary.
 
-replace(Config) ->
-    Bin = proplists:get_value(base, Config),
-    [] = ?util:run([{?MODULE, [replace, N, Bin]}
-                    || E <- ?REPLACE,
-                       N <- [norm(E)]]).
+replace(<<_/binary>> = Bin) ->
+    ?util:run([{?MODULE, replace, [{N, Bin}]} || E <- ?REPLACE,
+                                                 N <- [norm(E)]]);
 
-replace({E, Mods}, Bin) ->
+replace({{E, Mods}, Bin}) ->
     B = modify(Bin, Mods),
     case {E, parse(B, [{include, here()}]), Mods} of
         {ok, {ok, Dict}, _} ->
             Dict;
         {_, {error, {E,_} = T}, _} when E /= ok ->
             diameter_make:format_error(T)
-    end.
+    end;
+
+replace(_Config) ->
+    run([replace]).
 
 re({RE, Repl}, Bin) ->
     re:replace(Bin, RE, Repl, [multiline]).
@@ -438,15 +444,14 @@ re({RE, Repl}, Bin) ->
 %%
 %% Ensure success when generating code and compiling.
 
-generate(Config) ->
-    Bin = proplists:get_value(base, Config),
+generate(<<_/binary>> = Bin) ->
     Rs  = lists:zip(?REPLACE, lists:seq(1, length(?REPLACE))),
-    [] = ?util:run([{?MODULE, [generate, M, Bin, N, T]}
-                    || {E,N} <- Rs,
-                       {ok, M} <- [norm(E)],
-                       T <- [erl, hrl, parse, forms]]).
+    ?util:run([{?MODULE, generate, [{M, Bin, N, T}]}
+               || {E,N} <- Rs,
+                  {ok, M} <- [norm(E)],
+                  T <- [erl, hrl, parse, forms]]);
 
-generate(Mods, Bin, N, Mode) ->
+generate({Mods, Bin, N, Mode}) ->
     B = modify(Bin, Mods ++ [{"@name .*", "@name dict" ++ ?L(N)}]),
     {ok, Dict} = parse(B, []),
     File = "dict" ++ integer_to_list(N),
@@ -454,7 +459,10 @@ generate(Mods, Bin, N, Mode) ->
                                          [{name, File},
                                           {prefix, "base"},
                                           Mode])},
-    generate(Mode, File, Dict).
+    generate(Mode, File, Dict);
+
+generate(_Config) ->
+    run([generate]).
 
 generate(erl, File, _) ->
     {ok, _} = compile:file(File ++ ".erl", [return_errors]);
@@ -473,21 +481,21 @@ generate(hrl, _, _) ->
 %% ===========================================================================
 %% flatten1/1
 
-flatten1(_Config) ->
+flatten1({Key, BaseD, FlatD}) ->
+    Vs = orddict:fetch(Key, BaseD),
+    Vs = orddict:fetch(Key, FlatD);
+
+flatten1(_) ->
     [Vsn | BaseD] = diameter_gen_base_rfc6733:dict(),
     {ok, I} = parse("@inherits diameter_gen_base_rfc6733\n", []),
     [Vsn | FlatD] = diameter_make:flatten(I),
-    [] = ?util:run([{?MODULE, [flatten1, K, BaseD, FlatD]}
-                    || K <- [avp_types, grouped, enum]]).
-
-flatten1(Key, BaseD, FlatD) ->
-    Vs = orddict:fetch(Key, BaseD),
-    Vs = orddict:fetch(Key, FlatD).
+    ?util:run([{?MODULE, flatten1, [{K, BaseD, FlatD}]}
+               || K <- [avp_types, grouped, enum]]).
 
 %% ===========================================================================
 %% flatten2/1
 
-flatten2(_Config) ->
+flatten2(_) ->
     Dict1 =
         "@name diameter_test1\n"
         "@prefix diameter_test1\n"
diff --git a/lib/diameter/test/diameter_config_SUITE.erl b/lib/diameter/test/diameter_config_SUITE.erl
index 31a6b49041..90773e8f6d 100644
--- a/lib/diameter/test/diameter_config_SUITE.erl
+++ b/lib/diameter/test/diameter_config_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2013-2015. All Rights Reserved.
+%% Copyright Ericsson AB 2013-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -25,14 +25,15 @@
 
 -module(diameter_config_SUITE).
 
--export([suite/0,
-         all/0]).
+%% testscases, no common_test dependency
+-export([run/0,
+         run/1]).
 
-%% testcases
--export([start/1,
+%% common_test wrapping
+-export([suite/0,
+         all/0,
          start_service/1,
-         add_transport/1,
-         stop/1]).
+         add_transport/1]).
 
 -define(util, diameter_util).
 
@@ -204,38 +205,53 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 15}}].
 
 all() ->
-    [start,
-     start_service,
-     add_transport,
-     stop].
+    [start_service,
+     add_transport].
+
+start_service(_Config) ->
+    run([start_service]).
+
+add_transport(_Config) ->
+    run([add_transport]).
 
 %% ===========================================================================
 
-start(_) ->
-    ok = diameter:start().
+run() ->
+    run(all()).
 
-start_service(T)
-  when is_tuple(T) ->
-    do(fun start/3, T);
+run(List)
+  when is_list(List) ->
+    try
+        ?util:run([[[fun run/1, {F, 5000}] || F <- List]])
+    after
+        dbg:stop_clear(),
+        diameter:stop()
+    end;
+
+run({F, Tmo}) ->
+    ok = diameter:start(),
+    try
+        ?util:run([{[fun run/1, F], Tmo}])
+    after
+        ok = diameter:stop()
+    end;
 
-start_service(_) ->
-    [] = ?util:run([{?MODULE, start_service, [T]}
-                    || T <- [lists:keyfind(capabilities, 1, ?TRANSPORT_CONFIG)
-                             | ?SERVICE_CONFIG]]).
+run(start_service) ->
+    ?util:run([[fun start/1, T]
+               || T <- [lists:keyfind(capabilities, 1, ?TRANSPORT_CONFIG)
+                       | ?SERVICE_CONFIG]]);
 
-add_transport(T)
-  when is_tuple(T) ->
-    do(fun add/3, T);
+run(add_transport) ->
+    ?util:run([[fun add/1, T] || T <- ?TRANSPORT_CONFIG]).
 
-add_transport(_) ->
-    [] = ?util:run([{?MODULE, add_transport, [T]}
-                    || T <- ?TRANSPORT_CONFIG]).
+start(T) ->
+    do(fun start/3, T).
 
-stop(_) ->
-    ok = diameter:stop().
+add(T) ->
+    do(fun add/3, T).
 
 %% ===========================================================================
 
diff --git a/lib/diameter/test/diameter_ct.hrl b/lib/diameter/test/diameter_ct.hrl
deleted file mode 100644
index fdf8782456..0000000000
--- a/lib/diameter/test/diameter_ct.hrl
+++ /dev/null
@@ -1,22 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2010-2016. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%%     http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
-
--define(APP, diameter).
--define(ERROR(T), erlang:error({?MODULE, ?LINE, T})).
diff --git a/lib/diameter/test/diameter_dpr_SUITE.erl b/lib/diameter/test/diameter_dpr_SUITE.erl
index 779b919d3c..45f4ec9b5a 100644
--- a/lib/diameter/test/diameter_dpr_SUITE.erl
+++ b/lib/diameter/test/diameter_dpr_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2012-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2012-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,22 +24,26 @@
 
 -module(diameter_dpr_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_group/2,
-         end_per_group/2]).
-
-%% testcases
--export([start/1,
-         connect/1,
+         client/1,
+         server/1,
+         uncommon/1,
+         transport/1,
+         service/1,
+         application/1]).
+
+%% internal
+-export([connect/1,
          send_dpr/1,
          remove_transport/1,
          stop_service/1,
-         check/1,
-         stop/1]).
+         check/1]).
 
 %% disconnect_cb
 -export([disconnect/5]).
@@ -84,42 +88,54 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 30}}].
 
 all() ->
-    [{group, R} || R <- [client, server, uncommon | ?REASONS]].
+    [client, server, uncommon, transport, service, application].
 
-%% The group determines how transports are terminated: by remove_transport,
-%% stop_service or application stop.
-groups() ->
-    [{R, [], [start, send_dpr, stop]} || R <- [client, server, uncommon]]
-        ++ [{R, [], Ts} || Ts <- [tc()], R <- ?REASONS].
+-define(tc(Name), Name(_) -> run([Name])).
 
-init_per_suite(Config) ->  %% not need, but a useful place to enable trace
-    Config.
+?tc(client).
+?tc(server).
+?tc(uncommon).
+?tc(transport).
+?tc(service).
+?tc(application).
 
-end_per_suite(_Config) ->
-    ok.
+%% ===========================================================================
 
-init_per_group(Name, Config) ->
-    [{group, Name} | Config].
+%% run/0
 
-end_per_group(_, _) ->
-    ok.
+run() ->
+    run(all()).
 
-tc() ->
-    [start, connect, remove_transport, stop_service, check, stop].
+%% run/1
 
-%% ===========================================================================
+run(List)
+  when is_list(List) ->
+    try
+        ?util:run([[{[fun run/1, T], 15000} || T <- List]])
+    after
+        diameter:stop()
+    end;
 
-%% start/1
-
-start(Config)
-  when is_list(Config) ->
-    Grp = group(Config),
+run(Grp) ->
     ok = diameter:start(),
     ok = diameter:start_service(?SERVER, service(?SERVER, Grp)),
-    ok = diameter:start_service(?CLIENT, service(?CLIENT, Grp)).
+    ok = diameter:start_service(?CLIENT, service(?CLIENT, Grp)),
+    _ = lists:foldl(fun(F,A) -> apply(?MODULE, F, [A]) end,
+                    [{group, Grp}],
+                    tc(Grp)),
+    ok = diameter:stop().
+
+tc(T)
+  when T == client;
+       T == server;
+       T == uncommon ->
+    [send_dpr];
+
+tc(_) ->
+    [connect, remove_transport, stop_service, check].
 
 service(?SERVER = Svc, _) ->
     ?SERVICE(Svc)
@@ -192,26 +208,30 @@ sender(_) ->
 %% connect/1
 
 connect(Config) ->
-    Pid = spawn(fun init/0),  %% process for disconnect_cb to bang
+    Self = self(),
     Grp = group(Config),
+    Pid = spawn(fun() -> init(Self) end), %% process for disconnect_cb to bang
     LRef = ?util:listen(?SERVER, tcp),
     Refs = [?util:connect(?CLIENT, tcp, LRef, opts(RCs, {Grp, Pid}))
             || RCs <- ?RETURNS],
-    ?util:write_priv(Config, config, [Pid | Refs]).
+    Pid ! (Grp == application orelse length(Refs)),
+    [{config, [Pid | Refs]} | Config].
 
 %% remove_transport/1
 
 %% Remove all the client transports only in the transport group.
 remove_transport(Config) ->
     transport == group(Config)
-        andalso (ok = diameter:remove_transport(?CLIENT, true)).
+        andalso (ok = diameter:remove_transport(?CLIENT, true)),
+    Config.
 
 %% stop_service/1
 
 %% Stop the service only in the service group.
 stop_service(Config) ->
     service == group(Config)
-        andalso (ok = diameter:stop_service(?CLIENT)).
+        andalso (ok = diameter:stop_service(?CLIENT)),
+    Config.
 
 %% check/1
 
@@ -219,16 +239,11 @@ stop_service(Config) ->
 %% for the timing reason explained below.
 check(Config) ->
     Grp = group(Config),
-    [Pid | Refs] = ?util:read_priv(Config, config),
+    [Pid | Refs] = proplists:get_value(config, Config),
     Pid ! self(),                      %% ask for dictionary
     Dict = receive {Pid, D} -> D end,  %% get it
     check(Refs, ?RETURNS, Grp, Dict).  %% check for callbacks
 
-%% stop/1
-
-stop(_Config) ->
-    ok = diameter:stop().
-
 %% ===========================================================================
 
 %% Whether or not there are callbacks after diameter:stop() depends on
@@ -258,8 +273,7 @@ check1(Ref, [], _, Dict) ->
 %% ----------------------------------------
 
 group(Config) ->
-    {group, Grp} = lists:keyfind(group, 1, Config),
-    Grp.
+    proplists:get_value(group, Config).
 
 %% Configure the callback with the group name (= disconnect reason) as
 %% extra argument.
@@ -274,13 +288,18 @@ disconnect(Reason, Ref, Peer, {Reason, Pid}, RC) ->
     Pid ! {Reason, Ref},
     RC.
 
-init() ->
-    exit(recv(dict:new())).
+init(Pid) ->
+    monitor(process, Pid),
+    exit(recv(receive T -> T end, dict:new())).
 
-recv(Dict) ->
+recv(true, Dict) ->
+    recv(0, Dict);
+recv(N, Dict) ->
     receive
-        Pid when is_pid(Pid) ->
+        Pid when N == 0, is_pid(Pid) ->
             Pid ! {self(), Dict};
         {Reason, Ref} ->
-            recv(dict:store(Ref, Reason, Dict))
+            recv(N - 1, dict:store(Ref, Reason, Dict));
+        {'DOWN', _, process, _, _} ->
+            ok
     end.
diff --git a/lib/diameter/test/diameter_event_SUITE.erl b/lib/diameter/test/diameter_event_SUITE.erl
index 6d1d1dfd8f..f4cb5e6d79 100644
--- a/lib/diameter/test/diameter_event_SUITE.erl
+++ b/lib/diameter/test/diameter_event_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2013-2020. All Rights Reserved.
+%% Copyright Ericsson AB 2013-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -26,20 +26,18 @@
 
 -module(diameter_event_SUITE).
 
+%% testcase, no common_test dependency
+-export([run/0]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_testcase/2,
-         end_per_testcase/2]).
-
-%% testcases
--export([start/1,
-         start_server/1,
-         up/1,
+         traffic/1]).
+
+%% internal
+-export([up/1,
          down/1,
-         cea_timeout/1,
-         stop/1]).
+         cea_timeout/1]).
 
 -include("diameter.hrl").
 
@@ -77,43 +75,44 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 90}}].
 
 all() ->
-    [start,
-     start_server,
-     up,
-     down,
-     cea_timeout,
-     stop].
-
-%% Not used, but a convenient place to enable trace.
-init_per_suite(Config) ->
-    Config.
-
-end_per_suite(_Config) ->
-    ok.
+    [traffic].
 
-init_per_testcase(Name, Config) ->
-    [{name, Name} | Config].
-
-end_per_testcase(_, _) ->
-    ok.
+traffic(_Config) ->
+    run().
 
 %% ===========================================================================
-%% start/stop testcases
 
-start(_Config) ->
-    ok = diameter:start().
+%% run/0
 
-start_server(Config) ->
+run() ->
+    ok = diameter:start(),
+    try
+        ?util:run([{fun traffic/0, 60000}])
+    after
+        ok = diameter:stop()
+    end.
+
+%% traffic/0
+
+traffic() ->
+    PortNr = start_server(),
+    Config = [{portnr, PortNr}],
+    Funs = [up, down, cea_timeout],
+    ?util:run([[{?MODULE, F, [[{name, F} | Config]]} || F <- Funs]]).
+
+%% start_server/0
+
+start_server() ->
     diameter:subscribe(?SERVER),
     ok = diameter:start_service(?SERVER, ?SERVICE(?SERVER, [?DICT_COMMON])),
     LRef = ?util:listen(?SERVER, tcp, [{capabilities_cb, fun capx_cb/2},
                                        {capx_timeout, ?SERVER_CAPX_TMO}]),
     [PortNr] = ?util:lport(tcp, LRef),
-    ?util:write_priv(Config, portnr, PortNr),
-    start = event(?SERVER).
+    start = event(?SERVER),
+    PortNr.
 
 %% Connect with matching capabilities and expect the connection to
 %% come up.
@@ -158,9 +157,6 @@ cea_timeout(Config) ->
     start = event(Svc),
     {{closed, Ref, {'CEA', timeout}, T}, _} = {event(Svc), T}.
 
-stop(_Config) ->
-    ok = diameter:stop().
-
 %% ----------------------------------------
 
 %% Keep the server from sending CEA until the client has timed out.
@@ -201,7 +197,7 @@ start_service(Name, Opts) ->
     diameter:start_service(Name, [{monitor, self()} | Opts]).
 
 opts(Config, Opts) ->
-    PortNr = ?util:read_priv(Config, portnr),
+    PortNr = proplists:get_value(portnr, Config),
 
     {connect, [{transport_module, diameter_tcp},
                {transport_config, [{ip, ?ADDR}, {port, 0},
diff --git a/lib/diameter/test/diameter_failover_SUITE.erl b/lib/diameter/test/diameter_failover_SUITE.erl
index 8a3b3e8413..0c78119e50 100644
--- a/lib/diameter/test/diameter_failover_SUITE.erl
+++ b/lib/diameter/test/diameter_failover_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -36,20 +36,19 @@
 
 -module(diameter_failover_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0]).
+
+%% common_test wrapping
 -export([suite/0,
-         all/0]).
-
-%% testcases
--export([start/1,
-         start_services/1,
-         connect/1,
-         send_ok/1,
-         send_nok/1,
-         send_discard_1/1,
-         send_discard_2/1,
-         stop_services/1,
-         empty/1,
-         stop/1]).
+         all/0,
+         parallel/1]).
+
+%% internal
+-export([send_ok/0,
+         send_nok/0,
+         send_discard_1/0,
+         send_discard_2/0]).
 
 %% diameter callbacks
 -export([pick_peer/4,
@@ -112,50 +111,61 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 90}}].
 
 all() ->
-    [start,
-     start_services,
-     connect,
-     send_ok,
-     send_nok,
-     send_discard_1,
-     send_discard_2,
-     stop_services,
-     empty,
-     stop].
+    [parallel].
+
+parallel(_Config) ->
+    run().
 
 %% ===========================================================================
-%% start/stop testcases
 
-start(_Config) ->
-    ok = diameter:start().
+%% run/0
+
+run() ->
+    ok = diameter:start(),
+    try
+        ?util:run([{fun traffic/0, 60000}])
+    after
+        ok = diameter:stop()
+    end.
+
+%% traffic/0
 
-start_services(_Config) ->
+traffic() ->
+    Servers = start_services(),
+    ok = connect(Servers),
+    [] = send(),
+    [] = stop_services(),
+    [] = ets:tab2list(diameter_request).
+
+%% start_services/0
+
+start_services() ->
     Servers = [server(N) || N <- ?SERVERS],
     [] = [T || C <- ?CLIENTS,
                T <- [diameter:start_service(C, ?SERVICE(C))],
                T /= ok],
+    Servers.
 
-    {save_config, Servers}.
+%% send/0
 
-connect(Config) ->
-    {start_services, Servers} = proplists:get_value(saved_config, Config),
+send() ->
+    Funs = [send_ok, send_nok, send_discard_1, send_discard_2],
+    ?util:run([[{?MODULE, F, []} || F <- Funs]]).
 
-    lists:foreach(fun(C) -> connect(C, Servers) end, ?CLIENTS).
+%% connect/1
 
-stop_services(_Config) ->
-    [] = [{H,T} || H <- ?CLIENTS ++ ?SERVERS,
-                   T <- [diameter:stop_service(H)],
-                   T /= ok].
+connect(Servers) ->
+    lists:foreach(fun(C) -> connect(C, Servers) end, ?CLIENTS).
 
-%% Ensure transports have been removed from request table.
-empty(_Config) ->
-    [] = ets:tab2list(diameter_request).
+%% stop_services/0
 
-stop(_Config) ->
-    ok = diameter:stop().
+stop_services() ->
+    [{H,T} || H <- ?CLIENTS ++ ?SERVERS,
+              T <- [diameter:stop_service(H)],
+              T /= ok].
 
 %% ----------------------------------------
 
@@ -171,7 +181,7 @@ connect(Name, Refs) ->
 
 %% Send an STR and expect success after SERVER3 answers after a couple
 %% of failovers.
-send_ok(_Config) ->
+send_ok() ->
     Req = #diameter_base_STR{'Destination-Realm' = realm(?SERVER1),
                              'Termination-Cause' = ?LOGOUT,
                              'Auth-Application-Id' = ?APP_ID},
@@ -180,19 +190,19 @@ send_ok(_Config) ->
         = call(?CLIENT1, Req).
 
 %% Send an STR and expect failure when both servers fail.
-send_nok(_Config) ->
+send_nok() ->
     Req = #diameter_base_STR{'Destination-Realm' = realm(?SERVER4),
                              'Termination-Cause' = ?LOGOUT,
                              'Auth-Application-Id' = ?APP_ID},
     {failover, ?LOGOUT} = call(?CLIENT1, Req).
 
 %% Send an STR and have prepare_retransmit discard it.
-send_discard_1(_Config) ->
+send_discard_1() ->
     Req = #diameter_base_STR{'Destination-Realm' = realm(?SERVER1),
                              'Termination-Cause' = ?TIMEOUT,
                              'Auth-Application-Id' = ?APP_ID},
     {rejected, ?TIMEOUT} = call(?CLIENT2, Req).
-send_discard_2(_Config) ->
+send_discard_2() ->
     Req = #diameter_base_STR{'Destination-Realm' = realm(?SERVER4),
                              'Termination-Cause' = ?MOVED,
                              'Auth-Application-Id' = ?APP_ID},
diff --git a/lib/diameter/test/diameter_gen_sctp_SUITE.erl b/lib/diameter/test/diameter_gen_sctp_SUITE.erl
index ccee6baec1..7a3dae723d 100644
--- a/lib/diameter/test/diameter_gen_sctp_SUITE.erl
+++ b/lib/diameter/test/diameter_gen_sctp_SUITE.erl
@@ -27,14 +27,19 @@
 
 -module(diameter_gen_sctp_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
          init_per_suite/1,
          end_per_suite/1]).
 
 %% testcases
--export([send_one_from_many/1, send_one_from_many/0,
-         send_many_from_one/1, send_many_from_one/0,
+-export([send_one_from_many/1,
+         send_many_from_one/1,
          receive_what_was_sent/1]).
 
 -include_lib("kernel/include/inet_sctp.hrl").
@@ -67,7 +72,7 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 10}}].
+    [{timetrap, {seconds, 15}}].
 
 all() ->
     [send_one_from_many,
@@ -89,13 +94,20 @@ end_per_suite(_Config) ->
 
 %% ===========================================================================
 
-%% send_one_from_many/0
+%% run/0
+
+run() ->
+    run(all()).
+
+%% run/1
+
+run(List) ->
+    diameter_util:run([{{?MODULE, F, [[]]}, 10000} || F <- List]).
+
+%% send_one_from_many/1
 %%
 %% Demonstrates sluggish delivery of messages.
 
-send_one_from_many() ->
-    [{timetrap, {seconds, 30}}].
-
 send_one_from_many(_) ->
     ?OK = send_multiple(128, 1, 1024).
 
@@ -402,23 +414,20 @@ unmark(Bin) ->
 
 %% ===========================================================================
 
-%% send_many_from_one/0
+%% send_many_from_one/1
 %%
 %% Demonstrates sluggish delivery of messages.
 
-send_many_from_one() ->
-    [{timetrap, {seconds, 30}}].
-
 send_many_from_one(_) ->
     ?OK = send_multiple(1, 128, 1024).
 
 %% ===========================================================================
 
-%% receive_what_was_sent/1
+%% receive_what_was_sent/0
 %%
 %% Demonstrates reception of a message that differs from that sent.
 
-receive_what_was_sent(_Config) ->
+receive_what_was_sent(_) ->
     ?OK = send_multiple(1, 1, 1024*32).
 
 %% ===========================================================================
diff --git a/lib/diameter/test/diameter_gen_tcp_SUITE.erl b/lib/diameter/test/diameter_gen_tcp_SUITE.erl
index db42ea813e..d1e01da27e 100644
--- a/lib/diameter/test/diameter_gen_tcp_SUITE.erl
+++ b/lib/diameter/test/diameter_gen_tcp_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2014-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2014-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -27,11 +27,14 @@
 
 -module(diameter_gen_tcp_SUITE).
 
--export([suite/0,
-         all/0]).
+%% testcases, not common_test dependency
+-export([run/0,
+         run/1]).
 
-%% testcases
--export([send_long/1,
+%% common_test wrapping
+-export([suite/0,
+         all/0,
+         send_long/1,
          connect/1]).
 
 -define(LOOPBACK, {127,0,0,1}).
@@ -46,13 +49,29 @@ all() ->
     [connect,     %% Appears to fail only when run first.
      send_long].
 
+send_long(_) ->
+    send_long().
+
+connect(_) ->
+    connect().
+
 %% ===========================================================================
 
-%% send_long/1
+%% run/0
+
+run() ->
+    run(all()).
+
+%% run/1
+
+run(List) ->
+    diameter_util:run([{{?MODULE, F, [[]]}, 10000} || F <- List]).
+
+%% send_long/0
 %%
 %% Test that a long message is received.
 
-send_long(_) ->
+send_long() ->
     {Sock, SendF} = connection(),
     B = binary:copy(<<$X>>, 1 bsl 20),
     ok = SendF(B),
@@ -101,13 +120,13 @@ send(Sock, Bin) ->
 
 %% ===========================================================================
 
-%% connect/1
+%% connect/0
 %%
 %% Test that simultaneous connections succeed. This fails sporadically
 %% on OS X at the time of writing, when gen_tcp:connect/2 returns
 %% {error, econnreset}.
 
-connect(_) ->
+connect() ->
     {ok, LSock} = gen_tcp:listen(0, ?GEN_OPTS),
     {ok, {_,PortNr}} = inet:sockname(LSock),
     Count = lists:seq(1,8),  %% 8 simultaneous connects
diff --git a/lib/diameter/test/diameter_length_SUITE.erl b/lib/diameter/test/diameter_length_SUITE.erl
index daaaae6e00..66d1be114f 100644
--- a/lib/diameter/test/diameter_length_SUITE.erl
+++ b/lib/diameter/test/diameter_length_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2013-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2013-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,20 +24,14 @@
 
 -module(diameter_length_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1,
-         init_per_group/2,
-         end_per_group/2,
-         init_per_testcase/2,
-         end_per_testcase/2]).
-
-%% testcases
--export([start/1,
-         send/1,
-         stop/1]).
+         parallel/1]).
 
 %% diameter callbacks
 -export([peer_up/3,
@@ -83,39 +77,20 @@
 -define(LOGOUT,
         ?'DIAMETER_BASE_TERMINATION-CAUSE_LOGOUT').
 
--define(GROUPS, [exit, handle, discard]).
-
 -define(L, atom_to_list).
 
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 120}}].
 
 all() ->
-    [{group, G} || G <- ?GROUPS].
-
-groups() ->
-    [{G, [], [start, send, stop]} || G <- ?GROUPS].
-
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
-
-end_per_suite(_Config) ->
-    ok = diameter:stop().
-
-init_per_group(Group, Config) ->
-    [{group, Group} | Config].
-
-end_per_group(_, _) ->
-    ok.
+    [parallel].
 
-init_per_testcase(_Name, Config) ->
-    Config.
+parallel(_Config) ->
+    run().
 
-end_per_testcase(_, _) ->
-    ok.
+%% ===========================================================================
 
 origin(exit)    -> 0;
 origin(handle)  -> 1;
@@ -127,25 +102,39 @@ origin(2) -> discard.
 
 %% ===========================================================================
 
+run() ->
+    run([exit, handle, discard]).
+
+run(List)
+  when is_list(List) ->
+    ok = diameter:start(),
+    try
+        ?util:run([[{[fun run/1, T], 30000} || T <- List]])
+    after
+        ok = diameter:stop()
+    end;
+
+run(Group) ->
+    start(Group),
+    send(Group),
+    stop().
+
 %% start/1
 
-start(Config) ->
-    Group = proplists:get_value(group, Config),
+start(Group) ->
     ok = diameter:start_service(?SERVER, ?SERVICE(?L(Group))),
     ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT)),
-    LRef = ?util:listen(?SERVER,
-                        tcp,
-                        [{length_errors, Group}]),
+    LRef = ?util:listen(?SERVER, tcp, [{length_errors, Group}]),
     ?util:connect(?CLIENT,
                   tcp,
                   LRef,
                   [{capabilities, [{'Origin-State-Id', origin(Group)}]}]).
 
-%% stop/1
+%% stop/0
 
-stop(_Config) ->
-    ok = diameter:remove_transport(?CLIENT, true),
+stop() ->
     ok = diameter:remove_transport(?SERVER, true),
+    ok = diameter:remove_transport(?CLIENT, true),
     ok = diameter:stop_service(?SERVER),
     ok = diameter:stop_service(?CLIENT).
 
@@ -194,10 +183,7 @@ send(discard) ->
     {error, timeout}
         = call(4),
     #diameter_base_STA{'Result-Code' = ?SUCCESS}
-        = call(0);
-
-send(Config) ->
-    send(proplists:get_value(group, Config)).
+        = call(0).
 
 %% ===========================================================================
 
diff --git a/lib/diameter/test/diameter_pool_SUITE.erl b/lib/diameter/test/diameter_pool_SUITE.erl
index a36a4fa17a..40d34c6237 100644
--- a/lib/diameter/test/diameter_pool_SUITE.erl
+++ b/lib/diameter/test/diameter_pool_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2015-2019. All Rights Reserved.
+%% Copyright Ericsson AB 2015-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -25,17 +25,16 @@
 
 -module(diameter_pool_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         init_per_testcase/2,
-         end_per_testcase/2,
-         init_per_suite/1,
-         end_per_suite/1]).
-
-%% testcases
--export([tcp_connect/1,
-         sctp_connect/1,
-         any_connect/1]).
+         tcp/1,
+         sctp/1,
+         any/1]).
 
 %% ===========================================================================
 
@@ -62,44 +61,53 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 30}}].
+    [{timetrap, {seconds, 45}}].
 
 all() ->
-    [tcp_connect,
-     sctp_connect,
-     any_connect].
+    [tcp, sctp, any].
 
-init_per_testcase(_Name, Config) ->
-    Config.
+tcp(_Config) ->
+    run([tcp]).
 
-end_per_testcase(_Name, _Config) ->
-    diameter:stop().
-
-init_per_suite(Config) ->
-    [{sctp, ?util:have_sctp()} | Config].
+sctp(_Config) ->
+    case ?util:have_sctp() of
+        true  -> run([sctp]);
+        false -> {skip, no_sctp}
+    end.
 
-end_per_suite(_Config) ->
-    ok.
+any(_Config) ->
+    run([any]).
 
 %% ===========================================================================
 
-tcp_connect(_Config) ->
-    connect(tcp, tcp).
+%% run/0
 
-sctp_connect(Config) ->
-    case lists:member({sctp, true}, Config) of
-       true  -> connect(sctp, sctp);
-       false -> {skip, no_sctp}
-    end.
+run() ->
+    run(all()).
+
+%% run/1
+
+run(tcp = T) ->
+    connect(T, T);
 
-any_connect(_Config) ->
-    connect(any, tcp).
+run(sctp = T) ->
+    connect(T, T);
+
+run(any = T) ->
+    connect(T, tcp);
+
+run(List) ->
+    ok = diameter:start(),
+    try
+        ?util:run([[{[fun run/1, T], 30000}  || T <- List]])
+    after
+        ok = diameter:stop()
+    end.
 
 %% connect/2
 
 %% Establish multiple connections between a client and server.
 connect(ClientProt, ServerProt) ->
-    ok = diameter:start(),
     [] = [{S,T} || S <- ["server", "client"],
                    T <- [diameter:start_service(S, ?SERVICE(S))],
                    T /= ok],
@@ -108,20 +116,24 @@ connect(ClientProt, ServerProt) ->
     LRef = ?util:listen("server", ServerProt, [{pool_size, 4}]),
     {4,0} = count("server", LRef, accept), %% 4 transports, no connections
     %% Establish 5 connections.
-    Ref = ?util:connect("client", ClientProt, LRef, [{pool_size, 5}]),
-    {5,5} = count("client", Ref, pool),    %% 5 connections
+    N = pool_size(5),  %% connections to establish
+    Ref = ?util:connect("client", ClientProt, LRef, [{pool_size, N}]),
+    {N,N} = count("client", Ref, pool),    %% N connections
     %% Ensure the server has started replacement transports within a
     %% reasonable time. Sleepsince there's no guarantee the
     %% replacements have been started before the client has received
     %% 'up' events. (Although it's likely.)
-    sleep(),
-    {9,5} = count("server", LRef, accept), %% 5 connections + 4 accepting
+    timer:sleep(1000),
+    N4 = N + 4,
+    {N4,N} = count("server", LRef, accept), %% N connections + 4 accepting
     %% Ensure there are still the expected number of accepting transports
     %% after stopping the client service.
     ok = diameter:stop_service("client"),
-    sleep(),
+    timer:sleep(1000),
     {4,0} = count("server", LRef, accept), %% 4 transports, no connections
     %% Done.
+    ok = diameter:remove_transport("client", true),
+    ok = diameter:remove_transport("server", true),
     ok = diameter:stop_service("server").
 
 count(Name, Ref, Key) ->
@@ -131,5 +143,10 @@ count(Name, Ref, Key) ->
     {Key, Ps} = lists:keyfind(Key, 1, T),
     {length(Ps), length(Cs)}.  %% number of processes, connections
 
-sleep() ->
-    receive after 1000 -> ok end.
+%% Simultaneous connections are often refused on Darwin: don't try to
+%% establish more than one.
+pool_size(N) ->
+    case os:type() of
+        {_, 'darwin'} -> 1;
+        _             -> rand:uniform(N)
+    end.
diff --git a/lib/diameter/test/diameter_reg_SUITE.erl b/lib/diameter/test/diameter_reg_SUITE.erl
index cd9242faa8..02e10ffb74 100644
--- a/lib/diameter/test/diameter_reg_SUITE.erl
+++ b/lib/diameter/test/diameter_reg_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,86 +24,76 @@
 
 -module(diameter_reg_SUITE).
 
--export([suite/0,
-         all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1]).
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
 
-%% testcases
--export([add/1,
-         add_new/1,
-         remove/1,
-         down/1,
-         terms/1,
-         pids/1]).
+%% common_test wrapping
+-export([all/0,
+         parallel/1]).
 
--define(reg,  diameter_reg).
--define(util, diameter_util).
+-define(reg, diameter_reg).
 
 %% ===========================================================================
 
-suite() ->
-    [{timetrap, {seconds, 60}}].
-
 all() ->
-    [{group, all},
-     {group, all, [parallel]}].
+    [parallel].
 
-groups() ->
-    [{all, [], tc()}].
+parallel(_Config) ->
+    run().
 
-tc() ->
-    [add,
-     add_new,
-     remove,
-     down,
-     terms,
-     pids].
+%% ===========================================================================
 
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
+%% run/0
 
-end_per_suite(_Config) ->
-    ok = diameter:stop().
+run() ->
+    run([add, add_new, remove, down, terms, pids]).
 
-%% ===========================================================================
+%% run/1
+
+run(List)
+  when is_list(List) ->
+    ok = diameter:start(),
+    try
+        diameter_util:run([{[fun run/1, T], 10000} || T <- List])
+    after
+        ok = diameter:stop()
+    end;
 
-add(_) ->
+run(add) ->
     Ref = make_ref(),
     true = ?reg:add(Ref),
     true = ?reg:add(Ref),
     [{Ref, Pid}] = ?reg:match(Ref),
-    Pid = self().
+    Pid = self();
 
-add_new(_) ->
+run(add_new) ->
     Ref = make_ref(),
     true = ?reg:add_new(Ref),
-    false = ?reg:add_new(Ref).
+    false = ?reg:add_new(Ref);
 
-remove(_) ->
+run(remove) ->
     Ref = make_ref(),
     true = ?reg:add_new(Ref),
     true = ?reg:add_new({Ref}),
     true = ?reg:remove({Ref}),
     [{Ref, Pid}] = ?reg:match(Ref),
-    Pid = self().
+    Pid = self();
 
-down(_) ->
+run(down) ->
     Ref = make_ref(),
     {_, MRef} = spawn_monitor(fun() -> ?reg:add_new(Ref), timer:sleep(1000) end),
     receive {'DOWN', MRef, process, _, _} -> ok end,
     timer:sleep(1000),
-    [] = ?reg:match(Ref).
+    [] = ?reg:match(Ref);
 
-terms(_) ->
+run(terms) ->
     Ref = make_ref(),
     true = ?reg:add_new(Ref),
     [[Pid]] = [L || {T,L} <- ?reg:terms(), T == Ref],
-    Pid = self().
+    Pid = self();
 
-pids(_) ->
+run(pids) ->
     Ref = make_ref(),
     true = ?reg:add_new(Ref),
     %% Don't match [[Ref]] since this will only necessarily be the
diff --git a/lib/diameter/test/diameter_relay_SUITE.erl b/lib/diameter/test/diameter_relay_SUITE.erl
index 9de5cbe685..2502820e0f 100644
--- a/lib/diameter/test/diameter_relay_SUITE.erl
+++ b/lib/diameter/test/diameter_relay_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2017. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -34,26 +34,13 @@
 
 -module(diameter_relay_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0]).
-
-%% testcases
--export([start/1,
-         start_services/1,
-         connect/1,
-         send1/1,
-         send2/1,
-         send3/1,
-         send4/1,
-         send_loop/1,
-         send_timeout_1/1,
-         send_timeout_2/1,
-         info/1,
-         counters/1,
-         disconnect/1,
-         stop_services/1,
-         stop/1]).
+         parallel/1]).
 
 %% diameter callbacks
 -export([pick_peer/4,
@@ -115,41 +102,37 @@
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 30}}].
 
 all() ->
-    [start,
-     start_services,
-     connect,
-     {group, all},
-     counters,
-     {group, all, [parallel]},
-     disconnect,
-     stop_services,
-     stop].
-
-groups() ->
-    [{all, [], tc()}].
+    [parallel].
 
-%% Traffic cases run when services are started and connections
-%% established.
-tc() ->
-    [send1,
-     send2,
-     send3,
-     send4,
-     send_loop,
-     send_timeout_1,
-     send_timeout_2,
-     info].
+parallel(_Config) ->
+    run().
 
 %% ===========================================================================
-%% start/stop testcases
 
-start(_Config) ->
-    ok = diameter:start().
+%% run/0
+
+run() ->
+    ok = diameter:start(),
+    try
+        ?util:run([{fun traffic/0, 20000}])
+    after
+        ok = diameter:stop()
+    end.
 
-start_services(_Config) ->
+%% traffic/0
+
+traffic() ->
+    Servers = start_services(),
+    Conns = connect(Servers),
+    [] = send(),
+    [] = counters(),
+    [] = disconnect(Conns),
+    [] = stop_services().
+
+start_services() ->
     [S1,S2,S3,S4] = [server(N, ?DICT_COMMON) || N <- [?SERVER1,
                                                       ?SERVER2,
                                                       ?SERVER3,
@@ -158,30 +141,32 @@ start_services(_Config) ->
 
     ok = diameter:start_service(?CLIENT, ?SERVICE(?CLIENT, ?DICT_COMMON)),
 
-    {save_config, [{?RELAY1, [S1,S2,R2]},
-                   {?RELAY2, [S3,S4]},
-                   {?CLIENT, [R1,R2]}]}.
-
-connect(Config) ->
-    {_, Conns} = proplists:get_value(saved_config, Config),
+    [{?RELAY1, [S1,S2,R2]}, {?RELAY2, [S3,S4]}, {?CLIENT, [R1,R2]}].
 
-    ?util:write_priv(Config,
-                     "cfg",
-                     lists:flatmap(fun({CN,Ss}) -> connect(CN, Ss) end,
-                                   Conns)).
+connect(Servers) ->
+    lists:flatmap(fun({CN,Ss}) -> connect(CN, Ss) end, Servers).
 
-disconnect(Config) ->
-    [] = [{T,C} || C <- ?util:read_priv(Config, "cfg"),
-                   T <- [break(C)],
-                   T /= ok].
+disconnect(Conns) ->
+    [{T,C} || C <- Conns,
+              T <- [break(C)],
+              T /= ok].
 
-stop_services(_Config) ->
-    [] = [{H,T} || H <- ?SERVICES,
-                   T <- [diameter:stop_service(H)],
-                   T /= ok].
+stop_services() ->
+    [{H,T} || H <- ?SERVICES,
+              T <- [diameter:stop_service(H)],
+              T /= ok].
 
-stop(_Config) ->
-    ok = diameter:stop().
+%% Traffic cases run when services are started and connections
+%% established.
+send() ->
+    ?util:run([[fun traffic/1, T] || T <- [send1,
+                                           send2,
+                                           send3,
+                                           send4,
+                                           send_loop,
+                                           send_timeout_1,
+                                           send_timeout_2,
+                                           info]]).
 
 %% ----------------------------------------
 
@@ -203,50 +188,50 @@ connect(Name, Refs) ->
 %% traffic testcases
 
 %% Send an STR intended for a specific server and expect success.
-send1(_Config) ->
-    call(?SERVER1).
-send2(_Config) ->
-    call(?SERVER2).
-send3(_Config) ->
-    call(?SERVER3).
-send4(_Config) ->
-    call(?SERVER4).
+traffic(send1) ->
+    call(?SERVER1);
+traffic(send2) ->
+    call(?SERVER2);
+traffic(send3) ->
+    call(?SERVER3);
+traffic(send4) ->
+    call(?SERVER4);
 
 %% Send an ASR that loops between the relays (RELAY1 -> RELAY2 ->
 %% RELAY1) and expect the loop to be detected.
-send_loop(_Config) ->
+traffic(send_loop) ->
     Req = ['ASR', {'Destination-Realm', realm(?SERVER1)},
                   {'Destination-Host', ?SERVER1},
                   {'Auth-Application-Id', ?APP_ID}],
     #'diameter_base_answer-message'{'Result-Code' = ?LOOP_DETECTED}
-        = call(Req, [{filter, realm}]).
+        = call(Req, [{filter, realm}]);
 
 %% Send a RAR that is incorrectly routed and then discarded and expect
 %% different results depending on whether or not we or the relay
 %% timeout first.
-send_timeout_1(_Config) ->
+traffic(send_timeout_1) ->
     #'diameter_base_answer-message'{'Result-Code' = ?UNABLE_TO_DELIVER}
-        = send_timeout(7000).
-send_timeout_2(_Config) ->
-    {error, timeout} = send_timeout(3000).
+        = traffic({timeout, 7000});
+traffic(send_timeout_2) ->
+    {error, timeout} = traffic({timeout, 3000});
 
-send_timeout(Tmo) ->
+traffic({timeout, Tmo}) ->
     Req = ['RAR', {'Destination-Realm', realm(?SERVER1)},
                   {'Destination-Host', ?SERVER1},
                   {'Auth-Application-Id', ?APP_ID},
                   {'Re-Auth-Request-Type', ?AUTHORIZE_ONLY}],
-    call(Req, [{filter, realm}, {timeout, Tmo}]).
+    call(Req, [{filter, realm}, {timeout, Tmo}]);
 
-info(_Config) ->
+traffic(info) ->
     %% Wait for RELAY1 to have answered all requests, so that the
     %% suite doesn't end before all answers are sent and counted.
     receive after 6000 -> ok end,
     [] = ?util:info().
 
-counters(_Config) ->
-    [] = ?util:run([[fun counters/2, K, S]
-                    || K <- [statistics, transport, connections],
-                       S <- ?SERVICES]).
+counters() ->
+    ?util:run([[fun counters/2, K, S]
+               || K <- [statistics, transport, connections],
+                  S <- ?SERVICES]).
 
 counters(Key, Svc) ->
     counters(Key, Svc, [_|_] = diameter:service_info(Svc, Key)).
diff --git a/lib/diameter/test/diameter_stats_SUITE.erl b/lib/diameter/test/diameter_stats_SUITE.erl
index 4716082394..b48e7a84bf 100644
--- a/lib/diameter/test/diameter_stats_SUITE.erl
+++ b/lib/diameter/test/diameter_stats_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2015. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,55 +24,52 @@
 
 -module(diameter_stats_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1]).
-
-%% testcases
--export([reg/1,
-         incr/1,
-         read/1,
-         sum/1,
-         flush/1]).
+         parallel/1]).
 
 -define(stat, diameter_stats).
 
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 30}}].
 
 all() ->
-    [{group, all},
-     {group, all, [parallel]}].
+    [parallel].
 
-groups() ->
-    [{all, [], tc()}].
+parallel(_Config) ->
+    run().
 
-tc() ->
-    [reg,
-     incr,
-     read,
-     sum,
-     flush].
+%% ===========================================================================
 
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
+%% run/0
 
-end_per_suite(_Config) ->
-    ok = diameter:stop().
+run() ->
+    run([reg, incr, read, sum, flush]).
 
-%% ===========================================================================
+%% run/1
+
+run(List)
+  when is_list(List) ->
+    ok = diameter:start(),
+    try
+        diameter_util:run([{[fun run/1, T], 15000} || T <- List])
+    after
+        ok = diameter:stop()
+    end;
 
-reg(_) ->
+run(reg) ->
     Ref = '$1',
     true = ?stat:reg(Ref),
-    false = ?stat:reg(Ref).  %% duplicate
+    false = ?stat:reg(Ref);  %% duplicate
 
-incr(_) ->
+run(incr) ->
     Ref = '_',
     Ctr = x,
     false = ?stat:incr(Ctr),      %% not registered,
@@ -83,9 +80,9 @@ incr(_) ->
                   2 = ?stat:incr(Ctr, self(), 2)
           end),
     ok = fold(Ctr, Ref, 3),  %% folded
-    ?stat:flush([self(), Ref]).
+    ?stat:flush([self(), Ref]);
 
-read(_) ->
+run(read) ->
     Ref = make_ref(),
     C1 = {a,b},
     C2 = {b,a},
@@ -99,9 +96,9 @@ read(_) ->
         = ?stat:read([self(), Ref, make_ref()]),
     [] = ?stat:read([]),
     [] = ?stat:read([make_ref()]),
-    ?stat:flush([self(), Ref, make_ref()]).
+    ?stat:flush([self(), Ref, make_ref()]);
 
-sum(_) ->
+run(sum) ->
     Ref = make_ref(),
     C1 = {a,b},
     C2 = {b,a},
@@ -116,9 +113,9 @@ sum(_) ->
     [{Self,  [{C1,1}, {C2,2}]}]
         = ?stat:sum([self()]),
     [{Ref, [{C1,7}]}, {Self, [{C1,1}, {C2,2}]}]
-        = ?stat:flush([self(), Ref]).
+        = ?stat:flush([self(), Ref]);
 
-flush(_) ->
+run(flush) ->
     Ref = make_ref(),
     Ctr = '_',
     true = ?stat:reg(Ref),
diff --git a/lib/diameter/test/diameter_sync_SUITE.erl b/lib/diameter/test/diameter_sync_SUITE.erl
index 2785bd92d6..395c99bd0b 100644
--- a/lib/diameter/test/diameter_sync_SUITE.erl
+++ b/lib/diameter/test/diameter_sync_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2016. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -24,63 +24,59 @@
 
 -module(diameter_sync_SUITE).
 
+%% testcases, no common_test depedency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         groups/0,
-         init_per_suite/1,
-         end_per_suite/1]).
-
-%% testcases
--export([call/1,
-         cast/1,
-         timeout/1,
-         flush/1]).
+         parallel/1]).
 
 -define(sync, diameter_sync).
--define(util, diameter_util).
-
--define(TIMEOUT, infinity).
 
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 60}}].
+    [{timetrap, {seconds, 15}}].
 
 all() ->
-    [{group, all},
-     {group, all, [parallel]}].
+    [parallel].
 
-groups() ->
-    [{all, [], tc()}].
+parallel(_Config) ->
+    run().
 
-tc() ->
-    [call,
-     cast,
-     timeout,
-     flush].
+%% ===========================================================================
 
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
+%% run/0
 
-end_per_suite(_Config) ->
-    ok = diameter:stop().
+run() ->
+    run([call, cast, timeout, flush]).
 
-%% ===========================================================================
+%% run/1
+
+run(List)
+  when is_list(List) ->
+    ok = diameter:start(),
+    try
+        diameter_util:run([{[fun run/1, T], 10000} || T <- List])
+    after
+        ok = diameter:stop()
+    end;
 
-call(_) ->
+run(call) ->
     Ref = make_ref(),
     Q = {q, Ref},
     F = fun() -> Ref end,
-    Ref = ?sync:call(Q, F, infinity, ?TIMEOUT),
+    Ref = ?sync:call(Q, F, infinity, infinity),
     Ref = ?sync:call(Q, F, 0, infinity),
     Ref = call(Q, F),
     Ref = call(Q, {fun(_) -> Ref end, x}),
     timeout = call(Q, fun() -> exit(unexpected) end),
     {_,_,_} = call(Q, {erlang, now, []}),
-    {_,_,_} = call(Q, [fun erlang:now/0]).
+    {_,_,_} = call(Q, [fun erlang:now/0]);
 
-cast(_) ->
+run(cast) ->
     Ref = make_ref(),
     Q = {q, Ref},
     false = ?sync:carp(Q),
@@ -95,26 +91,21 @@ cast(_) ->
     true = 2 =< ?sync:pending(),
     true = lists:member(Q, ?sync:queues()),
     %% ... and that the max number of requests is respected.
-    rejected = ?sync:call(Q, {erlang, now, []}, 1, ?TIMEOUT),
-    rejected = ?sync:cast(Q, {erlang, now, []}, 1, ?TIMEOUT),
+    rejected = ?sync:call(Q, {erlang, now, []}, 1, infinity),
+    rejected = ?sync:cast(Q, {erlang, now, []}, 1, infinity),
     %% Monitor on the identifiable request and see that exits when we
     %% let the blocking request finish.
     MRef = erlang:monitor(process, Pid),
     {value, P} = ?sync:carp(Q),
     P ! Ref,
-    Ref = receive
-              {'DOWN', MRef, process, _, Reason} ->
-                  Reason
-          after ?TIMEOUT ->
-                  false
-          end.
-
-timeout(_) ->
+    Ref = receive {'DOWN', MRef, process, _, Reason} -> Reason end;
+
+run(timeout) ->
     Q = make_ref(),
     ok = ?sync:cast(Q, {timer, sleep, [2000]}, infinity, 2000),
-    timeout = ?sync:call(Q, fun() -> ok end, infinity, 1000).
+    timeout = ?sync:call(Q, fun() -> ok end, infinity, 1000);
 
-flush(_) ->
+run(flush) ->
     Q = make_ref(),
     F = {timer, sleep, [2000]},
     ok = cast(Q, F),
diff --git a/lib/diameter/test/diameter_util.erl b/lib/diameter/test/diameter_util.erl
index 5ccfeb7a7e..f6c101b7f5 100644
--- a/lib/diameter/test/diameter_util.erl
+++ b/lib/diameter/test/diameter_util.erl
@@ -45,11 +45,6 @@
          disconnect/4,
          info/0]).
 
-%% common_test-specific
--export([write_priv/3,
-         read_priv/2,
-         map_priv/3]).
-
 -define(L, atom_to_list).
 
 %% ---------------------------------------------------------------------------
@@ -274,48 +269,6 @@ eval(F)
   when is_function(F,0) ->
     F().
 
-%% ---------------------------------------------------------------------------
-%% write_priv/3
-%%
-%% Write an arbitrary term to a named file.
-
-write_priv(Config, Name, Term) ->
-    write(path(Config, Name), Term).
-
-write(Path, Term) ->
-    ok = file:write_file(Path, term_to_binary(Term)).
-
-%% read_priv/2
-%%
-%% Read a term from a file.
-
-read_priv(Config, Name) ->
-    read(path(Config, Name)).
-
-read(Path) ->
-    {ok, Bin} = file:read_file(Path),
-    binary_to_term(Bin).
-
-%% map_priv/3
-%%
-%% Modify a term in a file and return both old and new values.
-
-map_priv(Config, Name, Fun1) ->
-    map(path(Config, Name), Fun1).
-
-map(Path, Fun1) ->
-    T0 = read(Path),
-    T1 = Fun1(T0),
-    write(Path, T1),
-    {T0, T1}.
-
-path(Config, Name)
-  when is_atom(Name) ->
-    path(Config, ?L(Name));
-path(Config, Name) ->
-    Dir = proplists:get_value(priv_dir, Config),
-    filename:join([Dir, Name]).
-
 %% ---------------------------------------------------------------------------
 %% lport/2
 %%
diff --git a/lib/diameter/test/diameter_watchdog_SUITE.erl b/lib/diameter/test/diameter_watchdog_SUITE.erl
index f3f168e671..02f15ff21b 100644
--- a/lib/diameter/test/diameter_watchdog_SUITE.erl
+++ b/lib/diameter/test/diameter_watchdog_SUITE.erl
@@ -1,7 +1,7 @@
 %%
 %% %CopyrightBegin%
 %%
-%% Copyright Ericsson AB 2010-2018. All Rights Reserved.
+%% Copyright Ericsson AB 2010-2022. All Rights Reserved.
 %%
 %% Licensed under the Apache License, Version 2.0 (the "License");
 %% you may not use this file except in compliance with the License.
@@ -25,18 +25,22 @@
 
 -module(diameter_watchdog_SUITE).
 
+%% testcases, no common_test dependency
+-export([run/0,
+         run/1]).
+
+%% common_test wrapping
 -export([suite/0,
          all/0,
-         init_per_suite/1,
-         end_per_suite/1]).
-
-%% testcases
--export([reopen/0, reopen/1, reopen/4, reopen/6,
-         suspect/1, suspect/4,
-         okay/1, okay/4]).
-
--export([id/1,    %% jitter callback
-         run1/1,
+         reopen/1,
+         suspect/1,
+         okay/1]).
+
+%% internal callbacks
+-export([reopen/4, reopen/6,
+         suspect/4,
+         okay/4,
+         id/1,    %% jitter callback
          abuse/1,
          abuse/2]).
 
@@ -48,7 +52,6 @@
 -export([message/3]).
 
 -include("diameter.hrl").
--include("diameter_ct.hrl").
 
 %% ===========================================================================
 
@@ -105,49 +108,72 @@
               [])).
 
 %% Log to make failures identifiable.
--define(LOG(T),     ?LOG("~p", [T])).
--define(LOG(F,A),   ct:pal("~p: " ++ F, [self() | A])).
--define(WARN(F,A),  ct:pal(error, "~p: " ++ F, [self() | A])).
+-define(LOG(F,A),   io:format("~p: " ++ F ++ "~n", [self() | A])).
 
 %% ===========================================================================
 
 suite() ->
-    [{timetrap, {seconds, 90}}].
+    [{timetrap, {seconds, 315}}].
 
 all() ->
-    [reopen,
-     suspect,
-     okay].
+    [reopen, suspect, okay].
 
-init_per_suite(Config) ->
-    ok = diameter:start(),
-    Config.
+reopen(_Config) ->
+    run([reopen]).
+
+suspect(_Config) ->
+    run([suspect]).
+
+okay(_Config) ->
+    run([okay]).
+
+%% ===========================================================================
+
+%% run/0
 
-end_per_suite(_Config) ->
-    ok = diameter:stop().
+run() ->
+    run(all()).
+
+%% run/1.
+
+run(reopen) ->
+    reopen();   %% 20 watchdogs @ 15 sec
+
+run(suspect) ->
+    suspect();
+
+run(okay) ->
+    okay();
+
+run(List) ->
+    ok = diameter:start(),
+    try
+        ?util:run([{[fun run/1, T], maps:get(T, #{reopen => 300000}, 90000)}
+                   || T <- List])
+    after
+        ok = diameter:stop()
+    end.
 
 %% ===========================================================================
-%% # reopen/1
+%% # reopen/0
 %% ===========================================================================
 
 %% Test the watchdog state machine for the required failover, failback
 %% and reopen behaviour by examining watchdog events.
 
 reopen() ->
-    [{timetrap, {minutes, 5}}]. %% 20 watchdogs @ 15 sec
-
-reopen(_) ->
-    [] = run([[reopen, T, W, N, M]
-              || T <- [listen, connect], %% watchdog to test
-                 W <- ?WD_TIMERS,        %% watchdog_timer value
-                 N <- [0,1,2],           %% DWR's to answer before ignoring
-                 M <- ['DWR', 'DWA', 'RAA']]). %% how to induce failback
+    ?util:run([{?MODULE, reopen, [T, W, N, M]}
+               || T <- [listen, connect], %% watchdog to test
+                  W <- ?WD_TIMERS,        %% watchdog_timer value
+                  N <- [0,1,2],           %% DWR's to answer before ignoring
+                  M <- ['DWR', 'DWA', 'RAA']]). %% how to induce failback
 
 reopen(Test, Wd, N, M) ->
     %% Publish a ref ensure the connecting transport is added only
     %% once events from the listening transport are subscribed to.
     Ref = make_ref(),
-    [] = run([[reopen, T, Test, Ref, Wd, N, M] || T <- [listen, connect]]).
+    ?util:run([{?MODULE, reopen, [T, Test, Ref, Wd, N, M]}
+               || T <- [listen, connect]]).
 
 %% reopen/6
 
@@ -377,14 +403,14 @@ tpid(Ref, [[{ref, Ref},
     TPid.
 
 %% ===========================================================================
-%% # suspect/1
+%% # suspect/0
 %% ===========================================================================
 
 %% Configure transports to require a set number of watchdog timeouts
 %% before moving from OKAY to SUSPECT.
 
-suspect(_) ->
-    [] = run([[abuse, [suspect, N]] || N <- [0,1,3]]).
+suspect() ->
+    ?util:run([{?MODULE, abuse, [[suspect, N]]} || N <- [0,1,3]]).
 
 suspect(Type, Fake, Ref, N)
   when is_reference(Ref) ->
@@ -417,7 +443,7 @@ suspect(TRef, false, SvcName, N) ->
 %% abuse/1
 
 abuse(F) ->
-    [] = run([[abuse, F, T] || T <- [listen, connect]]).
+    ?util:run([{?MODULE, abuse, [F, T]} || T <- [listen, connect]]).
 
 abuse(F, [_,_,_|_] = Args) ->
     ?LOG("~p", [Args]),
@@ -425,21 +451,21 @@ abuse(F, [_,_,_|_] = Args) ->
 
 abuse([F|A], Test) ->
     Ref = make_ref(),
-    [] = run([[abuse, F, [T, T == Test, Ref] ++ A]
-              || T <- [listen, connect]]);
+    ?util:run([{?MODULE, abuse, [F, [T, T == Test, Ref] ++ A]}
+               || T <- [listen, connect]]);
 
 abuse(F, Test) ->
     abuse([F], Test).
 
 %% ===========================================================================
-%% # okay/1
+%% # okay/0
 %% ===========================================================================
 
 %% Configure the number of watchdog exchanges before moving from
 %% REOPEN to OKAY.
 
-okay(_) ->
-    [] = run([[abuse, [okay, N]] || N <- [0,2,3]]).
+okay() ->
+    ?util:run([{?MODULE, abuse, [[okay, N]]} || N <- [0,2,3]]).
 
 okay(Type, Fake, Ref, N)
   when is_reference(Ref) ->
@@ -626,23 +652,6 @@ choose(false, _, X) -> X.
 id(T) ->
     T.
 
-%% run/1
-%%
-%% A more useful badmatch in case of failure.
-
-run(Fs) ->
-    ?util:run([{?MODULE, [run1, F]} || F <- Fs]).
-
-run1([F|A]) ->
-    ok = try
-             apply(?MODULE, F, A),
-             ok
-         catch
-             E:R:Stack ->
-                 ?WARN("~p", [{A, E, R, Stack}]),
-                 Stack
-         end.
-
 %% jitter/2
 
 jitter(?WD(T), _) ->
diff --git a/lib/diameter/test/modules.mk b/lib/diameter/test/modules.mk
index b1717aff00..fb8cfc445c 100644
--- a/lib/diameter/test/modules.mk
+++ b/lib/diameter/test/modules.mk
@@ -50,9 +50,6 @@ MODULES = \
 	diameter_transport_SUITE \
 	diameter_watchdog_SUITE
 
-HRL_FILES = \
-	diameter_ct.hrl
-
 DATA = \
 	diameter_codec_SUITE_data/avps.dia \
 	diameter_codec_SUITE_data/send.dia \
-- 
2.34.1

Places

File 3257-Rework-remaining-diameter-testsuites.patch of Package erlang (Revision 07e058f5d363f224f73743c399e7ed95)

Places