aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-01-27 07:42:30 +0100
committerBjörn Gustavsson <[email protected]>2012-01-27 09:53:10 +0100
commit1eec7170acbedcae64a488759aeff027e71d6db6 (patch)
treec6f5ba3b874b3b4d48ffb8e3565ee2167c1d0de0 /lib
parent2c8422734af6d0415f8efe60d5dfdceae36c2862 (diff)
downloadotp-1eec7170acbedcae64a488759aeff027e71d6db6.tar.gz
otp-1eec7170acbedcae64a488759aeff027e71d6db6.tar.bz2
otp-1eec7170acbedcae64a488759aeff027e71d6db6.zip
erl_eval_SUITE: Skip test of parameterized modules if native code
Parameterized modules are not supported by HiPE.
Diffstat (limited to 'lib')
-rw-r--r--lib/stdlib/test/erl_eval_SUITE.erl25
1 files changed, 16 insertions, 9 deletions
diff --git a/lib/stdlib/test/erl_eval_SUITE.erl b/lib/stdlib/test/erl_eval_SUITE.erl
index 369d8b224e..ca2f18a05a 100644
--- a/lib/stdlib/test/erl_eval_SUITE.erl
+++ b/lib/stdlib/test/erl_eval_SUITE.erl
@@ -1167,15 +1167,22 @@ do_funs(LFH, EFH) ->
[[[0]]], ['F'], LFH, EFH),
%% Tests for a bug found by the Dialyzer - used to crash.
- ?line check(fun() -> Pmod = erl_eval_helper:new(42), Pmod:add(5) end,
- "begin Pmod = erl_eval_helper:new(42), Pmod:add(5) end.",
- 47,
- ['Pmod'], LFH, EFH),
- ?line check(fun() -> Pmod = erl_eval_helper:new(42), B = Pmod:add(7), B end,
- "begin Pmod = erl_eval_helper:new(42), B = Pmod:add(7), B end.",
- 49,
- ['B','Pmod'], LFH, EFH),
-
+ case test_server:is_native(erl_eval) of
+ true ->
+ %% Parameterized modules are not supported by HiPE.
+ ok;
+ false ->
+ check(fun() -> Pmod = erl_eval_helper:new(42), Pmod:add(5) end,
+ "begin Pmod = erl_eval_helper:new(42), Pmod:add(5) end.",
+ 47,
+ ['Pmod'], LFH, EFH),
+ check(fun() -> Pmod = erl_eval_helper:new(42),
+ B = Pmod:add(7), B end,
+ "begin Pmod = erl_eval_helper:new(42), "
+ "B = Pmod:add(7), B end.",
+ 49,
+ ['B','Pmod'], LFH, EFH)
+ end,
ok.
count_down(F, N) when N > 0 ->