eunit: Eliminate use of the package syntax

2 files changed, 79 insertions, 82 deletions

diff --git a/lib/eunit/include/eunit.hrl b/lib/eunit/include/eunit.hrl
index 7b460ee5e8..8ebdb6ba16 100644
--- a/lib/eunit/include/eunit.hrl
+++ b/lib/eunit/include/eunit.hrl
@@ -125,8 +125,8 @@
 -ifndef(UNDER_EUNIT).
 -define(UNDER_EUNIT,
 	(?MATCHES({current_function,{eunit_proc,_,_}},
-		  .erlang:process_info(.erlang:group_leader(),
-				       current_function)))).
+		  erlang:process_info(erlang:group_leader(),
+				      current_function)))).
 -endif.
 
 %% The plain assert macro should be defined to do nothing if this file
@@ -143,14 +143,14 @@
 	((fun () ->
 	    case (BoolExpr) of
 		true -> ok;
-		__V -> .erlang:error({assertion_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??BoolExpr)},
-				       {expected, true},
-				       {value, case __V of false -> __V;
-						   _ -> {not_a_boolean,__V}
-					       end}]})
+		__V -> erlang:error({assertion_failed,
+				     [{module, ?MODULE},
+				      {line, ?LINE},
+				      {expression, (??BoolExpr)},
+				      {expected, true},
+				      {value, case __V of false -> __V;
+						  _ -> {not_a_boolean,__V}
+					      end}]})
 	    end
 	  end)())).
 -endif.
@@ -171,12 +171,12 @@
 	((fun () ->
 	    case (Expr) of
 		Guard -> ok;
-		__V -> .erlang:error({assertMatch_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {pattern, (??Guard)},
-				       {value, __V}]})
+		__V -> erlang:error({assertMatch_failed,
+				     [{module, ?MODULE},
+				      {line, ?LINE},
+				      {expression, (??Expr)},
+				      {pattern, (??Guard)},
+				      {value, __V}]})
 	    end
 	  end)())).
 -endif.
@@ -190,12 +190,12 @@
 	((fun () ->
 	    __V = (Expr),
 	    case __V of
-		Guard -> .erlang:error({assertNotMatch_failed,
-					[{module, ?MODULE},
-					 {line, ?LINE},
-					 {expression, (??Expr)},
-					 {pattern, (??Guard)},
-					 {value, __V}]});
+		Guard -> erlang:error({assertNotMatch_failed,
+				       [{module, ?MODULE},
+					{line, ?LINE},
+					{expression, (??Expr)},
+					{pattern, (??Guard)},
+					{value, __V}]});
 		_ -> ok
 	    end
 	  end)())).
@@ -211,12 +211,12 @@
 	((fun (__X) ->
 	    case (Expr) of
 		__X -> ok;
-		__V -> .erlang:error({assertEqual_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {expected, __X},
-				       {value, __V}]})
+		__V -> erlang:error({assertEqual_failed,
+				     [{module, ?MODULE},
+				      {line, ?LINE},
+				      {expression, (??Expr)},
+				      {expected, __X},
+				      {value, __V}]})
 	    end
 	  end)(Expect))).
 -endif.
@@ -229,11 +229,11 @@
 -define(assertNotEqual(Unexpected, Expr),
 	((fun (__X) ->
 	    case (Expr) of
-		__X -> .erlang:error({assertNotEqual_failed,
-				      [{module, ?MODULE},
-				       {line, ?LINE},
-				       {expression, (??Expr)},
-				       {value, __X}]});
+		__X -> erlang:error({assertNotEqual_failed,
+				     [{module, ?MODULE},
+				      {line, ?LINE},
+				      {expression, (??Expr)},
+				      {value, __X}]});
 		_ -> ok
 	    end
 	  end)(Unexpected))).
