File 1057-observer-test-Tweaked-load-file-crashdump-... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1057-observer-test-Tweaked-load-file-crashdump-viewer-tes.patch of Package erlang (Revision 624ca212254f656db6891b8eb0f28197)

Currently displaying revision 624ca212254f656db6891b8eb0f28197 , Show latest

From 21a652c56e7589c2521bd1f727db4dbf60e5c6e5 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 21 May 2021 17:29:37 +0200
Subject: [PATCH 17/17] [observer|test] Tweaked load-file crashdump-viewer test
 case

---
 lib/observer/test/crashdump_viewer_SUITE.erl | 37 ++++++++++++++++++--
 1 file changed, 34 insertions(+), 3 deletions(-)

diff --git a/lib/observer/test/crashdump_viewer_SUITE.erl b/lib/observer/test/crashdump_viewer_SUITE.erl
index 05fde1f22e..e4c4c4decb 100644
--- a/lib/observer/test/crashdump_viewer_SUITE.erl
+++ b/lib/observer/test/crashdump_viewer_SUITE.erl
@@ -35,6 +35,8 @@
 -define(failed_file,"failed-cases.txt").
 -define(helper_mod,crashdump_helper).
 
+%% -define(P(F),    print(F)).
+-define(P(F, A), print(F, A)).
 
 
 init_per_testcase(start_stop, Config) ->
@@ -336,7 +338,8 @@ wait_for_progress_done() ->
 %%%-----------------------------------------------------------------
 %%% General check of what is displayed for a dump
 browse_file(File) ->
-    io:format("~nBrowsing file: ~s",[File]),
+    io:format("~n[~s] Browsing file: ~s", [formated_timestamp(), File]),
+    %% io:format("~nBrowsing file: ~s",[File]),
 
     ok = start_backend(File),
 
@@ -671,12 +674,17 @@ lookat_all_pids([#proc{pid=Pid0}|Procs],TruncAllowed,IncompAllowed) ->
         {[],[],[]} ->
             ok;
         {["WARNING: This process has an incomplete heap."++_],[],[]}
-          when IncompAllowed ->
+	when IncompAllowed ->
             ok;  % native libs, literals might not be included in dump
         _ when TruncAllowed ->
             ok; % truncated dump
         TWs ->
-            ct:fail({unexpected_warning,Pid,TWs})
+	    ?P("lookat_all_pids -> unexpected warning"
+	       "~n   Pid:           ~s"
+	       "~n   IncompAllowed: ~p"
+	       "~n   TruncAllowed:  ~p"
+	       "~n   ~p", [Pid, IncompAllowed, TruncAllowed, TWs]),
+            ct:fail({unexpected_warning, Pid, TWs, IncompAllowed, TruncAllowed})
     end,
     lookat_all_pids(Procs,TruncAllowed,IncompAllowed).
 
@@ -984,3 +992,26 @@ compat_rel(current) ->
     "";
 compat_rel(Rel) ->
     lists:concat(["+R",Rel," "]).
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%% f(F, A) ->
+%%     lists:flatten(io_lib:format(F, A)).
+
+formated_timestamp() ->
+    format_timestamp(os:timestamp()).
+
+format_timestamp({_N1, _N2, N3} = TS) ->
+    {_Date, Time}   = calendar:now_to_local_time(TS),
+    {Hour, Min, Sec} = Time,
+    FormatTS = io_lib:format("~.2.0w:~.2.0w:~.2.0w.~.3.0w",
+                             [Hour, Min, Sec, N3 div 1000]),  
+    lists:flatten(FormatTS).
+
+%% print(F) ->
+%%     print(F, []).
+
+print(F, A) ->
+    io:format("~s ~p " ++ F ++ "~n", [formated_timestamp(), self() | A]).
+
-- 
2.26.2

Places

File 1057-observer-test-Tweaked-load-file-crashdump-viewer-tes.patch of Package erlang (Revision 624ca212254f656db6891b8eb0f28197)

Places