diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2019-10-14 10:40:27 +0200 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2019-10-14 12:32:53 +0200 |
commit | de95f2357a92265cec07955fc7d703eba20abd72 (patch) | |
tree | 31327c320611c58ad254d58dcd81784f0d19805f /lib | |
parent | 45b104c49e7ade1a866202f4773094bd90e2e633 (diff) | |
download | erlang-de95f2357a92265cec07955fc7d703eba20abd72.tar.gz |
Cover beam_ssa_opt:ssa_opt_element/1
Diffstat (limited to 'lib')
-rw-r--r-- | lib/compiler/test/record_SUITE.erl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lib/compiler/test/record_SUITE.erl b/lib/compiler/test/record_SUITE.erl index 3a2453dd4b..109e163130 100644 --- a/lib/compiler/test/record_SUITE.erl +++ b/lib/compiler/test/record_SUITE.erl @@ -588,6 +588,7 @@ nested_access(Config) when is_list(Config) -> ok. -record(rr, {a,b,c}). +-record(fileheader, {read_md5,md5,eof,trailer}). coverage(Config) when is_list(Config) -> %% There should only remain one record test in the code below. @@ -599,8 +600,23 @@ coverage(Config) when is_list(Config) -> ok end, #rr{a=1,b=2,c=42} = id(R), %Test for correctness. + + %% Cover beam_ssa_opt:ssa_opt_element/1 and friends. + error1 = check_file_header(#fileheader{read_md5=1,md5=2}), + error2 = check_file_header(#fileheader{trailer=true,eof=false}), + error3 = check_file_header(#fileheader{}), + ok. +check_file_header(FH) -> + if + FH#fileheader.read_md5 =/= FH#fileheader.md5 -> + error1; + FH#fileheader.trailer =/= FH#fileheader.eof -> + error2; + true -> + error3 + end. -record(default_fun, {a = fun(X) -> X*X end}). |