anchor.diff:      case FreeBSDVersion of
           undefined ->
               io:format("FreeBSD:"
  -                      "~n   Version: ~p"
  +                      "~n   Version: ~s"
                         "~n", [Version]),
               "";
           _ ->
               io:format("FreeBSD:"
  -                      "~n   Version: ~p (~s)"
  +                      "~n   Version: ~s (~s)"
                         "~n", [Version, FreeBSDVersion])
       end,
       %% This test require that the program 'sysctl' is in the path.
  
positive.code: %%    "Something:" (which we ignore)
  %%    "Key: Value1:Value2"
  analyze_darwin_system_profiler(DataType) ->
      %% First, make sure the program actually exist:
      case os:cmd("which system_profiler") of
          [] ->
              [];
          _ ->
              D0 = os:cmd("system_profiler " ++ DataType),
              D1 = string:tokens(D0, [$\n]),
              D2 = [string:trim(S1) || S1 <- D1],
              D3 = [string:tokens(S2, [$:]) || S2 <- D2],
              analyze_darwin_system_profiler2(D3)
      end.
  
  analyze_darwin_system_profiler2(L) ->
      analyze_darwin_system_profiler2(L, []).
  
negative.code:             CPUFactor     =
                  case ProcName of
                      "-" ->
                          %% Processor Name exist up until 
                          %% darwin version 19 (on intel), but on
                          %% darwin version 21 on M1 it has been
                          %% replaced by 'chip'.
  