aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-01-29 09:13:29 +0100
committerBjörn Gustavsson <[email protected]>2012-02-06 15:13:21 +0100
commitfd79b0246a1da9fdb84926a3e31e516c76cf0b2d (patch)
treeac618da410776c02c01f97d9505b5dbea859cecb
parente8d7489adc8c39ecd6255dc160d7e545cb076de3 (diff)
downloadotp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.tar.gz
otp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.tar.bz2
otp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.zip
etop_SUITE: Skip a test case if libraries are native-compiled
-rw-r--r--lib/observer/test/etop_SUITE.erl13
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/observer/test/etop_SUITE.erl b/lib/observer/test/etop_SUITE.erl
index a0782ea809..a277453620 100644
--- a/lib/observer/test/etop_SUITE.erl
+++ b/lib/observer/test/etop_SUITE.erl
@@ -57,11 +57,14 @@ end_per_group(_GroupName, Config) ->
Config.
-text(suite) ->
- [];
-text(doc) ->
- ["Start etop with text presentation"];
-text(Config) when is_list(Config) ->
+%% Start etop with text presentation
+text(_) ->
+ case test_server:is_native(lists) of
+ true -> {skip,"Native libs -- tracing does not work"};
+ false -> text()
+ end.
+
+text() ->
?line {ok,Node} = ?t:start_node(node2,peer,[]),
%% Must spawn this process, else the test case will never end.