diff options
| author | Björn Gustavsson <[email protected]> | 2015-02-23 10:04:21 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2015-02-23 10:04:21 +0100 |
| commit | 79736ff7d2e3916356fddda3a03fed8c9d292bdb (patch) | |
| tree | 80524b8914fffe3e268a4730146a989d08c4b9fc /lib/compiler/test | |
| parent | 343a1d3f41ca9655d032e7946b0334b6a361d6be (diff) | |
| parent | 7db06f86efea90df387501735dea39681a82d4ae (diff) | |
| download | otp-79736ff7d2e3916356fddda3a03fed8c9d292bdb.tar.gz otp-79736ff7d2e3916356fddda3a03fed8c9d292bdb.tar.bz2 otp-79736ff7d2e3916356fddda3a03fed8c9d292bdb.zip | |
Merge branch 'bjorn/compiler/sys_core_fold'
* bjorn/compiler/sys_core_fold:
sys_core_fold: Fix non-tail-recursive list comprehensions
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/lc_SUITE.erl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/lib/compiler/test/lc_SUITE.erl b/lib/compiler/test/lc_SUITE.erl index 6c5b34498b..62bada1407 100644 --- a/lib/compiler/test/lc_SUITE.erl +++ b/lib/compiler/test/lc_SUITE.erl @@ -208,6 +208,17 @@ effect(Config) when is_list(Config) -> #{<<1:500>>:=V1,<<2:301>>:=V2} <- L], ok end, id([#{},x,#{<<1:500>>=>42,<<2:301>>=>{a,b,c}}])), + + %% Will trigger the time-trap timeout if not tail-recursive. + case ?MODULE of + lc_SUITE -> + _ = [{'EXIT',{badarg,_}} = + (catch binary_to_atom(<<C/utf8>>, utf8)) || + C <- lists:seq(16#10000, 16#FFFFF)]; + _ -> + ok + end, + ok. do_effect(Lc, L) -> |