diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-26 16:00:00 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-26 16:00:00 +0100 |
| commit | 2c8422734af6d0415f8efe60d5dfdceae36c2862 (patch) | |
| tree | 5146b60dbd7999d38e4ebf1b3fb1e4c4dbc9c753 /erts | |
| parent | dbb5c6253f9e1d9371be2c883a324fea1119c61f (diff) | |
| download | otp-2c8422734af6d0415f8efe60d5dfdceae36c2862.tar.gz otp-2c8422734af6d0415f8efe60d5dfdceae36c2862.tar.bz2 otp-2c8422734af6d0415f8efe60d5dfdceae36c2862.zip | |
trace_port_SUITE: Skip test cases if 'lists' is native-compiled
Diffstat (limited to 'erts')
| -rw-r--r-- | erts/emulator/test/trace_port_SUITE.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/erts/emulator/test/trace_port_SUITE.erl b/erts/emulator/test/trace_port_SUITE.erl index 0026da4979..b0ce6f81db 100644 --- a/erts/emulator/test/trace_port_SUITE.erl +++ b/erts/emulator/test/trace_port_SUITE.erl @@ -77,7 +77,8 @@ end_per_testcase(_Func, Config) -> call_trace(doc) -> "Test sending call trace messages to a port."; call_trace(Config) when is_list(Config) -> - case test_server:is_native(?MODULE) of + case test_server:is_native(?MODULE) orelse + test_server:is_native(lists) of true -> {skip,"Native code"}; false -> @@ -128,7 +129,8 @@ bs_sum_c(<<>>, Acc) -> Acc. return_trace(doc) -> "Test the new return trace."; return_trace(Config) when is_list(Config) -> - case test_server:is_native(?MODULE) of + case test_server:is_native(?MODULE) orelse + test_server:is_native(lists) of true -> {skip,"Native code"}; false -> |