diff options
| author | Björn Gustavsson <[email protected]> | 2012-01-27 07:42:30 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-01-27 09:53:10 +0100 |
| commit | 1eec7170acbedcae64a488759aeff027e71d6db6 (patch) | |
| tree | c6f5ba3b874b3b4d48ffb8e3565ee2167c1d0de0 /lib/stdlib/test/erl_eval_SUITE.erl | |
| parent | 2c8422734af6d0415f8efe60d5dfdceae36c2862 (diff) | |
| download | otp-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/stdlib/test/erl_eval_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/erl_eval_SUITE.erl | 25 |
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 -> |