@@ -249,7 +249,7 @@
 -define(assertException(Class, Term, Expr),
 	((fun () ->
 	    try (Expr) of
-	        __V -> .erlang:error({assertException_failed,
+	        __V -> erlang:error({assertException_failed,
 				      [{module, ?MODULE},
 				       {line, ?LINE},
 				       {expression, (??Expr)},
@@ -260,16 +260,16 @@
 	    catch
 		Class:Term -> ok;
 	        __C:__T ->
-		    .erlang:error({assertException_failed,
-				   [{module, ?MODULE},
-				    {line, ?LINE},
-				    {expression, (??Expr)},
-				    {pattern,
-				     "{ "++(??Class)++" , "++(??Term)
-				     ++" , [...] }"},
-				    {unexpected_exception,
-				     {__C, __T,
-				      .erlang:get_stacktrace()}}]})
+		    erlang:error({assertException_failed,
+				  [{module, ?MODULE},
+				   {line, ?LINE},
+				   {expression, (??Expr)},
+				   {pattern,
+				    "{ "++(??Class)++" , "++(??Term)
+				    ++" , [...] }"},
+				   {unexpected_exception,
+				    {__C, __T,
+				     erlang:get_stacktrace()}}]})
 	    end
 	  end)())).
 -endif.
@@ -300,17 +300,17 @@
 			Class ->
 			    case __T of
 				Term ->
-				    .erlang:error({assertNotException_failed,
-						   [{module, ?MODULE},
-						    {line, ?LINE},
-						    {expression, (??Expr)},
-						    {pattern,
-						     "{ "++(??Class)++" , "
-						     ++(??Term)++" , [...] }"},
-						    {unexpected_exception,
-						     {__C, __T,
-						      .erlang:get_stacktrace()
-						     }}]});
+				    erlang:error({assertNotException_failed,
+						  [{module, ?MODULE},
+						   {line, ?LINE},
+						   {expression, (??Expr)},
+						   {pattern,
+						    "{ "++(??Class)++" , "
+						    ++(??Term)++" , [...] }"},
+						   {unexpected_exception,
+						    {__C, __T,
+						     erlang:get_stacktrace()
+						    }}]});
 				_ -> ok
 			    end;
 			_ -> ok
@@ -325,17 +325,17 @@
 %% require EUnit to be present at runtime, or at least eunit_lib.)
 
 %% these can be used for simply running commands in a controlled way
--define(_cmd_(Cmd), (.eunit_lib:command(Cmd))).
+-define(_cmd_(Cmd), (eunit_lib:command(Cmd))).
 -define(cmdStatus(N, Cmd),
 	((fun () ->
 	    case ?_cmd_(Cmd) of
 		{(N), __Out} -> __Out;
-		{__N, _} -> .erlang:error({command_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command, (Cmd)},
-					    {expected_status,(N)},
-					    {status,__N}]})
+		{__N, _} -> erlang:error({command_failed,
+					  [{module, ?MODULE},
+					   {line, ?LINE},
+					   {command, (Cmd)},
+					   {expected_status,(N)},
+					   {status,__N}]})
 	    end
 	  end)())).
 -define(_cmdStatus(N, Cmd), ?_test(?cmdStatus(N, Cmd))).
@@ -351,12 +351,12 @@
  	((fun () ->
 	    case ?_cmd_(Cmd) of
 		{(N), _} -> ok;
-		{__N, _} -> .erlang:error({assertCmd_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command, (Cmd)},
-					    {expected_status,(N)},
-					    {status,__N}]})
+		{__N, _} -> erlang:error({assertCmd_failed,
+					  [{module, ?MODULE},
+					   {line, ?LINE},
+					   {command, (Cmd)},
+					   {expected_status,(N)},
+					   {status,__N}]})
 	    end
 	  end)())).
 -endif.
@@ -369,12 +369,12 @@
  	((fun () ->
 	    case ?_cmd_(Cmd) of
 		{_, (T)} -> ok;
-		{_, __T} -> .erlang:error({assertCmdOutput_failed,
-					   [{module, ?MODULE},
-					    {line, ?LINE},
-					    {command,(Cmd)},
-					    {expected_output,(T)},
-					    {output,__T}]})
+		{_, __T} -> erlang:error({assertCmdOutput_failed,
+					  [{module, ?MODULE},
+					   {line, ?LINE},
+					   {command,(Cmd)},
+					   {expected_output,(T)},
+					   {output,__T}]})
 	    end
 	  end)())).
 -endif.
@@ -395,12 +395,12 @@
 -else.
 -define(debugMsg(S),
 	(begin
-	     .io:fwrite(user, <<"~s:~w:~w: ~s\n">>,
-                        [?FILE, ?LINE, self(), S]),
+	     io:fwrite(user, <<"~s:~w:~w: ~s\n">>,
+		       [?FILE, ?LINE, self(), S]),
 	     ok
 	 end)).
 -define(debugHere, (?debugMsg("<-"))).
--define(debugFmt(S, As), (?debugMsg(.io_lib:format((S), (As))))).
+-define(debugFmt(S, As), (?debugMsg(io_lib:format((S), (As))))).
 -define(debugVal(E),
 	((fun (__V) ->
 		  ?debugFmt(<<"~s = ~P">>, [(??E), __V, 15]),
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