3 files changed, 19 insertions, 4 deletions
diff --git a/lib/kernel/test/code_SUITE.erl b/lib/kernel/test/code_SUITE.erl
index 0cd2c5d47c..298c1f7d6b 100644
--- a/lib/kernel/test/code_SUITE.erl
+++ b/lib/kernel/test/code_SUITE.erl
@@ -972,7 +972,8 @@ bad_erl_libs(Config) when is_list(Config) ->
     test_server:stop_node(Node2),
 
     %% Test that code path is not affected by the faulty ERL_LIBS
-    Code == Code2,
+    Code = Code2,
+
     ok.
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/lib/kernel/test/erl_prim_loader_SUITE.erl b/lib/kernel/test/erl_prim_loader_SUITE.erl
index 00be5c99a8..3ea925ee9a 100644
--- a/lib/kernel/test/erl_prim_loader_SUITE.erl
+++ b/lib/kernel/test/erl_prim_loader_SUITE.erl
@@ -109,6 +109,12 @@ get_file(Config) when is_list(Config) ->
     ok.
 
 get_modules(_Config) ->
+    case test_server:is_cover() of
+	false -> do_get_modules();
+	true -> {skip,"Cover"}
+    end.
+
+do_get_modules() ->
     MsGood = lists:sort([lists,gen_server,gb_trees,code_server]),
     Ms = [certainly_not_existing|MsGood],
     SuccExp = [begin
@@ -118,6 +124,9 @@ get_modules(_Config) ->
 	       end || M <- MsGood],
     FailExp = [{certainly_not_existing,enoent}],
 
+    io:format("SuccExp = ~p\n", [SuccExp]),
+    io:format("FailExp = ~p\n", [FailExp]),
+
     Path = code:get_path(),
     Process = fun(_, F, Code) -> {ok,{F,erlang:md5(Code)}} end,
     {ok,{Succ,FailExp}} = erl_prim_loader:get_modules(Ms, Process, Path),
diff --git a/lib/kernel/test/multi_load_SUITE.erl b/lib/kernel/test/multi_load_SUITE.erl
index 7ec4803114..9cba6fc06e 100644
--- a/lib/kernel/test/multi_load_SUITE.erl
+++ b/lib/kernel/test/multi_load_SUITE.erl
@@ -274,7 +274,12 @@ do_ensure_modules_loaded(Dir) ->
     true = is_loaded(Mod),
     true = is_loaded(OLMod),
     true = is_loaded(NativeMod),
-    true = NativeMod:module_info(native),
+
+    ModuleNative = case erlang:system_info(hipe_architecture) of
+		       undefined -> false;
+		       _ -> true
+		   end,
+    ModuleNative = NativeMod:module_info(native),
 
     ok.
 
@@ -359,9 +364,9 @@ atomic_load_error(Modules, ErrorInFinishLoading) ->
 	{B,B} ->
 	    Errors;
 	{false,true} ->
-	    ct:fail("LastAction fun must not be called");
+	    ct:fail("code:prepare_loading/1 should have failed");
 	{true,false} ->
-	    ct:fail("LastAction fun was not called")
+	    ct:fail("code:prepare_loading/1 should have succeeded")
     end.
 
 is_loaded(Mod) ->