Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
7664-snmp-test-Add-some-more-platform-info.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 7664-snmp-test-Add-some-more-platform-info.patch of Package erlang
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor