Add ts_install_scb to suite/0

14 files changed, 42 insertions, 14 deletions

diff --git a/lib/erl_interface/test/ei_accept_SUITE.erl b/lib/erl_interface/test/ei_accept_SUITE.erl
index d1309734f6..c6f8193ab7 100644
--- a/lib/erl_interface/test/ei_accept_SUITE.erl
+++ b/lib/erl_interface/test/ei_accept_SUITE.erl
@@ -23,11 +23,13 @@
 -include_lib("test_server/include/test_server.hrl").
 -include("ei_accept_SUITE_data/ei_accept_test_cases.hrl").
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2,
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2,
 	 ei_accept/1, ei_threaded_accept/1]).
 
 -import(runner, [get_term/1,send_term/2]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [ei_accept, ei_threaded_accept].
 
diff --git a/lib/erl_interface/test/ei_connect_SUITE.erl b/lib/erl_interface/test/ei_connect_SUITE.erl
index 603a300a26..5ea420cdf2 100644
--- a/lib/erl_interface/test/ei_connect_SUITE.erl
+++ b/lib/erl_interface/test/ei_connect_SUITE.erl
@@ -24,7 +24,7 @@
 -include("ei_connect_SUITE_data/ei_connect_test_cases.hrl").
 
 -export([
-	all/0,groups/0,init_per_group/2,end_per_group/2, 
+	all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, 
 	init_per_testcase/2, 
 	end_per_testcase/2,
 
@@ -40,6 +40,8 @@
 
 -import(runner, [get_term/1,send_term/2]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [ei_send, ei_reg_send, ei_rpc, ei_format_pid, ei_send_funs,
  ei_threaded_send, ei_set_get_tracelevel].
diff --git a/lib/erl_interface/test/ei_decode_SUITE.erl b/lib/erl_interface/test/ei_decode_SUITE.erl
index cf30ef96d1..e6a1948d4d 100644
--- a/lib/erl_interface/test/ei_decode_SUITE.erl
+++ b/lib/erl_interface/test/ei_decode_SUITE.erl
@@ -25,7 +25,7 @@
 
 -export(
    [
-all/0,groups/0,init_per_group/2,end_per_group/2,
+all/0, suite/0,groups/0,init_per_group/2,end_per_group/2,
     test_ei_decode_long/1,
     test_ei_decode_ulong/1,
     test_ei_decode_longlong/1,
@@ -35,6 +35,8 @@ all/0,groups/0,init_per_group/2,end_per_group/2,
     test_ei_decode_misc/1
    ]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [test_ei_decode_long, test_ei_decode_ulong,
  test_ei_decode_longlong, test_ei_decode_ulonglong,
diff --git a/lib/erl_interface/test/ei_decode_encode_SUITE.erl b/lib/erl_interface/test/ei_decode_encode_SUITE.erl
index b4bb6e187c..2366f0f11d 100644
--- a/lib/erl_interface/test/ei_decode_encode_SUITE.erl
+++ b/lib/erl_interface/test/ei_decode_encode_SUITE.erl
@@ -25,10 +25,12 @@
 
 -export(
    [
-all/0,groups/0,init_per_group/2,end_per_group/2,
+all/0, suite/0,groups/0,init_per_group/2,end_per_group/2,
     test_ei_decode_encode/1
    ]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [test_ei_decode_encode].
 
diff --git a/lib/erl_interface/test/ei_encode_SUITE.erl b/lib/erl_interface/test/ei_encode_SUITE.erl
index bc8bcc07a3..34d4d0fec4 100644
--- a/lib/erl_interface/test/ei_encode_SUITE.erl
+++ b/lib/erl_interface/test/ei_encode_SUITE.erl
@@ -25,7 +25,7 @@
 
 -export(
    [
-all/0,groups/0,init_per_group/2,end_per_group/2,
+all/0, suite/0,groups/0,init_per_group/2,end_per_group/2,
     test_ei_encode_long/1,
     test_ei_encode_ulong/1,
     test_ei_encode_longlong/1,
@@ -35,6 +35,8 @@ all/0,groups/0,init_per_group/2,end_per_group/2,
     test_ei_encode_fails/1
    ]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [test_ei_encode_long, test_ei_encode_ulong,
  test_ei_encode_longlong, test_ei_encode_ulonglong,
diff --git a/lib/erl_interface/test/ei_format_SUITE.erl b/lib/erl_interface/test/ei_format_SUITE.erl
index 29209d50b9..25458aaa13 100644
--- a/lib/erl_interface/test/ei_format_SUITE.erl
+++ b/lib/erl_interface/test/ei_format_SUITE.erl
@@ -25,7 +25,7 @@
 
 -export([
 	format_wo_ver/1,
-	all/0,groups/0,init_per_group/2,end_per_group/2, 
+	all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, 
 	atoms/1, 
 	tuples/1, 
 	lists/1
@@ -36,6 +36,8 @@
 %% This test suite test the erl_format() function.
 %% It uses the port program "ei_format_test".
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [format_wo_ver, atoms, tuples, lists].
 
diff --git a/lib/erl_interface/test/ei_print_SUITE.erl b/lib/erl_interface/test/ei_print_SUITE.erl
index c5c0e84358..fc6b1ddde5 100644
--- a/lib/erl_interface/test/ei_print_SUITE.erl
+++ b/lib/erl_interface/test/ei_print_SUITE.erl
@@ -23,13 +23,15 @@
 -include_lib("test_server/include/test_server.hrl").
 -include("ei_print_SUITE_data/ei_print_test_cases.hrl").
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, tuples/1, lists/1, strings/1]).
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, tuples/1, lists/1, strings/1]).
 
 -import(runner, [get_term/1]).
 
 %% This test suite test the ei_print() function.
 %% It uses the port program "ei_format_test".
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [atoms, tuples, lists, strings].
 
diff --git a/lib/erl_interface/test/ei_tmo_SUITE.erl b/lib/erl_interface/test/ei_tmo_SUITE.erl
index c1bf5e35f6..2b94e28ce0 100644
--- a/lib/erl_interface/test/ei_tmo_SUITE.erl
+++ b/lib/erl_interface/test/ei_tmo_SUITE.erl
@@ -26,10 +26,12 @@
 
 -define(dummy_host,test01).
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2,
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, init_per_testcase/2, end_per_testcase/2,
 	 framework_check/1, ei_accept_tmo/1, ei_connect_tmo/1, ei_send_tmo/1,
 	 ei_recv_tmo/1]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [framework_check, ei_accept_tmo, ei_connect_tmo,
  ei_send_tmo, ei_recv_tmo].
diff --git a/lib/erl_interface/test/erl_connect_SUITE.erl b/lib/erl_interface/test/erl_connect_SUITE.erl
index 6a8d5a998e..d47428baa2 100644
--- a/lib/erl_interface/test/erl_connect_SUITE.erl
+++ b/lib/erl_interface/test/erl_connect_SUITE.erl
@@ -23,11 +23,13 @@
 -include_lib("test_server/include/test_server.hrl").
 -include("erl_connect_SUITE_data/erl_connect_test_cases.hrl").
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2,init_per_testcase/2,end_per_testcase/2,
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2,init_per_testcase/2,end_per_testcase/2,
 	 erl_send/1,erl_reg_send/1, erl_send_cookie_file/1]).
 
 -import(runner, [get_term/1,send_term/2]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [erl_send, erl_reg_send, erl_send_cookie_file].
 
diff --git a/lib/erl_interface/test/erl_eterm_SUITE.erl b/lib/erl_interface/test/erl_eterm_SUITE.erl
index 084415ec41..45d9dabed1 100644
--- a/lib/erl_interface/test/erl_eterm_SUITE.erl
+++ b/lib/erl_interface/test/erl_eterm_SUITE.erl
@@ -33,7 +33,7 @@
 %%% 5. Miscellanous functions.
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, build_terms/1, round_trip_conversion/1,
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, build_terms/1, round_trip_conversion/1,
 	 decode_terms/1, decode_float/1,
 	 t_erl_mk_int/1, t_erl_mk_list/1,
 	 basic_copy/1,
@@ -73,6 +73,8 @@
 %% This test suite controls the running of the C language functions
 %% in eterm_test.c and print_term.c.
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [build_terms, round_trip_conversion, decode_terms,
  decode_float, t_erl_mk_int, t_erl_mk_list, basic_copy,
diff --git a/lib/erl_interface/test/erl_ext_SUITE.erl b/lib/erl_interface/test/erl_ext_SUITE.erl
index c3a47a75a0..9c54d7416f 100644
--- a/lib/erl_interface/test/erl_ext_SUITE.erl
+++ b/lib/erl_interface/test/erl_ext_SUITE.erl
@@ -24,7 +24,7 @@
 -include("erl_ext_SUITE_data/ext_test_cases.hrl").
 
 -export([
-	all/0,groups/0,init_per_group/2,end_per_group/2, 
+	all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, 
 	compare_tuple/1,
 	compare_list/1,
 	compare_string/1,
@@ -34,6 +34,8 @@
 
 -import(runner, [get_term/1]).
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [compare_tuple, compare_list, compare_string,
  compare_list_string, compare_nc_ext].
diff --git a/lib/erl_interface/test/erl_format_SUITE.erl b/lib/erl_interface/test/erl_format_SUITE.erl
index 3e828d14b7..b23055b4f5 100644
--- a/lib/erl_interface/test/erl_format_SUITE.erl
+++ b/lib/erl_interface/test/erl_format_SUITE.erl
@@ -23,13 +23,15 @@
 -include_lib("test_server/include/test_server.hrl").
 -include("erl_format_SUITE_data/format_test_cases.hrl").
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, tuples/1, lists/1]).
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, tuples/1, lists/1]).
 
 -import(runner, [get_term/1]).
 
 %% This test suite test the erl_format() function.
 %% It uses the port program "format_test".
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [atoms, tuples, lists].
 
diff --git a/lib/erl_interface/test/erl_match_SUITE.erl b/lib/erl_interface/test/erl_match_SUITE.erl
index d2ab6bd722..809356a693 100644
--- a/lib/erl_interface/test/erl_match_SUITE.erl
+++ b/lib/erl_interface/test/erl_match_SUITE.erl
@@ -23,7 +23,7 @@
 -include_lib("test_server/include/test_server.hrl").
 -include("erl_match_SUITE_data/match_test_cases.hrl").
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, lists/1, tuples/1, references/1, pids/1, ports/1,
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, atoms/1, lists/1, tuples/1, references/1, pids/1, ports/1,
 	 bind/1, integers/1, floats/1, binaries/1, strings/1]).
 
 %% For interactive running of matcher.
@@ -31,6 +31,8 @@
 
 %% This test suite tests the erl_match() function.
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [atoms, lists, tuples, references, pids, ports, bind,
  integers, floats, binaries, strings].
diff --git a/lib/erl_interface/test/port_call_SUITE.erl b/lib/erl_interface/test/port_call_SUITE.erl
index 3c1127bb18..547fc61cae 100644
--- a/lib/erl_interface/test/port_call_SUITE.erl
+++ b/lib/erl_interface/test/port_call_SUITE.erl
@@ -31,11 +31,13 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
--export([all/0,groups/0,init_per_group/2,end_per_group/2, basic/1]).
+-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2, basic/1]).
 % Private exports
 -include_lib("test_server/include/test_server.hrl").
 
 
+suite() -> [{suite_callbacks,[ts_install_scb]}].
+
 all() -> 
 [basic].