diff options
| author | Björn Gustavsson <bjorn@erlang.org> | 2015-02-03 13:38:54 +0100 |
|---|---|---|
| committer | Björn Gustavsson <bjorn@erlang.org> | 2015-02-12 13:14:37 +0100 |
| commit | 0910d13d2077af731a5e1eeed4ac3c11da8a329b (patch) | |
| tree | 7756db77539b28c1bdf174b42a20c26cca6cb7f1 /lib/compiler/test/record_SUITE.erl | |
| parent | a13841ec7ef3365b5d263afd1c4398952a6844a1 (diff) | |
| download | erlang-0910d13d2077af731a5e1eeed4ac3c11da8a329b.tar.gz | |
sys_core_fold: Refactor type information access
Introduce access functions to hide the low-level details of how
type information is implemented.
Diffstat (limited to 'lib/compiler/test/record_SUITE.erl')
| -rw-r--r-- | lib/compiler/test/record_SUITE.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/compiler/test/record_SUITE.erl b/lib/compiler/test/record_SUITE.erl index f736e14bf6..8cc90026ec 100644 --- a/lib/compiler/test/record_SUITE.erl +++ b/lib/compiler/test/record_SUITE.erl @@ -246,6 +246,14 @@ record_test_2(Config) when is_list(Config) -> ?line Barf = update_barf(Barf0), ?line #barf{a="abc",b=1} = id(Barf), + %% Test optimization of is_record/3. + false = case id({a,b}) of + {_,_}=Tuple -> is_record(Tuple, foo) + end, + false = case id(true) of + true=Bool -> is_record(Bool, foo) + end, + ok. record_test_3(Config) when is_list(Config) -> |