gistfile1.erl

prop_encode_decode() ->
  ?FORALL(Int, integer(),
    begin
      ?assertEqual(Int, prop_encode_decode(Int))
    end).

prop_encode_decode(Int) ->
  EncInt = base64_vlq:encode(Int),
  DecIntWrapped = base64_vlq:decode(EncInt),       % for my decoder, the value comes back wrapped
  DecInt = lists:keyfind(value, 1, DecIntWrapped), % in a property list, so we have  couple of
  DecInt.                                          % lines to pull out just the decoded value.