46
46
47
47
log_environment () ->
48
48
Vars = lists :sort (fun (A , B ) -> A =< B end , os :getenv ()),
49
- ct :pal (" Environment variables:~n~s " , [
49
+ ct :pal (? LOW_IMPORTANCE , " Environment variables:~n~s " , [
50
50
[io_lib :format (" ~s~n " , [V ]) || V <- Vars ]]).
51
51
52
52
run_setup_steps (Config ) ->
@@ -289,7 +289,7 @@ long_running_testsuite_monitor(TimerRef, Testcases) ->
289
289
long_running_testsuite_monitor (TimerRef , Testcases1 );
290
290
ping_ct ->
291
291
T1 = time_compat :monotonic_time (seconds ),
292
- ct :pal (" Testcases still in progress:~s " ,
292
+ ct :pal (? STD_IMPORTANCE , " Testcases still in progress:~s " ,
293
293
[[
294
294
begin
295
295
TDiff = format_time_diff (T1 , T0 ),
@@ -435,7 +435,7 @@ exec([Cmd | Args], Options) when is_list(Cmd) orelse is_binary(Cmd) ->
435
435
" ~n " )
436
436
}
437
437
end ,
438
- ct :pal (Log1 , [string :join ([Cmd1 | Args1 ], " " ), self ()]),
438
+ ct :pal (? LOW_IMPORTANCE , Log1 , [string :join ([Cmd1 | Args1 ], " " ), self ()]),
439
439
Port = erlang :open_port (
440
440
{spawn_executable , Cmd1 }, [
441
441
{args , Args1 },
@@ -459,9 +459,11 @@ port_receive_loop(Port, Stdout, Options) ->
459
459
Stdout =:= " " ,
460
460
if
461
461
DropStdout ->
462
- ct :pal (" Exit code: ~p (pid ~p )" , [X , self ()]);
462
+ ct :pal (? LOW_IMPORTANCE , " Exit code: ~p (pid ~p )" ,
463
+ [X , self ()]);
463
464
true ->
464
- ct :pal (" ~s~n Exit code: ~p (pid ~p )" , [Stdout , X , self ()])
465
+ ct :pal (? LOW_IMPORTANCE , " ~s~n Exit code: ~p (pid ~p )" ,
466
+ [Stdout , X , self ()])
465
467
end ,
466
468
case proplists :get_value (match_stdout , Options ) of
467
469
undefined ->
0 commit comments