diff options
| author | Björn Gustavsson <bjorn@erlang.org> | 2017-11-13 12:58:04 +0100 |
|---|---|---|
| committer | Björn Gustavsson <bjorn@erlang.org> | 2017-11-13 13:11:37 +0100 |
| commit | 8059d34e52587880b0bbb6eb2845e6a46cb19d21 (patch) | |
| tree | c14b5cb1cdf470ac073143d09ace2250a88ec9d4 /lib/compiler/test/compile_SUITE.erl | |
| parent | 743e5a4d6b71317672e2527b0ab77ec45d91aac9 (diff) | |
| parent | cde4ddc0494c9cdc8169dbc552e0e9b91c3a1b30 (diff) | |
| download | erlang-8059d34e52587880b0bbb6eb2845e6a46cb19d21.tar.gz | |
Merge branch 'maint'
* maint:
Recognize 'deterministic' when given in a -compile() attribute
Conflicts:
lib/compiler/src/beam_asm.erl
Diffstat (limited to 'lib/compiler/test/compile_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/compile_SUITE.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/compiler/test/compile_SUITE.erl b/lib/compiler/test/compile_SUITE.erl index 46b955b1f8..8fe2a93f95 100644 --- a/lib/compiler/test/compile_SUITE.erl +++ b/lib/compiler/test/compile_SUITE.erl @@ -120,9 +120,19 @@ file_1(Config) when is_list(Config) -> true = exists(Target), passed = run(Target, test, []), + %% Test option 'deterministic' as a compiler attribute. + Det = deterministic_module, + {DetPath, DetTarget} = get_files(Config, Det, "det_target"), + {ok,Det,DetCode} = compile:file(DetPath, [binary]), + {module,Det} = code:load_binary(Det, "", DetCode), + [{version,_}] = Det:module_info(compile), + true = code:delete(Det), + false = code:purge(Det), + %% Cleanup. ok = file:delete(Target), ok = file:del_dir(filename:dirname(Target)), + ok = file:del_dir(filename:dirname(DetTarget)), %% There should not be any messages in the messages. receive |