diff options
| author | Björn Gustavsson <[email protected]> | 2016-10-07 12:46:50 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2016-11-18 11:58:34 +0100 |
| commit | 506f0982825f032b404425e777010459e974596f (patch) | |
| tree | 10b8b64583301baa90d364f071bf40d29b922298 /lib/compiler/test/compile_SUITE.erl | |
| parent | 132d61e6f075f8e85da268e88953980c2f348987 (diff) | |
| download | otp-506f0982825f032b404425e777010459e974596f.tar.gz otp-506f0982825f032b404425e777010459e974596f.tar.bz2 otp-506f0982825f032b404425e777010459e974596f.zip | |
Add test using LFE-generated Core Erlang modules
Ensure that correct (not necessarily optimal) code is generated for
Core Erlang code not originating from v3_core.
Diffstat (limited to 'lib/compiler/test/compile_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/compile_SUITE.erl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/compiler/test/compile_SUITE.erl b/lib/compiler/test/compile_SUITE.erl index d7e0b3498a..a2d3e2140b 100644 --- a/lib/compiler/test/compile_SUITE.erl +++ b/lib/compiler/test/compile_SUITE.erl @@ -1151,8 +1151,15 @@ get_unique_beam_files() -> get_unique_files(Ext) -> Wc = filename:join(filename:dirname(code:which(?MODULE)), "*"++Ext), - [F || F <- filelib:wildcard(Wc), not is_cloned(F, Ext)]. + [F || F <- filelib:wildcard(Wc), + not is_cloned(F, Ext), not is_lfe_module(F, Ext)]. is_cloned(File, Ext) -> Mod = list_to_atom(filename:basename(File, Ext)), test_lib:is_cloned_mod(Mod). + +is_lfe_module(File, Ext) -> + case filename:basename(File, Ext) of + "lfe_" ++ _ -> true; + _ -> false + end. |