anchor.diff:      [X | init(Rest)].
   
   %% Parse version of the form 1.7.0r_252_g1e1c2c0 or 1.7.0r-252-g1e1c2c0 into a
  -%% list {[1,7,0],candidate,252}.
  +%% list {[1,7,0],candidate,252}.  1.8.0 introduces a license type suffix,
  +%% like: 1.8.0r-25-g1e1c2c0-enterprise.  Note that we should never
  +%% see something like 1.7.0-enterprise, as older nodes won't carry
  +%% the license type information.
   -spec parse_version(string()) -> version().
   parse_version(VersionStr) ->
       Parts = string:tokens(VersionStr, "_-"),
  
positive.code:                      parse_version("1.7.0")),
      ?assertEqual(true,
                   parse_version("1.7.1_252_g1e1c2c0") >
                       parse_version("1.7.1_251_g1e1c2c1")).
  -endif.
  
negative.code:         [BaseVersionStr] ->
              {BaseVersion, Type} = parse_base_version(BaseVersionStr),
              {BaseVersion, Type, 0};
          [BaseVersionStr, OffsetStr | _Rest] ->
              {BaseVersion, Type} = parse_base_version(BaseVersionStr),
              {BaseVersion, Type, list_to_integer(OffsetStr)}
      end.
  