diff options
| author | Björn Gustavsson <[email protected]> | 2012-12-03 14:10:45 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-01-09 12:30:57 +0100 |
| commit | 8db6de497522ee192e53d43211bf19f63d3e3c76 (patch) | |
| tree | 1455df14fd532ae5df3b62f9a93cc8cf9a7a1eec /lib/eunit/src | |
| parent | 5cd05af9b0ed994cf44bbd8ad7c5ee3119f952ff (diff) | |
| download | otp-8db6de497522ee192e53d43211bf19f63d3e3c76.tar.gz otp-8db6de497522ee192e53d43211bf19f63d3e3c76.tar.bz2 otp-8db6de497522ee192e53d43211bf19f63d3e3c76.zip | |
eunit: Eliminate use of the package syntax
Diffstat (limited to 'lib/eunit/src')
| -rw-r--r-- | lib/eunit/src/eunit_autoexport.erl | 7 |
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 |