diff options
author | Björn Gustavsson <[email protected]> | 2012-01-26 10:43:49 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2012-01-26 10:43:49 +0100 |
commit | 0ea66a32ea84121bd0b7a8e7aed743b2c4593ec6 (patch) | |
tree | 744ceaaa73408578a26171118a9aa09ac8311144 /lib/stdlib/test/erl_expand_records_SUITE.erl | |
parent | 716f6e4c99dd03ee48087bbebe37bfb42c08835e (diff) | |
parent | 9d2a2e3db06e861045e51ca3cc8adb9cf8fc467d (diff) | |
download | otp-0ea66a32ea84121bd0b7a8e7aed743b2c4593ec6.tar.gz otp-0ea66a32ea84121bd0b7a8e7aed743b2c4593ec6.tar.bz2 otp-0ea66a32ea84121bd0b7a8e7aed743b2c4593ec6.zip |
Merge branch 'maint'
* maint:
Update primary bootstrap
erl_lint: Disallow call to is_record/3 if there is a local is_record/3
Fix crash in trace_info({M,F,A}, Flags) when M:F/A has native code
Ensure that generated record operations don't call local functions
Diffstat (limited to 'lib/stdlib/test/erl_expand_records_SUITE.erl')
-rw-r--r-- | lib/stdlib/test/erl_expand_records_SUITE.erl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/stdlib/test/erl_expand_records_SUITE.erl b/lib/stdlib/test/erl_expand_records_SUITE.erl index f8c1ad783c..8b162cfda0 100644 --- a/lib/stdlib/test/erl_expand_records_SUITE.erl +++ b/lib/stdlib/test/erl_expand_records_SUITE.erl @@ -178,6 +178,9 @@ expr(Config) when is_list(Config) -> true -> not_ok end. + + is_record(_, _, _) -> + error(wrong_is_record). ">> ], @@ -366,6 +369,8 @@ strict(Config) when is_list(Config) -> end catch error:_ -> ok end. + element(_, _) -> + error(wrong_element). ">> ], ?line run(Config, Ts1, [strict_record_tests]), @@ -380,6 +385,8 @@ strict(Config) when is_list(Config) -> case foo of _ when A#r2.a =:= 1 -> ok end. + element(_, _) -> + error(wrong_element). ">> ], ?line run(Config, Ts2, [no_strict_record_tests]), @@ -415,6 +422,11 @@ update(Config) when is_list(Config) -> t2() -> R0 = #r{}, #r{_ = R0#r{a = ok}}. + + %% Implicit calls to setelement/3 must go to the BIF, + %% not to this function. + setelement(_, _, _) -> + erlang:error(wrong_setelement_called). ">> ], ?line run(Config, Ts), |