diff options
author | John Högberg <[email protected]> | 2018-10-11 14:50:55 +0200 |
---|---|---|
committer | John Högberg <[email protected]> | 2018-10-11 14:50:57 +0200 |
commit | 4538628409a67a5cb844b7f9b8ac0038d9b3f03b (patch) | |
tree | a97cbf78acfa1f3b70051928e32584aca9cb51a6 /lib/kernel/test | |
parent | 76e2f04bff3685a8efb9321edf02a6996c5fbf59 (diff) | |
download | otp-4538628409a67a5cb844b7f9b8ac0038d9b3f03b.tar.gz otp-4538628409a67a5cb844b7f9b8ac0038d9b3f03b.tar.bz2 otp-4538628409a67a5cb844b7f9b8ac0038d9b3f03b.zip |
seq_trace: Fix label_capability_mismatch test
When compiled on OTP 22, the test suite will not load on the
OTP 20 node required for this test.
Diffstat (limited to 'lib/kernel/test')
-rw-r--r-- | lib/kernel/test/seq_trace_SUITE.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/kernel/test/seq_trace_SUITE.erl b/lib/kernel/test/seq_trace_SUITE.erl index cf4bf11328..3bbf62e832 100644 --- a/lib/kernel/test/seq_trace_SUITE.erl +++ b/lib/kernel/test/seq_trace_SUITE.erl @@ -19,6 +19,9 @@ %% -module(seq_trace_SUITE). +%% label_capability_mismatch needs to run a part of the test on an OTP 20 node. +-compile(r20). + -export([all/0, suite/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]). @@ -329,7 +332,7 @@ do_incompatible_labels(Rel) -> Mdir = filename:dirname(Dir), true = rpc:call(Node,code,add_patha,[Mdir]), seq_trace:reset_trace(), - rpc:call(Node,?MODULE,start_tracer,[]), + true = is_pid(rpc:call(Node,?MODULE,start_tracer,[])), Receiver = spawn(Node,?MODULE,one_time_receiver,[]), %% This node does not support arbitrary labels, so it must fail with a @@ -356,7 +359,7 @@ do_compatible_labels(Rel) -> Mdir = filename:dirname(Dir), true = rpc:call(Node,code,add_patha,[Mdir]), seq_trace:reset_trace(), - rpc:call(Node,?MODULE,start_tracer,[]), + true = is_pid(rpc:call(Node,?MODULE,start_tracer,[])), Receiver = spawn(Node,?MODULE,one_time_receiver,[]), %% This node does not support arbitrary labels, but small integers should |