anchor.diff:      case decode_integer(Bin, 7) of
           {error, Why} ->
               {error, Why};
  -        {Len, Rest} ->
  +        {ok, {Len, Rest}} ->
               case Len > size(Rest) of
                   true ->
                       {error, tooshortinput};
  
positive.code: 
  test_int() ->
      Bin1337 = encode_integer(1337, 5, 0),
      {1337, <<>>} = decode_integer(Bin1337, 5),
      Bin42 = encode_integer(42, 8, 0),
      {42, <<>>} = decode_integer(Bin42, 8),
      BinInt64Max = encode_integer(1 bsl 64, 7, 128),
      {1 bsl 64, <<"garbage">>} =
          decode_integer(<<BinInt64Max/binary, "garbage">>, 7).
  
  test_encode() ->
  
negative.code:     Acc2 = Acc + (M bsl Shift),
      case (N band 16#80) =:= 0 of
          true ->
              {ok, {Acc2, Rest}};
          false ->
              decode_integer_acc(Rest, Prefix, Shift + 7, Acc2)
      end;
  