diff options
| author | Björn Gustavsson <[email protected]> | 2012-12-03 15:25:26 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-01-09 12:30:57 +0100 |
| commit | 048c561ea9d802718f2139326a2596dd0cded62b (patch) | |
| tree | 6c8912d424b24d098b83becc11926001eb23986c | |
| parent | 63061410737727cb256614a28dab41961e2bb40a (diff) | |
| download | otp-048c561ea9d802718f2139326a2596dd0cded62b.tar.gz otp-048c561ea9d802718f2139326a2596dd0cded62b.tar.bz2 otp-048c561ea9d802718f2139326a2596dd0cded62b.zip | |
erl_expand_records_SUITE: Eliminate use of packages
| -rw-r--r-- | lib/stdlib/test/erl_expand_records_SUITE.erl | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lib/stdlib/test/erl_expand_records_SUITE.erl b/lib/stdlib/test/erl_expand_records_SUITE.erl index e248934e10..e51c05a22c 100644 --- a/lib/stdlib/test/erl_expand_records_SUITE.erl +++ b/lib/stdlib/test/erl_expand_records_SUITE.erl @@ -107,8 +107,7 @@ attributes(doc) -> attributes(suite) -> []; attributes(Config) when is_list(Config) -> Ts = [ - <<"-import(erl_expand_records_SUITE). - -import(lists, [append/2, reverse/1]). + <<"-import(lists, [append/2, reverse/1]). -record(r, {a,b}). @@ -158,12 +157,12 @@ expr(Config) when is_list(Config) -> 2 = fun(X) -> X end(One + One), 3 = fun exprec_test:f/1(3), 4 = exprec_test:f(4), - 5 = ''.f(5), + 5 = f(5), L = receive {a,message,L0} -> L0 end, - case catch a.b.c:foo(bar) of + case catch a:foo(bar) of {'EXIT', _} -> ok end, _ = receive %Suppress warning. @@ -263,8 +262,7 @@ pattern(doc) -> pattern(suite) -> []; pattern(Config) when is_list(Config) -> Ts = [ - <<"-import(erl_expand_records_SUITE). - -import(lists, [append/2, reverse/1]). + <<"-import(lists, [append/2, reverse/1]). -record(r, {a,b}). @@ -292,10 +290,10 @@ pattern(Config) when is_list(Config) -> 21 = t(#r{a = #r{}}), 22 = t(2), 23 = t(#r{a = #r{}, b = b}), - 24 = t(a.b.c), + 24 = t(abc), ok. - t(a.b.c) -> + t(abc) -> 24; t($a) -> 2; |