aboutsummaryrefslogtreecommitdiffstats
path: root/lib/eunit/src/eunit_autoexport.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-12-03 14:10:45 +0100
committerBjörn Gustavsson <[email protected]>2013-01-09 12:30:57 +0100
commit8db6de497522ee192e53d43211bf19f63d3e3c76 (patch)
tree1455df14fd532ae5df3b62f9a93cc8cf9a7a1eec /lib/eunit/src/eunit_autoexport.erl
parent5cd05af9b0ed994cf44bbd8ad7c5ee3119f952ff (diff)
downloadotp-8db6de497522ee192e53d43211bf19f63d3e3c76.tar.gz
otp-8db6de497522ee192e53d43211bf19f63d3e3c76.tar.bz2
otp-8db6de497522ee192e53d43211bf19f63d3e3c76.zip
eunit: Eliminate use of the package syntax
Diffstat (limited to 'lib/eunit/src/eunit_autoexport.erl')
-rw-r--r--lib/eunit/src/eunit_autoexport.erl7
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/eunit/src/eunit_autoexport.erl b/lib/eunit/src/eunit_autoexport.erl
index 099bcb222e..36ae3b71d7 100644
--- a/lib/eunit/src/eunit_autoexport.erl
+++ b/lib/eunit/src/eunit_autoexport.erl
@@ -80,10 +80,9 @@ rewrite([F | Fs], As, Module, Test) ->
rewrite(Fs, [F | As], Module, Test);
rewrite([], As, Module, Test) ->
{if Test ->
- EUnit = {record_field,0,{atom,0,''},{atom,0,eunit}},
[{function,0,test,0,
[{clause,0,[],[],
- [{call,0,{remote,0,EUnit,{atom,0,test}},
+ [{call,0,{remote,0,{atom,0,eunit},{atom,0,test}},
[{atom,0,Module}]}]}]}
| As];
true ->
@@ -92,9 +91,7 @@ rewrite([], As, Module, Test) ->
Test}.
module_decl(Name, M, Fs, Exports) ->
- Module = if is_atom(Name) -> Name;
- true -> list_to_atom(packages:concat(Name))
- end,
+ Module = Name,
{Fs1, Test} = rewrite(Fs, [], Module, true),
Es = if Test -> [{test,0} | Exports];
true -> Exports