Merge branch 'bjorn/compiler/tests' into maint

* bjorn/compiler/tests:
  compile_SUITE: Add test of 'sys_pre_attributes'
  Correct syntax in compiler.cover
  Cover v3_kernel:get_line/1
  core_SUITE: Cover the nomatch_shadow warning in v3_kernel
  core_SUITE: Cover v3_kernel:build_match/2
  bs_match_SUITE: Add a test case to cover bsm_ensure_no_partition_2/5
  core_fold_SUITE: Cover sys_core_fold:is_safe_bool_expr_1/3
  core_SUITE: Cover sys_core_fold:eval_is_boolean/2
  core_SUITE: Cover sys_core_fold:make_effect_seq/2
  beam_validator_SUITE:beam_files/1: Validate modules in parallel
  compilation_SUITE: Compile compiler modules in parallel
  compilation_SUITE: Prevent cover from being run on slave nodes
  test_lib:p_run/2: Be careful about how many parallel processes we use
  Remove part_eval_SUITE

1 files changed, 12 insertions, 15 deletions

diff --git a/lib/compiler/test/beam_validator_SUITE.erl b/lib/compiler/test/beam_validator_SUITE.erl
index 556dc54a8f..902867bc19 100644
--- a/lib/compiler/test/beam_validator_SUITE.erl
+++ b/lib/compiler/test/beam_validator_SUITE.erl
@@ -79,21 +79,18 @@ beam_files(Config) when is_list(Config) ->
     %% a grammatical error in the output of the io:format/2 call below. ;-)
     ?line [_,_|_] = Fs = filelib:wildcard(Wc),
     ?line io:format("~p files\n", [length(Fs)]),
-    beam_files_1(Fs, 0).
-
-beam_files_1([F|Fs], Errors) ->
-    ?line case beam_validator:file(F) of
-	      ok ->
-		  beam_files_1(Fs, Errors);
-	      {error,Es} ->
-		  io:format("File:  ~s", [F]),
-		  io:format("Error: ~p\n", [Es]),
-		  beam_files_1(Fs, Errors+1)
-	  end;
-beam_files_1([], 0) -> ok;
-beam_files_1([], Errors) ->
-    ?line io:format("~p error(s)", [Errors]),
-    ?line ?t:fail().
+    test_lib:p_run(fun do_beam_file/1, Fs).
+
+
+do_beam_file(F) ->
+    case beam_validator:file(F) of
+	ok ->
+	    ok;
+	{error,Es} ->
+	    io:format("File:  ~s", [F]),
+	    io:format("Error: ~p\n", [Es]),
+	    error
+    end.
 
 compiler_bug(Config) when is_list(Config) ->
     %% Check that the compiler returns an error if we try to