File 7664-snmp-test-Add-some-more-platform-info.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 7664-snmp-test-Add-some-more-platform-info.patch of Package erlang (Revision 60cc6e15571d1d3ea9eb42c446c0449b)

Currently displaying revision 60cc6e15571d1d3ea9eb42c446c0449b , Show latest

From 5b86027b75bcdf8bf9b6cc8168ce866672031746 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Wed, 19 Jan 2022 14:01:23 +0100
Subject: [PATCH 04/12] [snmp|test] Add some more platform info

---
 lib/snmp/test/snmp_test_lib.erl | 40 +++++++++++++++++++++------------
 1 file changed, 26 insertions(+), 14 deletions(-)

diff --git a/lib/snmp/test/snmp_test_lib.erl b/lib/snmp/test/snmp_test_lib.erl
index c561b276f9..fa976b16f7 100644
--- a/lib/snmp/test/snmp_test_lib.erl
+++ b/lib/snmp/test/snmp_test_lib.erl
@@ -970,13 +970,22 @@ analyze_and_print_host_info() ->
             analyze_and_print_win_host_info(Version);
         _ ->
             io:format("OS Family: ~p"
-                      "~n   OS Type:               ~p"
-                      "~n   Version:               ~p"
-                      "~n   Num Online Schedulers: ~s"
-                      "~n", [OsFam, OsName, Version, str_num_schedulers()]),
+                      "~n   OS Type:                 ~p"
+                      "~n   Version:                 ~p"
+                      "~n   Num Online Schedulers:   ~s"
+                      "~n   TS Extra Platform Label: ~s"
+                      "~n", [OsFam, OsName, Version, str_num_schedulers(),
+                             ts_extra_flatform_label()]),
             {num_schedulers_to_factor(), []}
     end.
 
+ts_extra_flatform_label() ->
+    case os:getenv("TS_EXTRA_PLATFORM_LABEL") of
+        false -> "-";
+        Val   -> Val
+    end.
+
+
 linux_which_distro(Version) ->
     case file:read_file_info("/etc/issue") of
         {ok, _} ->
@@ -984,9 +993,10 @@ linux_which_distro(Version) ->
                      S <- string:tokens(os:cmd("cat /etc/issue"), [$\n])] of
                 [DistroStr|_] ->
                     io:format("Linux: ~s"
-                              "~n   ~s"
+                              "~n   Distro:                  ~s"
+                              "~n   TS Extra Platform Label: ~s"
                               "~n",
-                              [Version, DistroStr]),
+                              [Version, DistroStr, ts_extra_flatform_label()]),
                     case DistroStr of
                         "Wind River Linux" ++ _ ->
                             wind_river;
@@ -999,9 +1009,10 @@ linux_which_distro(Version) ->
                     end;
                 X ->
                     io:format("Linux: ~s"
-                              "~n   ~p"
+                              "~n   Distro:                  ~p"
+                              "~n   TS Extra Platform Label: ~s"
                               "~n",
-                              [Version, X]),
+                              [Version, X, ts_extra_flatform_label()]),
                     other
             end;
         _ ->
@@ -1017,16 +1028,17 @@ analyze_and_print_linux_host_info(Version) ->
                 linux_which_distro(Version);
             _ ->
                 io:format("Linux: ~s"
-                          "~n", [Version]),
+                          "~n   TS Extra Platform Label: ~s"
+                          "~n", [Version, ts_extra_flatform_label()]),
                 other
         end,
     Factor =
         case (catch linux_which_cpuinfo(Distro)) of
             {ok, {CPU, BogoMIPS}} ->
                 io:format("CPU: "
-                          "~n   Model:                 ~s"
-                          "~n   BogoMIPS:              ~w"
-                          "~n   Num Online Schedulers: ~s"
+                          "~n   Model:                   ~s"
+                          "~n   BogoMIPS:                ~w"
+                          "~n   Num Online Schedulers:   ~s"
                           "~n", [CPU, BogoMIPS, str_num_schedulers()]),
                 if
                     (BogoMIPS > 20000) ->
@@ -1044,8 +1056,8 @@ analyze_and_print_linux_host_info(Version) ->
                 end;
             {ok, CPU} ->
                 io:format("CPU: "
-                          "~n   Model:                 ~s"
-                          "~n   Num Online Schedulers: ~s"
+                          "~n   Model:                   ~s"
+                          "~n   Num Online Schedulers:   ~s"
                           "~n", [CPU, str_num_schedulers()]),
                 NumChed = erlang:system_info(schedulers),
                 if
-- 
2.34.1

Places

File 7664-snmp-test-Add-some-more-platform-info.patch of Package erlang (Revision 60cc6e15571d1d3ea9eb42c446c0449b)

Places