aboutsummaryrefslogtreecommitdiffstats
path: root/lib/observer/test/etop_SUITE.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-02-07 08:31:03 +0100
committerBjörn Gustavsson <[email protected]>2012-02-07 08:31:03 +0100
commitd4332565d1a6480fe46fd72284e39dbf4670327e (patch)
tree6332b544627aca61665abbae8c7203cb9e74379e /lib/observer/test/etop_SUITE.erl
parent7ec7e60aea883bbc7d09e7dd6b68061ee8c6b15b (diff)
parentf028f375e7e7bc1f859e247651c5ddb816bdd208 (diff)
downloadotp-d4332565d1a6480fe46fd72284e39dbf4670327e.tar.gz
otp-d4332565d1a6480fe46fd72284e39dbf4670327e.tar.bz2
otp-d4332565d1a6480fe46fd72284e39dbf4670327e.zip
Merge branch 'bjorn/hipe-test-cases' into maint
* bjorn/hipe-test-cases: debugger tests: Increase time trap timeout fprof_SUITE: Skip create_file_slow/1 if libraries are native etop_SUITE: Skip a test case if libraries are native-compiled Skip all inviso test cases if libraries are native-compiled erl_prim_loader_SUITE: Handle native-compiled erl_boot_server re_SUITE: Skip error_handling/1 if 're' is native code shell_SUITE: Handle different EXIT reasons from native code sofs_SUITE: Handle different EXIT reasons from native code erl_eval_SUITE: Skip test of parameterized modules if native code trace_port_SUITE: Skip test cases if 'lists' is native-compiled call_trace_SUITE: Skip test cases if libraries are native-compiled
Diffstat (limited to 'lib/observer/test/etop_SUITE.erl')
-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.