diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-29 09:13:29 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-02-06 15:13:21 +0100 |
| commit | fd79b0246a1da9fdb84926a3e31e516c76cf0b2d (patch) | |
| tree | ac618da410776c02c01f97d9505b5dbea859cecb /lib/observer/test/etop_SUITE.erl | |
| parent | e8d7489adc8c39ecd6255dc160d7e545cb076de3 (diff) | |
| download | otp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.tar.gz otp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.tar.bz2 otp-fd79b0246a1da9fdb84926a3e31e516c76cf0b2d.zip | |
etop_SUITE: Skip a test case if libraries are native-compiled
Diffstat (limited to 'lib/observer/test/etop_SUITE.erl')
| -rw-r--r-- | lib/observer/test/etop_SUITE.erl | 13 |
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. |